#!/usr/local/bin/perl -w use CGI qw(:standard); #both left or right ajustiment, when length is 0, will print the string #put extra :: at the end of .def file to avoid # to print out last field as trash $q = new CGI; open(def_file,"/z/p/l/plee1274/jws/cgi-bin/oid.def") || print "die
";
@lines = $v\n";
#print " $line\n";
}
pop(@ss); pop(@ss); #get rid of two extra null
foreach (@ss){
# print "$_";
$line="$line$_";
}
#print (" \n");
$line="$line:\n"; #give an extra : and a new line
open(FILE, ">>/z/p/l/plee1274/jws/cgi-bin/oid.dat");
print FILE $line;
print header(), start_html("Thank You For Your Purchase"), h1("Thank You
For Your Purchase");
print " Thank you for purchased as following:\n";
print " ------------------------------------\n";
print " $line\n";
close(FILE); # done the append a record/line
print ' Home';
#mydate-- change : to + in date format
sub mydate {
$s = `date`;
chomp($s);
my @ss= split(/:/, $s);
my $ss = join("+", @ss);
return $ss;
}