system ("lockfile -2 -r 5 $base_dir/.lock")  == 0
		or diehtml("Lock error: ", $? >> 8, "\n");
		# TODO stop stderr of system

	# create unique suffix
	if (-f "$base_dir/$seq_file") {
		open(SEQ, "+<$base_dir/$seq_file")
			or diehtml("Error opening seq file: $!\n");
		$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");

	open(ORDERFILE, ">$outfile")
		or diehtml("Can't open order records: $!\n");

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