ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Danil V.Pismenny                     2:5020/52      01 Dec 2000  14:19:16
 To : All
 Subject : Re: отправка посты через SMTP
 -------------------------------------------------------------------------------- 
 

 > Привет All!
 > Если можно.. конкретный примерчик скрипта для отправки почты через SMTP
 > за ранее благодарен..
 > Игорь.
 
 sub MailFormTo
 
     {
     my ($to, $subject, $returnfield) = @_ ;
     my $v ;
     my $k ;
     my $ok ;
     my $smtp ;
     my $ret ;
 
     $ret = $fdat{$returnfield} ;
 
     require Net::SMTP ;
 
     $smtp = Net::SMTP->new('localhost', Debug => 1) or die "Cannot connect to
 mailhost" ;
     { $smtp->mail("mail@from");}
     $smtp->to($to);
     $ok = $smtp->data();
     $ok = $smtp->datasend("Reply-To: $ret\n") if ($ok && $ret) ;
     $ok and $ok = $smtp->datasend("To: $to\n");
     $ok and $ok = $smtp->datasend("Subject: $subject\n");
     $ok and $ok = $smtp->datasend("\n");
     foreach $k (@ffld)
         { 
         $v = $fdat{$k} ;
         if (defined ($v) && $v ne '')
             {
             $ok and $ok = $smtp->datasend("$k\t= $v \n" );
             }
         }
     $ok and $ok = $smtp->datasend("\nClient\t= $ENV{REMOTE_HOST}
 ($ENV{REMOTE_ADDR})\n\n" );
     $ok and $ok = $smtp->dataend() ;
     $smtp->quit; 
 
     return $ok ;
     }    
 Dapi
 --
 --- Gnus/5.0807 (Gnus v5.8.7) XEmacs/21.1 (Channel Islands)
  * Origin: Mr. Postman (2:5020/52.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор