#!/usr/bin/perl
$addrss = 'YOUR@MAIL.ADDRESS';
$smpath = "/usr/sbin/sendmail";
###############
# main script #
###############
if ($ENV{'QUERY_STRING'}) {
$input = $ENV{'QUERY_STRING'};
&smail;
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
&smail;
} else {
&input;
}
exit;
#############
# send mail #
#############
sub smail
{
@pair = split(/&/, $input);
foreach (@pair) {
($name, $value) = split(/=/);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("c", hex($1))/ge;
$data{$name} = $value;
}
if ($data{'MESSAGE'} eq "") {&error;}
### mail start ###
open (MAIL, "|$smpath -t") or die "$!";
print MAIL <<"SEND_FORM";
To: $addrss
Subject: Message via sfm.cgi
$data{'MESSAGE'}
SEND_FORM
close MAIL;
### thank you message ###
print <<"_THANKS_";
Content-type: text/html
Thank you!
Thank you.
If the e-mail system works (it usually works right), your mail will reach me.
_THANKS_
}
#############
# mail form #
#############
sub input
{
print <<"_INPUT_";
Content-type: text/html
Simple Form Mail CGI
Simple Form Mail CGI
sfm.cgi
is visitware, pay me visit!
_INPUT_
}
#################
# error message #
#################
sub error
{
print <<"_ERROR_";
Content-type: text/html
Error!
Error.
Where is your message?
_ERROR_
exit;
}
#-- End of sfm.cgi version 1.5
#
# visitware (C) 1999-2002
# B. Uchina, All rights reserved
# http://www.visitware.com/sobaya/