marco_
04.09.05, 12:47
ich hab mir mal das Script von Toma angeschaut, das die Anzahl der Mails abruft:
#!/usr/bin/perl
use Net::POP3;
my $ServerName = $ARGV[0];
# If your username contains a @ character you
# must replace it with \@
my $UserName = $ARGV[1];
my $Password = $ARGV[2];
my $pop3 = Net::POP3->new($ServerName);
if (!$pop3) {
print "not online";
}
my $Num_Messages = $pop3->login($UserName, $Password) + 0;
if ( $Num_Messages == 1 ){
print $Num_Messages ."\n";
}
elsif ( $Num_Messages > 1 ){
print $Num_Messages ."\n";
}
else{
print "0\n";
}
$pop3->quit();
Nur will ich jetzt, dass er die Mails auch vom Server hohlt und abspeichert, gibt es bereits ein kleine Komandozeilen-Tool was das macht oder kann mir jemand sagen wie das zu lösen wäre?
#!/usr/bin/perl
use Net::POP3;
my $ServerName = $ARGV[0];
# If your username contains a @ character you
# must replace it with \@
my $UserName = $ARGV[1];
my $Password = $ARGV[2];
my $pop3 = Net::POP3->new($ServerName);
if (!$pop3) {
print "not online";
}
my $Num_Messages = $pop3->login($UserName, $Password) + 0;
if ( $Num_Messages == 1 ){
print $Num_Messages ."\n";
}
elsif ( $Num_Messages > 1 ){
print $Num_Messages ."\n";
}
else{
print "0\n";
}
$pop3->quit();
Nur will ich jetzt, dass er die Mails auch vom Server hohlt und abspeichert, gibt es bereits ein kleine Komandozeilen-Tool was das macht oder kann mir jemand sagen wie das zu lösen wäre?