SMTP Send
David Pasek
pasek at idc.cz
Mon Jan 28 22:46:30 CET 2002
Nemyslim si, ze by zrovna to co popisujete pomohlo vyresit tento problem.
Utilita musi umet navazat komunikaci se SMTP serverem (SMTP protokolem)
a az potom tam poslat emailovou message.
BTW: takova utilita by v PERLu sla vyresit taky za par minut ( dobre
tak mozna hodinku :-) )
Jestli pracujete na tebou popisovanem "stream redirectoru", tak by me
zajimalo jak dlouho na tom delate.
Ja jsem mel takovy programek v PERLu hotovy asi za 15min :-))
Je opravdu (jak uz je u PERLovych skriptu zvykem) na par radku.
Pro inspiraci jej prikladam:
#!/usr/bin/perl
use IO::Socket;
##################### KONFIGURACE ###############################
$END_TCPIP_TAG = "#end#";
#################################################################
if ( ($#ARGV + 1) != 2 ) {
print "Usage: sendviatcpip.pl server_address server_port\n";
}
$SERVER_IP = $ARGV[0];
$SERVER_PORT = $ARGV[1];
$REQUEST = "";
while (<STDIN>) {$REQUEST.=$_;}
$sock = IO::Socket::INET->new(PeerAddr => $SERVER_IP,
PeerPort => $SERVER_PORT,
Proto => 'tcp');
die "Socket nemohl byt vytvoren. Duvod: $!\n" unless $sock;
#posli request
print $sock $REQUEST;
$sock->flush();
#precti response
while (defined ($buf = <$sock>)) {
$response .= $buf;
if ($buf =~ $END_TCPIP_TAG) { last;}
} #konec cteni odpovedi
#vytiskni response na STDOUT
print $response;
exit;
Ondrej Jombik wrote:
> Maxim, 23:51:12
> 27. januar 2002 (nedela)
>Dobry den.
>
>>Nepoznate niekto nejaku hotovu ulilitu, ktora by mi zabespecila:
>>./utilita mbox-like-email IP-smtp-serveru
>>Utilita by sa mala spojit na IP-smtp-server a zaslat nan mail vo
>>formate mbox
>>Any idea?
>>
>
> Myslim, ze toto by mohla riesit jedna rura do telnet-u. Ak to vsak
>nie je pre Vas to prave orechove, doporucujem netscript, stiahnutelne z
>http://realhalo.org/. Je to len jeden .c subor. Mal by byt bez problemov
>skompilovatelny (na FreeBSD som to netestoval).
>
> Najcistejsie riesenie by bolo pouzit stream redirector. Napisali by
>ste si aplikaciu, ktora by citala/zapisovala na stdin/stdout a pomocou
>zmienovaneho redirectoru ju prepojili s telnetom. Nic podobne som vsak este
>zrealizovane nevidel. My (tj. platon.sk) na tom pracujeme, je to aj
>pouzitelne, ale zatial to neodporucam. Pre tento pripad by to bolo doslova
>idealne.
>
> =Nepto=
>____________________________________________________________________________
>Ondrej 'Nepto' Jombik, You really clean everything? /var/adm/sulog
>
>
>
More information about the Users-l
mailing list