#increment file for count
my $asrnumber = File::CounterFile->new("./asr_counter.txt");
$asrnumber->lock();
$asrnumber->inc;
$asrnumber->unlock();

##</code><code>##

#!/usr/bin/perl
# asr_archive.pl
# script to email and archive ASR submissions for backup

use warnings;
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser'; 
use MIME::Lite;
use POSIX;
use File::CounterFile;

require '../code_paths.conf';

$from_email = "webmaster\@xyz.org";
$to_email = "wendy\@xyz.org";  
$orig_file = "asr_submissions.txt";
$file_date = POSIX::strftime("%d%m%Y_%H%M", localtime);
$new_file = "asr_submissions_$file_date.txt";

system "mv $orig_file $new_file"; #rename the flatfile with date

system "mv $asr_data/$new_file $asr_backup"; #move flatfile to backup directory

my $count = File::CounterFile->new("./asr_counter.txt");
$count->lock();
$count->value;
$count->unlock();

&Email_Results; #email flatfile 


sub Email_Results{

	$msg = MIME::Lite->new(From => $from_email,
					   To   => $to_email,
					   Subject => "$count ASR submissions - $file_date",
					   Type => 'multipart/mixed');
					   	   	
	$msg->attach(Type => 'application/octet-stream',
		   Path => "$asr_backup/$new_file",
		   Filename => $new_file );
		     
  $msg->send();

}