Erik P. Roderwald schrieb:

Hallo zusammen,

On Mittwoch 02 Juni 2010, Joerg Thuemmler wrote:

...

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.ä.?

Spontan fällt mir telnet und netcat ein. Letzteres ist wahrscheinlich besser, wenn Du pipen willst. Hier habe ich ein Skript gefunden (ungeprüft), was sowas machen soll:

http://tinyurl.com/358evvs

Liebe Grüße

Erik

Hi, ja, mit netcat auf die Box + top müßte was zu machen sein, werde mich mal etwas reinvertiefen. Telnet im "Batchmodus" sieht mir etwas zu krude aus, aber netcat versteht ja i/o-Umlenkungen wohl perfekt... Danke cu jth -- 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

Christian Paul schrieb:

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...

Hi, danke, daran bastle ich gerade. Allerdings in bash, da ich mich mit perl immer nicht so recht anfreunden kann (liegt an mir, gebe ich zu ;-) ). Einziger Wermutstropfen bislang: die benötigten Verzögerungen (netcat -i 1), weil sonst die top und list-Befehle ins leere laufen. Vielleicht geht das im Perl besser (im Grunde bräuchte ich die Verzögerung wohl nur nach dem "pass <geheim>", weil der Mailserver hier offensichtlich eine kleine Pause macht, netcat aber unverdrossen weitermacht, wenn es aus Dateien liest). Danke jedenfalls cu jth -- 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

Hallo, Am Don, 03 Jun 2010, Erik P. Roderwald schrieb:

On Donnerstag 03 Juni 2010, Joerg Thuemmler wrote:

...

Vielleicht geht das im Perl besser

Du liest ja in Perl die Datei zeilenweise über eine foreach-Schleife aus. Man könnte z. B. in die foreach-Schleife am Ende eine if-Anweisung schreiben. Ungefähr so:

Unnötig. Um den ganzen Kram kümmert sich schon Net::POP3. Genau deswegen will man ja perl statt bash/netcat zu verwenden. BTW: netcat ist überflüssig, die bash kann das auch selber. exec 3<>/dev/tcp/MAILHOST/110 echo "USER" >&3 read <&3 ... Aber es ist mühsam, selber direkt POP3 zu reden, geschweige den POP3S oder gar IMAPS ... Mit Perl alles kein Problem. -dnh --

Leider Gottes ist es so, daß wenn man einen Spammer zu Strecke gebracht hat, dafür drei neue auftauchen. Das ist wie bei den Fliegen. Schlägst Du eine Tot, kommen 40 zur Beerdigung. ;) [> Martin Mewes und Michael Raab in suse-linux] -- 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

Hallo, Am Fre, 04 Jun 2010, Joerg Thuemmler schrieb:

David Haller schrieb:

...

Unnötig. Um den ganzen Kram kümmert sich schon Net::POP3. Genau deswegen will man ja perl statt bash/netcat zu verwenden. [..] ja, Danke. Ihr habt mir wieder mal bewiesen, dass die Welt ohne Perl nix ist ;-)

man perlintro ;) Es gibt hervorragende Einsteigerdoku. Und perl gibt's quasi überall und immer vorinstalliert. Außer auf Windows, da muß man's nachinstallieren. Einzelne Module können fehlen, die kann man ggfs. in sein ~/ nachinstallieren, wenn man keinen anderen Zugriff hat. Bei SUSE hängt übrigens schon das Boot-Krams von perl ab[1]. Und so ab ca. 5-10 ext. Programm-Aufrufen(!) (sed,grep usw.) lohnt es sich perl zu verwenden (rein von der Laufzeit her). Perl kann man sehr lesbar schreiben -- aber auch sehr unlesbar. -dnh [1] wenn ich mehr Zeit hätte würd ich mir das mal vornehmen, das ist z.Z. bei SUSE ein recht komplexes Gewurstel aus eher weniger sauberern Perlscripten... -- "[Film-] Schnitte sind fuer feige Verlierer" -- Leander Haussmann -- 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

Christian Paul schrieb:

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...

Hi, Nachdem ich das script getestet habe und es nicht so lief, wie erwartet, ist es mir tatsächlich gelungen, das Problem (welches vielleicht der Mailserver unseres Providers hat) zu lösen. Ich weiß nicht, was standardmäßig ein LIST zurückzuliefern hat, bei uns kommt 1 13114 2 34252 3 334242 ... 12 33445 . ohne header o.ä. Damit ich header sehe, muß ich TOP <msgnr> 0 (0=nur Header oder >0, wenn ich Text will) verwenden. Clever, wie ich bin ;-) , habe ich also nach

# Nur From: und Subject anzeigen:

ein $header = $mailserv->top( $message ); eingefügt. Jetzt funzts... außerdem ist es mir gelungen, mit $hostname = $ARGV[0]; ... den konkret abgefragten account von der cmdline zu übernehmen. Alles in allem ist das doch schon ein großer Schritt auf dem Weg zum Perl-Experten, oder ;-) Thx & cu jth -- 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