#!c:/perl/bin/perl
#отсылка писем со станицы администратору сайта
# Установка переменных
$date_command = "/bin/date"; #команда даты
$aemail = "you\@youmail.ru"; #ваш email (перед @ поставьте \)
$mailprog = "/usr/sbin/sendmail"; #программа sendmail
$home="http://ваша.главная.страница";
############################################################
$date = `$date_command +"%B %d, %Y"`; chop($date);

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@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;
   $value =~ s/<!--(.|\n)*-->//g;
   $value =~ s/<([^>]|\n)*>//g;
   $FORM{$name} = $value;
}

$temp=$ENV{'QUERY_STRING'};
@pairs=split(/&/,$temp);
foreach $item(@pairs) {
	($key,$content)=split (/=/,$item,2);
	$content=~tr/+/ /;
	$content=~ s/%(..)/pack("c",hex($1))/ge;
	$FORM{$key}=$content;
}
print "Content-type: text/html \n\n";

if($FORM{'action'} eq 'send') {&send_mail;}
&show;
sub show {

print <<EOF;
<HTML><HEAD><TITLE>Письмо</TITLE></HEAD><BODY>
<p align="center"><font color="red" size="4" face="Times New Roman Cyr">
<b>Отправьте письмо администрации</b><br></font></p>
EOF
print "<form method=POST action=\"cont.cgi\">\n";
print "<input TYPE=\"hidden\" name=\"action\" value=\"send\">\n";
print "<table border=0 cellspacing=0 cellpadding=5 width=300>\n";
print "<tr>\n";
print "	<td width=\"100\" valign=\"top\"><b>Имя</b></td>\n";
print "	<td width=\"200\"><input TYPE=\"text\" name=\"name\" size=\"30\"><br></td>\n";
print "</tr>\n";
print "<tr>\n";
print "	<td width=\"100\" valign=\"top\"><b>Email</b></td>\n";
print "	<td width=\"200\"><input TYPE=\"text\" name=\"email\" size=\"30\"><br></td>\n";
print "</tr>\n";
print "<tr>\n";
print "	<td width=\"100\" valign=\"top\"><b>Сообщение</b></td>\n";
print "	<td width=\"200\"><textarea name=\"comments\" cols=60 rows=5></textarea><br></td>\n";
print "</tr>\n";
print "\n";
print "<tr>\n";
print "	<td width=\"100\"></td>\n";
print "	<td width=\"200\"><center><input TYPE=\"submit\" VALUE=\"отправить\"> <input type=\"Reset\" VALUE=\"очистить\"></center></td>\n";
print "</tr>\n";
print "</table>\n";
print "</form>\n";
&end;
exit;
}
sub send_mail {
if ($FORM{'email'} eq "") {&error('Не был набран адрес email');}
if ($FORM{'comments'} eq "") {&error('Не были набрано сообщение');}
if ($FORM{'name'} eq "") {&error('Не было набрано имя');}
########
   open (MAIL, "|$mailprog $aemail") || die "Can't open $mailprog!\n";
   print MAIL "Reply-to: $FORM{'email'}\n";
   print MAIL "From: $FORM{'email'}\n";
   print MAIL "Subject: From user InterClub\n\n";
   print MAIL "$FORM{'name'} <$FORM{'email'}>сообщение от пользователя\n";
   print MAIL "  - $date\n";
   print MAIL "Сообщение: $FORM{'comments'}\n";
   close (MAIL);

print "<font size=4><b>Ваше сообщение отправлено</b></font><br>\n";
print "<center><a href=\"$home\" target=\"_top\"><font size=4><b>HOME</b></font></a></center><br>\n\n";
&end;
exit;
}
sub end{
print<<ENDD;
<center><small>Copyright by Tramp\&Co</small></center>
</BODY>
</HTML>
ENDD
}
######################
sub error {
my($string) = $_[0];
#   print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Письмо</TITLE></HEAD><BODY>\n";
print "<p align=\"center\"><font color=\"\#808000\" size=\"4\"><b>Error</b><br></font></p>\n";

print "<br><table border=0 cellspacing=0 cellpadding=0 width=685 height=400>\n";
print "<tr>\n";
print " <td width=\"25\">\n";
print "</td>\n";
print "	<td width=\"635\" class=\"osnova\" valign=top>\n";
print "$string\n";
print "</td>\n";
print " <td width=\"25\">\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";
&end;
exit;
}
#1;