(R)ex: [PLUTO-help] Notifica cambio indirizzo IP dinamico

[Willaim Rizzo]

Ciao....
io avevo la tua stessa necessità...e mi sono fatto questo scriptino in Perl...
lo so, non è nulla di speciale, ma a me funziona...
Poi te lo scheduli in cron!... ;-)

se hai problemi posta
Ciao 
Will 
#!/usr/bin/perl -w

system("wget http://xxx.xxx.xxx.xxx/router/pagina_con_ip.html");
system("sleep 2");
system("more pagina_con_ip.html |grep riga_con_indirizzo pagina_con_ip.html > 
foobar");

open(FD, "foobar") || die "Impossibile aprire foobar: $!";

$a=<FD>;

use Net::SMTP;

$smtp = Net::SMTP->new('smtp.tuo_ISP.it', Timeout => 50);

$smtp->mail('tuo_account a tuo_ISP.it');
$smtp->to('tuo_account a tuo_ISP.it');

$smtp->data();
$smtp->datasend("To: quello che tipare\n");
$smtp->datasend("From: sistema \n");
$smtp->datasend("Subject: Invio ultimo check\n");
$smtp->datasend("\n");
$smtp->datasend("Ciao PIPPO,\n");
$smtp->datasend("TEST di attestazione a nuvo IP:\n");
$smtp->datasend("$a è l'IP rilevato\n");
$smtp->datasend("\n");
$smtp->datasend("Sistema .");
$smtp->dataend();
$smtp->quit;

print $a;

system("rm pagina_con_ip.*");
system("rm foobar");