[FLUG] inauguriamo
- From: Gecco th Rulez <gecco@xxxxxxxxxxxxxx>
- To: fanolug@xxxxxxxxxxxxx
- Date: Mon, 10 Dec 2001 19:47:42 +0100
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:
