perl + sendmail = ???

WD` · 06.08.2002, 14:50

в чем ошибка?
все вроде нормально, но письмо не доходит

сервер: h1.ru

исходник в аттаче и вот:

Код:

#!/usr/bin/perl
use CGI;
$cgi=new CGI;

my $act=$cgi->param('act');
my $user=$cgi->param('user');
my $tomail=$cgi->param('tomail');
my $input=$cgi->param('input');


if (($act eq "send")&&($input ne "")&&($tomail ne ""))
{
print "content-type: text/html\n; Pragma: no-cache\n"; # Для HTTP/1.0 клиентов
print $act,"<BR>",$user,"<BR>","tomail","<BR>",$input;



$mailprog=" /usr/sbin/sendmail -t -oi";
open (MAIL, "|$mailprog") or die ("wrong mailprog\n");
print MAIL "To: $tomail\n";
print MAIL "From: \"$user\" <any\@you.want>\n";
print MAIL "Subject: Post data from web server\n";
print MAIL "$input\n";
close (MAIL);


print "<a href=smail.cgi>smail.cgi</a>";
}
else 
{
 

print "content-type: text/html\n; Pragma: no-cache\n";
print "Cache-Control: no-cache\n"; 
print "Expires: Thu Jan 1 00:00:00 1970\n\n"; 
print "\n<!-- saved from url=",$ENV{'HTTP_HOST'}," -->\n";
print <<HTML;
<HTML>\n<HEAD>\n<TITLE>1</TITLE>
      <META http-equiv="Content-Type" content="text/html; charset=windows-1251">
<STYLE>
BODY {FONT-FAMILY: Verdana, Tahoma, Arial; FONT-SIZE: 10px;}
.txt {FONT-FAMILY: Verdana, Tahoma, Arial; FONT-SIZE: 11px; COLOR: #000000}
.head {FONT-FAMILY: Verdana, Tahoma, Arial; FONT-SIZE: 12px; FONT-WEIGHT:bold; COLOR: #FFFFFF;}
.field {BACKGROUND-COLOR: #000066;
                BORDER-BOTTOM: #FFFFFF 1px solid; 
                BORDER-LEFT: #FFFFFF 1px solid; 
                BORDER-RIGHT: #FFFFFF 1px solid; 
                BORDER-TOP: #FFFFFF 1px solid; 
                COLOR: #ffffff; 
                FONT-FAMILY: verdana;
                FONT-SIZE: 11px; 
                FONT-WEIGHT: bold;
                CURSOR: re-sized;}
 TD {background: #CCCCCC;}
</STYLE>
</HEAD>

<BODY BgColor=#F9F9F9 text=#FFFFFF leftmargin=0 rightmargin=0 bottommargin=0 topmargin=15 marginwidth=0 marginheight=0 onLoad=ws(); scroll=auto><CeNTER>
<div Align=center><BR><BR>
<TABLE border=1 bordercolor=#000000 cellspacing=0 cellpadding=3>
 <TR><TD align=center style="background: #000000;"><a class=head>.:  :.</a></TD></TR>
 <TR><TD>    <FORM action="smail.cgi" mathod=POST>
      <INPUT type=hidden name=act value=send>
     
      <a class=txt>&nbsp;отправитель:&nbsp;&nbsp;</a><INPUT type=text name=user value="" class=field style="WIDTH: 200px;"></TD></TR>
     <TR><TD>
      <a class=txt>&nbsp;получатель:&nbsp;&nbsp;&nbsp;</a><INPUT type=text name=tomail value="" class=field style="WIDTH: 200px;"></TD></TR>
     <TR><TD>
      <TEXTAREA name=input rows=8 cols=80 class=field style="overflow:auto"></TEXTAREA></TD></TR>
     <TR><TD>
      <INPUT type=submit value=отправить>
 </TD></FORM></TR>
</TABLE>
</Div>
HTML

}

m1k3 · 19.08.2002, 06:02

Попроси их включить sendmail или поменяй хостинг, все равно больше одного сообщения в минуту они не посылают.
У меня была подобная ситуация с h1 - когда перешел на netfirms.com все сразу заработало.

WD` · 19.08.2002, 13:54

я нашел уже это на др. форуме

спасиб, что оттветил

я уж и не думал, что кто-нить ответит

сейчас поглядим на эот нетфирмс.ком