#!/usr/bin/perl
$mailprog = '/usr/sbin/sendmail'; #Путь к почтовой программе
$titel="Послать письмо участникам нашей программы";#Заголовок
$admin_male = "you\@youmail.ru"; #адрес администратора
$sub = "регистрация"; # поле тема в письме
$file='data.txt';#Список адресов
##############################################
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;
}
$action = $FORM{'action'};
$login = $FORM{'login'};
$url = $FORM{'url'};
$desc = $FORM{'desc'};
$male = $FORM{'male'};
$sub = $FORM{'new_sub'};
@sending_mail = ($FORM{'new_mail'});
$whu = $FORM{'whu'};
$from = $FORM{'from'};

print "Content-Type: text/html\n\n";
print "<HTML>\n";
print "<HEAD><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></HEAD>\n";
print "<BODY bgcolor=\"black\" text=\"white\" link=\"yellow\" vlink=\"yellow\">\n"; 
print "\n";

#############################################################
print "<center><font size=\"5\"><b>$titel</b></font><br>\n";
print "</center><hr>\n";
##########################################
if ( $action eq ""){&null; &end; exit;}
open (URL, 'data.txt');
@open_mail = <URL>;
close (URL);

if ( $action eq "send_mail"){&mail;}
sub null{
print<<EOF;
<CENTER>
<form action="male.cgi" method="POST">
<input type="hidden" name="action" value="send_mail">
<p align="center">Введите сообщение в поле субъект: <br><input type="text" name="new_sub"></p>
<P>Введите Ваше сообщение:<br>
<textarea name="new_mail" rows="5" cols="49" WRAP=VIRTUAL></textarea></p>
<p>Введите свой адрес:<br>
<input type="text" name="from"><br>
<input type="submit" name="B1"
value="Send Mail"></p>
</form>
EOF
}


###################
sub mail{
open (URL, "$file");
my @open_mail = <URL>;
close (URL);
$from = "algol\@hotmail.ru";
foreach (@open_mail) {
## Open the mail program
open(MAIL,"|$mailprog -t");
print MAIL "To: $_\n";
print MAIL "From: $from\n";
print MAIL "Subject: $sub\n";
foreach $mline (@sending_mail) {
print MAIL "$mline";
}
close(MAIL);
}
print "<center><b>Ваше сообщение разослано участникам</b></center><br>\n";
}

sub end{
print "</BODY></HTML>\n";
exit;
}


