1
2
3
4
5
6
7
8
9
10
11
12
13
print "\nVerbinde Server..\n";
while(!$alive)
{
print ".";
$pop1 = new Mail::POP3Client( USER => 'user@googlemail.com',
PASSWORD => 'passwort',
HOST => 'pop.googlemail.com');
$alive = $pop1->Alive();
sleep 2;
}
print "\nServer verbunden";
$alive = 0;
1 2 3 4 5
$pop1 = new Mail::POP3Client( USER => 'user@googlemail.com', PASSWORD => 'passwort', HOST => 'pop.googlemail.com', DEBUG => 1 );
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
+OK POP server ready H miweb002
USER dasistgeheim@web.de
+OK password required for user "dasistgeheim@web.de"
PASS v1234zuiuetejezekeu999888
+OK mailbox "dasistgeheim@web.de" has 2 messages (39010 octets) H miweb002
LIST
+OK
1 23553
2 15457
.
RETR 1
+OK
MIME-Version: 1.0
From: "WEB.DE FreeMail" <keineantwortadresse@web.de>
To: WEB.DE Nutzer <dasistgeheim@web.de>
Subject: Entdecken Sie jetzt alle Vorteile Ihres neuen WEB.DE FreeMail
Accounts!
Content-Type: text/html; charset=iso-8859-1
Organization: http://freemail.web.de/
Content-Transfer-Encoding: 8bit
....
2012-04-20T18:09:38 rommiTatsächlich muss man 720 Sekunden warten bis das wieder was geht, ich kanns gar nicht glauben. Andere Provider andere Sitten :))
1 2 3 4 5 6 7
my $pop1 = new Mail::POP3Client( USER => 'user@googlemail.com', PASSWORD => 'passwort', HOST => 'pop.googlemail.com', DEBUG => 1, TIMEOUT => 10, USESSL => 1 );