Opened by Gast at 2004-05-18 18:26
Hallo, habe folgendes Script mit dem ich eMails senden und Abrufen kann. Jetzt muss mit Hilfe einer IF-Abfrage geprüft werden, ob eine eMail im Postfach ist oder nicht. Wenn keine Drin ist soll eine Meldung ausgegeben werden. Ich versteh nicht was nicht geht. Ich werde noch verrückt
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
receive();
#sendmail();
sub sendmail {
use Net::SMTP;
use strict;
my($mailhost,$absender,$empfaenger);
$mailhost='HOST:25';
$absender='postfach';
$empfaenger='empfaenger@domain.de';
# Objekt erzeugen
my $smtp=Net::SMTP->new($mailhost);
# Absender und Empfaegner
$smtp->mail($absender);
$smtp->to($empfaenger);
# Beginne mit dem Senden des Kommandos DATA an den Server
$smtp->data();
# Sende nun die Daten an den Server
$smtp->datasend('Test');
#To: $empfaenger
#Subject: Testmail
#Test v.1
#__END
# Stoppe das senden der Daten an den Server
$smtp->dataend();
# Baue nun die Verbindung ab.
$smtp->quit();
}
sub receive {
use Net::POP3;
$username = 'test';
$password = '123456';
# Constructors
$pop = Net::POP3->new('HOST');
$pop = Net::POP3->new('HOST', Timeout => 60);
if ($pop->login($username, $password) > 0) {
my $msgnums = $pop->list; # hashref of msgnum => size
if($msgnums == ????????) {
print "Juhu.";
}
else {
print "Scheisse.";
}
foreach my $msgnum (keys %$msgnums) {
my $msg = $pop->get($msgnum);
print @$msg;
$pop->delete($msgnum);
}
}
$pop->quit;