Pop-Login-Script gesucht

[buebo]

Moin,
einer meiner E-Mail Provider (Strato) benutzt für seine SMTP-Server ausschliesslich SMTP-after-POP. Im Moment nehme ich um meine E-Mails zu verschicken 'getmail && msmtp', was aber manchmal zu Problemen führt.
Kennt jemand ein Script oder Programm das einfach nur einen POP-Login durchführt und dann die Verbindung unterbricht?

Gruß
buebo

P.S.: Ich weiss das es ziemlich trivial sein dürfte sowas zu scripten, aber ich bin im Moment nicht wirklich in Scripting-Laune.

 

[marten]

das ist doch sicherlich mit fetchmail zu machen, oder?

 

[sebbo]

#!/usr/bin/perl
use strict;
use Net::POP3;

my $host = 'mailhost';
my $user = 'user@host.tld';
my $pass = 'geheimespasswort';

my $pop = Net::POP3-> new($host);
if($pop->login($user, $pass)){
        print "Login erfolgreich\n";
} else {
        print "Login fehlgeschlagen\n";
}
$pop->quit;