6 $netdns = eval 'use Net::DNS';
7 if($netdns) use Net
::DNS
;
9 my $from='harvie@harvie.cz';
10 my $rcpt='harvie@email.cz';
12 my $mesg='H3ll0 Dolly!';
13 $rcpt='martin.mudrunka@t-email.cz'; $mesg = qx { bash
-c
'links -dump http://www.gymjosefska.cz/studium/suplovani/suplobec.htm | grep -i "3.AG\\|suplov.n."' };
15 my @rcpts = split('@', $rcpt);
21 foreach(mx
($rcpts[1])) {
22 if($_->preference > $preference) {
23 $preference = $_->preference;
28 #get mx without Net::DNS
29 foreach(split("\n", qx{ bash
-c
"host -t mx email.cz | cut -d ' ' -f 7" })) {
48 my $sock = IO
::Socket
::INET
->new(PeerAddr
=> $xchg, PeerPort
=> '25');
49 print "SRV: ".<$sock>;
This page took 0.260836 seconds and 4 git commands to generate.