#!/usr/bin/perl -wT

use CGI qw/:standard/;
use DBI;
use Net::SMTP;
#use CGI::Carp qw(fatalsToBrowser);    #comment this out when in production

BEGIN {
     use CGI::Carp qw(carpout);
     
     open(LOG, ">>/home/username/cgi-bin/process-log") or
       die("Unable to open process-log: $!\n");
     carpout(LOG);
   }

# resource limits
$CGI::DISABLE_UPLOADS = 1;  # no uploads
$CGI::POST_MAX = 1024 * 10;  # max 10K posts


##</code><code>##

sub create_order_file {
		
my (undef, undef, undef, $day, $month, $year, @rest) = localtime(time);
	$month = $month + 1;	#localtime returns mth as 0 to 11
	$outfile = sprintf "%s/%4d-%2.2d-%2.2d-", $base_dir, 
				$year + 1900, $month, $day;

	umask(); -d $base_dir || mkdir $base_dir, 0700;
	
my $got_lock;
use Fcntl;   # to get constants for O_CREAT | O_EXCL | O_RDWR
for ( 0 .. 5 ) {
    if ( sysopen(my $fh, "$base_dir/.lock", O_CREAT | O_EXCL | O_RDWR,
+ 0600) ) {
        $got_lock = 1;
        close $fh;
      last;
    }
    sleep 2;
}
diehtml("Lock error $!\n") unless $got_lock;	
		
	# create unique suffix
	if (-f "$base_dir/$seq_file") {
		open(SEQ, "+<$base_dir/$seq_file")
			or diehtml("Error opening seq file: $!\n");
		$seq = <SEQ>;
		seek SEQ, 0, 0;
	} else {
		open(SEQ, ">$base_dir/$seq_file")
			or diehtml("Error creating seq file: $!\n");
		$seq = 0;
	}
	
	$outfile .= sprintf "%7.7d", $seq;
	$ordernumber = $seq;	#store this order no. before 'next' is calc.
	print SEQ ++$seq;
	close SEQ or warn "Something wrong closing seq: $!\n";
	unlink "$base_dir/.lock" or diehtml("Unlock error: $!\n");

use Fcntl;   # to get constants for O_CREAT | O_EXCL | O_RDWR
	
		sysopen(ORDERFILE, $outfile, O_WRONLY | O_EXCL | O_CREAT)
			or diehtml("Can't open order records: $!\n");

	print ORDERFILE @_;
	close ORDERFILE or warn "Something fishy with closing the order: $!\n";
	
}