So, Gmail war ja am Anfang ganz lustig, die Ajax Oberfläche, die Suche, die Labels und die Coolness einer @gmail Adresse. Jetzt heisst es aber umziehen, damit ich endlich endlich meinen eigenen Mailserver benutzen kann, und endlich wieder IMAP und ein vernünftiges Adressbuch habe.
Hier also das kleine nützliche Perl-Script das Gmail Mails an den lokalen cyrdeliver weitergibt, und dabei praktischerweise auch alle Header der Mails beibehält:
#!/usr/bin/perl
use Mail::Webmail::Gmail;
my $gmail = Mail::Webmail::Gmail->new(
username => 'user', password => 'pass',
);
my @labels = $gmail->get_labels();
foreach $label (@labels) {
my $messages = $gmail->get_messages( label => $label);
foreach ( @{ $messages } ) {
print $label." -> ".$_->{'id'};
open(FILE, '>'.$label.'___'.$_->{'id'});
open(CYRUS, '|/usr/sbin/cyrdeliver -m user.henrik.'.$label);
print CYRUS $gmail->get_mime_email( msg => $_ );
close(CYRUS);
print "... done\n";
}
}
Ich mag Perl 
0 Response to “gmail2imap”