[an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]
 
[an error occurred while processing this directive] [an error occurred while processing this directive]
Skåne Sjælland Linux User Group - http://www.sslug.dk Home   Subscribe   Mail Archive   Forum   Calendar   Search
MhonArc Date: [Date Prev] [Date Index] [Date Next]   Thread: [Date Prev] [Thread Index] [Date Next]   MhonArc
 

perl: Mail::WebMail::Gmail delete trash problemer



Hejsa,
  Jeg har skrevet nedenstående lille script til at slette alt mine
emails in trash i google-mail,
da de ikke bliver automatisk slettet, som de burde. 
Men det virker ikke. Alle mine trash-email er der stadigvæk.
Hvad er der mon galt (udover at xxx ikke er mit password ) ?


use Mail::Webmail::Gmail;

my $gmail = Mail::Webmail::Gmail->new(
  username => 'traxplayer', password => 'xxx' );

print STDERR "login.\n";
my $trash = $gmail->get_messages( label =>
$Mail::Webmail::Gmail::FOLDERS{ 'TRASH' } );

print STDERR "got trash.\n";

my $count=0;
foreach ( @{ $trash } ) {
    $count++;
    $gmail->delete_message(msgid => $_->{'id'} );
}

print "$count deleted.\n";







-- 
"All general statements are false."
"If atheism is a religion, then not collecting stamps is a hobby."


 
Home   Subscribe   Mail Archive   Index   Calendar   Search

 
 
Questions about the web-pages to <www_admin>. Last modified 2005-08-10, 22:44 CEST [an error occurred while processing this directive]
This page is maintained by [an error occurred while processing this directive]MHonArc [an error occurred while processing this directive] # [an error occurred while processing this directive] *