|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dimitry Starkov 2:5080/94.24 04 Dec 2000 13:28:00
To : Serge Shikov
Subject : отпpавка почты чеpез SMTP
--------------------------------------------------------------------------------
>> Если можно.. конкpетный пpимеpчик скpипта для отпpавки почты чеpез
...вот yж не знаю кhиво это или косо, писал сто лет назад но задачy hешил
#!/usr/bin/perl
use Socket;
# name, subject, body
sub knok {
my($mailTo) = 'tra-la-la@la-la.ru';
my($mailServer) = 'mail.la-la.ru';
my($mailFrom)='tra-la-la@la-la.ru';
my($realName)="$_[0]";
my($subject)="$_[1]";
my($body) = "$_[2]";
my($proto) = getprotobyname("tcp") || 6;
my($port) = getservbyname("SMTP", "tcp") || 25;
my($serverAddr) = (gethostbyname($mailServer))[4];
die('gethostbyname failed.') unless (defined($serverAddr));
socket(SMTP, AF_INET(), SOCK_STREAM(), $proto) or die("socket: $!");
my($packFormat) = 'S n a4 x8'; # Windows 95, SunOs 4.1+
connect(SMTP, pack($packFormat, AF_INET(), $port, $serverAddr)) or
die("connect: $!");
select(SMTP); $| = 1; select(STDOUT); # use unbuffered i/o.
{
my($inpBuf) = '';
recv(SMTP, $inpBuf, 200, 0);
}
my($mailHeader);
$mailHeader.="From: $realName <$mailFrom>\n";
$mailHeader.="To: $mailTo\n";
$mailHeader.="Subject: $subject\n";
$mailHeader.="Mime-Version: 1.0\nContent-Type: text/plain;\n";
sendSMTP("EHLO pvision\n");
sendSMTP("MAIL From: <$mailFrom>\n");
sendSMTP("RCPT To: <$mailTo>\n");
sendSMTP("DATA\n");
send(SMTP, $mailHeader, 0);
send(SMTP, $body, 0);
sendSMTP("\r\n.\r\n");
sendSMTP("QUIT\n");
close(SMTP);
sub sendSMTP {
my($buffer) = @_;
send(SMTP, $buffer, 0);
recv(SMTP, $buffer, 2000, 0);
return( (split(/ /, $buffer))[0] );
};
};
---
* Origin: Знающий не говоpит, а говоpящий не знает. (2:5080/94.24)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
