#!/usr/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 close STDERR; open STDERR, '>>', './errlog.txt' or die "Couldn't redirect STDERR: $!"; #paul, did put error msg not to sdout warn "this will go to errlog.txt\n"; $q = new CGI; open(def_file,"/home/plee1470/http_root/jws/cgi-bin/bid.def") || print "die

"; @lines = ; @colnames = split(":",$lines[0]); close(def_file); my (@ss,$line); foreach $k (@colnames){ $v = $q->param("$k"); if (($k eq "bid") && ($v eq "")){ print header(), start_html("Your Registration"); print "

SOME IMPORTANT INFO. MISSING, Please go back to registed AGAIN\n"; #paul: prevent 500 meaningless msg, and fellowing code produce the same #output as getbid.cgi, it still would go to web,why? #pasted from getbid.cgi, it worked print header() is important!!! # system ("perl /home/chrislu/http_root/jws/cgi-bin/getbid.cgi"); print "\n"; print ''; print ''; print "

\n"; $i=0; while (($colnames[${i}]) && ($colnames[${i}] ne "Date")) { if ($colnames[${i}] eq "bid") { print "Buyer email address

\n"; } else { print "$colnames[${i}]

\n"; } $i += 1; } print "

"; print ""; exit(0); } if ($v eq "") { $v = "null"; } if ($k eq "Date") { $v =mydate(); } $v="$v:"; push(@ss,$v); #print "

$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, ">>/home/plee1470/http_root/jws/cgi-bin/bid.dat"); print FILE $line; print header(), start_html("Thank You For Your Registration"), h1("Thank You For Your Registration"); print "

Thank you for registed 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; }