#!/usr/mesh/bin/perl5 if($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$str,$ENV{'CONTENT_LENGTH'}); } else { $str=$ENV{'QUERY_STRING'}; } #defaults $mymail="ned30616\@pcvan.or.jp"; $mailto = "/usr/lib/sendmail ".$mymail; @part=split('&',$str); foreach $i (@part) { ($variable,$value)=split('=',$i); # $value=~ s/\015\012/\012/g; # $value=~ s/\015/\012/g; $cgi{$variable}=$value; } $agent=$ENV{'HTTP_USER_AGENT'}; $name=$cgi{'name'}; $email=$cgi{'email'}; $message=$cgi{'message'}; $prev=$cgi{'prev'}; open(MAIL,"|$mailto"); print MAIL <Registered!"; print "

Thank you very much.

"; print "Your message has sent to the WebMaster, I think... Please enjoy!
"; print "

Back to the Index"; print "";