#!/usr/local/bin/perl print "Content-type: text/html\n\n"; # When "POST", the input from the standard input is stored into the variable $str if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $str, $ENV{'CONTENT_LENGTH'}); } else { $str = $ENV{'QUERY_STRING'}; } # 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; # # Program Body # if ($cgi{'addr'} eq "" ) { print &print_value(<oversight

Submission is not completed


Your E-mail address is not filled out in the input form.

Please click the "Back" button of your Web browser. If you want to clear all, then click Clear All and Back to the Input Form.

If you have any questions or problems, please contact with the, Please contact with the Administrator: $mymail
EOF exit (1); } $tmp = "/var/tmp/ReviewInfo"; open(FILE, ">$tmp"); flock(FILE, 2); print FILE "$str"; close(FILE); flock(FILE, 8); # print &print_value(<Your Preference

Preference of Interested Papers for PC members

Step 2: Confirmation

Please click "Submit Information" to submit.