Here is something i threw together, you can try it if you want;
#################################
HTML page code;
<html>
<head>
<meta http-equiv="Content-Language" content="en-gb">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body>
<form method="POST" action="/cgi-bin/script.cgi">
<p>Your E-Mail Address : <input type="text" name="email" size="20"></p>
<p>Father <input type="radio" value="father" name="sendto">
Mother <input type="radio" value="mother" name="sendto">
Son <input type="radio" value="son" name="sendto">
Daughter<input type="radio" value="daughter" name="sendto"></p>
<p>Subject : <input type="text" name="subject" size="20"></p>
<p>Comment : <textarea rows="2" name="comment" cols="20"></textarea></p>
<p align="center"><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
</body>
</html>
#############################################
END OF HTML CODE PAGE
#############################################
CGI PAGE CODE (e.g mail.cgi)
#!/usr/local/bin/perl
$fathermail = "father\@site.com";
$mothermail = "mother\@site.com";
$sonmail = "son\@site.com";
$daughtermail = "girl\@site.com";
$sendto = "$FORM{sendto}";
# Location of sendmail on your server
$sendmail = "/usr/sbin/sendmail";
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
$buffer = $ENV{'QUERY_STRING'};
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
# Break em up into a format the script can read
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
if ($sendto = "father") {
open (MAIL, "|$sendmail -t") or &dienice("Can't access $sendmail!\n");
print MAIL "To: $fathermail \n";
print MAIL "From: $FORM{email} \n";
print MAIL "Reply-to: $FORM{email} \n";
print MAIL "Subject: $FORM{subject} \n\n";
print MAIL "$FORM{comment}\n";
close(MAIL);
}
if ($sendto = "mother") {
open (MAIL, "|$sendmail -t") or &dienice("Can't access $sendmail!\n");
print MAIL "To: $mothermail \n";
print MAIL "From: $FORM{email} \n";
print MAIL "Reply-to: $FORM{email} \n";
print MAIL "Subject: $FORM{subject} \n\n";
print MAIL "$FORM{comment}\n";
close(MAIL);
}
if ($sendto = "son") {
open (MAIL, "|$sendmail -t") or &dienice("Can't access $sendmail!\n");
print MAIL "To: $sonmail \n";
print MAIL "From: $FORM{email} \n";
print MAIL "Reply-to: $FORM{email} \n";
print MAIL "Subject: $FORM{subject} \n\n";
print MAIL "$FORM{comment}\n";
close(MAIL);
}
if ($sendto = "daughter") {
open (MAIL, "|$sendmail -t") or &dienice("Can't access $sendmail!\n");
print MAIL "To: $daughtermail \n";
print MAIL "From: $FORM{email} \n";
print MAIL "Reply-to: $FORM{email} \n";
print MAIL "Subject: $FORM{subject} \n\n";
print MAIL "$FORM{comment}\n";
close(MAIL);
}
#####################################################
END OF CGI CODE
####################################################
I won't guarantee this will work, but its worth a try
Yours
A.J.Newby
webmaster@ace-installer.com
http://www.ace-installer.com
