|
ru.nethack
- RU.NETHACK -------------------------------------------------------------------
From : Eugene Korovin 2:5080/196.72 19 Dec 2001 16:28:32
To : Anton Karpushev
Subject : Re: Замена атрибутов отпра вителя в e-mail
--------------------------------------------------------------------------------
Tue, 18 Dec 2001 02:29:18 +0500, you wrote:
sa>> relay=<user'shostname> [<user'sip>]
>>> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
AK> а можно на сервере в логах будет IP моего proxy server'а?
Конэшно, вот скриптик:
#!/usr/bin/perl
#
# taty.pl
# A simple script for sending e-mails via HTTP proxy servers
#
# usage: taty.pl < message.txt
# message.txt file contains message to send
#
#
# Alexander Yurchenko <grange@rt.mipt.ru>
#
use IO::Socket;
$proxyhost = 'proxy.com';
$proxyport = '8080';
$smtpserver = 'smtp.com';
$sender = '<myself@hotmail.com>';
$recipient = '<myfriend@hotmail.com>';
local $/ = undef;
$message = <>;
$smtpdata = "HELO $proxyhost\n";
$smtpdata .= "MAIL FROM: $sender\n";
$smtpdata .= "RCPT TO: $recipient\n";
$smtpdata .= "DATA\n";
$smtpdata .= "$message\n.\n";
$smtpdata .= "QUIT\n";
$request = "POST http://$smtpserver:25/ HTTP/1.0\n";
$request .= "Host: $smtpserver\n";
$request .= "Content-type: application/x-www-form-urlencoded\n";
$request .= "Content-length: ".length($smtpdata)."\n\n";
$request .= "$smtpdata";
$socket = IO::Socket::INET->new(PeerAddr => $proxyhost,
PeerPort => $proxyport,
Proto => 'tcp',
Type => SOCK_STREAM)
or die "could not connect to $proxyhost:$proxyport : $!\n";
print $socket $request;
$answer = <$socket>;
close($socket);
print "SMTP session log:\n\n$answer";
With best regards, Eugene [ Registered Linux user #194650 ]
--- tin/1.5.8-20010221 ("Blue Water") (UNIX) (Linux/2.4.17-rc1 (i686))
* Origin: Linux, because PC is a terrible thing to waste. (2:5080/196.72)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
