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