Am Mittwoch, 2. Juni 2010 12:57:09 schrieb Joerg Thuemmler: Hallo Jörg,
kennt jemand von Euch ein tool, mit dem man sich die Header aller auf einer pop3-Box liegenden Mails auf der commandline so runterladen kann, dass man sie irgendwo reinpipen kann o.ä.?
okay, ich hab sowas mal mit perl gemacht ... ---------------------------------------------------------------------------------------- #!/usr/bin/perl use Net::POP3; use Digest::MD5; #brauchts nur bei apop $hostname = "<popservername>"; $username = "<username>"; $password = "password"; $cnt = 1; # Pop - Server anrufen: $mailserv = new Net::POP3 ( $hostname ); unless ( $mailserv ) { die "Could not connect to Server $hostname; $!\n"; } $num_msg = $mailserv->login( $username, $password ); # ab hier schreiben wir nach outputfile ... open(OUTFILE, ">/tmp/outfilename.txt") or die " Datei konnte nicht geoeffnet werden: $!\n"; print OUTFILE "Total $num_msg messages\n"; # Aller Header abrufen: $headers = $mailserv->list(); foreach $message (keys ( %$headers ) ) { $size = $mailserv->list( $message ); # wir geben zuerst die groesse aus ... print OUTFILE "$cnt\n"; print OUTFILE $size; print OUTFILE "\n"; # Nur From: und Subject anzeigen: foreach $line (@$header ) { if ( ( $line =~ /^Subject/ ) || ( $line =~ /^From/ ) ) { print OUTFILE $line; } } print OUTFILE "ENDE\n"; # Leerzeile zwischend den Zeilen $cnt = $cnt + 1; } # Vebindung beenden $mailserv->quit(); close OUTFILE ---------------------------------------------------------------------------------------------- sicherlich mit Verbesserungspotential, aber lief bis vor einiger Zeit ohne Probleme... -- Beste Grüße Christian Paul Why you can't find your system administrators: Is engaged in a staring contest with a pack of evil dogs -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org