#!/usr/local/bin/perl print "Content-type: text/html\n\n"; $tmp = "/var/tmp/ReviewInfo"; open(FILE, "<$tmp"); flock(FILE, 2); $str = ; close(FILE); flock(FILE, 8); # Decode @part = split(/&/, $str); foreach $i (@part) { ($variable, $value) = split(/=/, $i); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; $value =~ s//>/g; $value =~ s/\r\n/\n/g; $value =~ s/\r/\n/g; $cgi{$variable} = $value; } # Mail-Address $myname = "MYNAME"; $mymail = "MYNAME\@MYDOMAIN"; $mailto = "/usr/bin/mail " . $mymail; # $databasefile = "/var/tmp/ReviewDatabase"; # Program Body open(FILE, ">>$databasefile"); flock(FILE, 2); print FILE &print_value(<Submission completion

Preference of Interested Papers for PC members

Step 3: Submission Finished

Thank you very much