moonsword
so es sind ein paar zeilen drin, die sind nur zur übersicht und fehlersuche da.
mein Problem. Wenn ich die $host Variable direkt deklarier dann gehts, nur irgendwie so gehts nicht, jetzt find ich meinen Fehler nich
| code: |
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:
|
#!usr/bin/perl
use Net::POP3;
use Tk;
open (DATA,"<data.dat") || die "geht nicht";
@data = <DATA>;
#print $data[0]."\n".$data[1]."\n".$data[2]."\n\n";
$host = $data[0];
$user = $data[1];
$pass = $data[2];
print "MailLooker written by Jan Hoersch\n";
print "Thank you for using this programm...";
print "\n\nYou can exit this programm with [STRG] - [D]";
while(1){
$pop = Net::POP3->new($host) || die("Can't connect to host: ".$host);
$name = $pop->user($user);
$pwd = $pop->pass($pass);
if($name && $pwd){
$anzahl = $pop->last();
open (OUT,"anzahl.dat") || die "geht nicht";
defined ($old_anzahl = <OUT>);
if($anzahl != $old_anzahl){
open (IN, ">anzahl.dat") || die "schreiben funktioniert nicht";
print IN $anzahl;
close(IN);
my $fenster = MainWindow->new();
$fenster->Label(-text => "Sie haben Post\nSie haben $anzahl Mails in Ihrem Postfach")->pack();
MainLoop();
}
close(OUT);
#print "Anzahl: ".$anzahl." :: Alte: ".$old_anzahl."\n";
sleep(30);
}
else{
print "Sorry, there is a Failer in the Code.\n";
print "The Programm will be close";
<>;
}
} |
|
data.dat
| code: |
1:
2:
3:
4:
|
host
user
pass
|
|
anzahl.dat
//EDIT
Hat sich erledigt hab den Fehler gefunden
in der Variable $host war noch ein \n drin und dass musste erst raus
