Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

Beatnik (493)

Beatnik
  (email not shown publicly)
http://www.ldl48.org/

A 29 year old belgian who likes Mountain Dew, Girl Scout Cookies, Tim Hortons French Vanilla Flavoured Cappucinno, Belgian beer, Belgian chocolate, Belgian women, Magners Cider, chocolate chipped cookies and Perl. Likes snowboarding, snorkling, sailing and silence. Bach can really cheer him up! He still misses his dog.

Project Daddy of Spine [sf.net], a mod_perl based CMS.

In his superhero time (8.30 AM to 5.30 PM), he works on world peace.

Journal of Beatnik (493)

Monday June 09, 2003
04:43 PM

NOT FUNNY! The Sequel

[ #12709 ]
5 and a half hours later, all mails are in. All of them are duplicates. Upgrading Evolution apparently resets the flag to indicate which mails are new and which are not. It also involves cleaning up your inbox again. I probably missed couple of hundreds but most of the 2635 mails, were deleted.

use Net::POP3;

my $client = Net::POP3->new('mail.host.com');
$client->login('user','password');
for $mesgnum (keys %{ $client->list })
{ $client->delete($mesgnum); }
$client->quit;
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.