[FLUG] inauguriamo

Mailing List del Fortunae LUG
=============================
ed ecco il programma definitivo, in pratica l'ho pensato da far girare
nel server della scuola, il quale ha l'adsl attaccata tutta la notte e
nessuno che la sfrutta, e non si riesce nemmeno ad accedere
dall'esterno, in pratica si manda una mail con scritto nel testo :

scarica;http://qualcosa.boh//dir/file.estensione

lui si connette al server pop3, scarica l'ultima mail che gli e'
arrivata, legge dentro il testo, vede se c'e' scritto la stringa per
scaricare il file, e si mette a scaricarlo con wget
tutto qua, basta metterlo nel crontab che tipo lo lancia alle 8 di sera,
o piu' tardi, cosi' uno si e' premunito di mandargli la mail, e la
mattina arriva che c'ha la sua sfilza di file gia' scaricati, che uno
con un 56k senno' muore
domani, senza dire nulla a romagnoli :), lo sperimento


#!/usr/bin/perl
$user="USER";
$pwd="PASSWORD";
$pop3="POP3";

 print "ora vedo se ci sono link e li scarico\n";

 use Net::POP3;
 $pop = Net::POP3->new($pop3);
 $pop->login($user, $pwd);
 @n = $pop->popstat();
 $msg = $pop->get(@n[0]);
 $pop->quit();

$tot = @$msg;
$a=0;
while($a < $tot)
{ 
        @nome = split(/;/, @$msg[$a]);
        if ($nome[0] eq "scarica")
        {
        print "okei, c'e' della roba, si, mo, mo... mo me lo segno\n";
        $comando="wget $nome[1]";
        system($comando);
        }
        else
        { print ".";}
        $a++
}

-- 
Machine gave me some freedom.
Sia lodato Linus Torvalds!

Other related posts: