[FLUG] pop3umts.pl

Mailing List del Fortunae LUG
=============================

la mia esigenza era leggermi la posta dal mio cellulare umts
siccome la tariffazione della navigazione umts va un tot a kilobyte ho dovuto fa rimanere il tutto entro questo limite, facendo cosi` pare che non spendo nulla
e` ovviamente limitato, ho ridotto all`osso i tag, per ora e` possibile leggere solo il mittente e il subject della mail
ovviamente se ci sono 2000 mail il coso va oltre il kilobyte e scatta la tariffazione
questo e` il sorgente, ovviamente dovete avere un webserver che faccia girare i cgi in perl e dovete avere anche il modulo Net::POP3

il codice, ovviamente, e` una porcata, se fossi pignolo e avessi voglia lo migliorerei, pero` rimane cosi` per adesso
da buon coder non ho messo manco un commento

#!/usr/bin/perl
print "Content-Type: text/html\n\n";
use Net::POP3;
$pop=Net::POP3->new('POP3.SERVER');
$pop->login('USER', 'PASSWORD');
my $msgnums = $pop->list;

$i=0;
foreach my $msgnum (keys %$msgnums)
{
 $i=$i+1;
}

$j=1;
while($j<=$i)
{
 $msg=$pop->get($j);
 $elementi=@$msg;
 $incremento=0;
 print "$j|";
 while($incremento<=$elementi)
 {
   $robba=@$msg[$incremento];
   chomp($robba);
   if ($robba =~ /^From/)
   {
     $robba =~ s/.+<//;
     @array=split(/@/, $robba);
     $robba=@array[0];
     print $robba;
   }
   if ($robba =~ /^Subject/)
   {
     $robba =~ s/^Subject: //;
     print " - $robba<br />";
   }

 $incremento++;
 }
 $j++;
}
$pop->quit();


--
progetti della settimana:
http://sf.net/projects/reanimator/ - http://sf.net/projects/geccnuke/

Other related posts: