05-02-2001, 18:19
Hi!
Ich versuche ein kleines Webinterface in Perl zu schreiben. Darin sollen u.a. Programme ausgeführt werden. Um nun bei fetchmail zu wissen ob Mail da ist, muss ich die Exit-Codes abfragen. Ich bekomme aber immer nur 0 zurück. So sind meine Scripte aufgebaut:
---------------------------------------------
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html>\n<head>\n<title>E-Mail abholen</title>\n</head>\n<body>\n";
print "<h1>Bitte auf Ergebnis warten:</h1>\n
\n<h2>";
$status = (system "fetchmail");
if (status == 0)
{
print "Neue Mail!";
}
elsif (status == 1)
{
print "Keine Mail!";
}
elsif (status == 8)
{
print "E-Mails werden bereits abgehohlt!";
}
print "</h2>\n</body>\n</html>";
---------------------------------------------
Schonmal Thx für die Hilfe
Henne
Ich versuche ein kleines Webinterface in Perl zu schreiben. Darin sollen u.a. Programme ausgeführt werden. Um nun bei fetchmail zu wissen ob Mail da ist, muss ich die Exit-Codes abfragen. Ich bekomme aber immer nur 0 zurück. So sind meine Scripte aufgebaut:
---------------------------------------------
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html>\n<head>\n<title>E-Mail abholen</title>\n</head>\n<body>\n";
print "<h1>Bitte auf Ergebnis warten:</h1>\n
\n<h2>";
$status = (system "fetchmail");
if (status == 0)
{
print "Neue Mail!";
}
elsif (status == 1)
{
print "Keine Mail!";
}
elsif (status == 8)
{
print "E-Mails werden bereits abgehohlt!";
}
print "</h2>\n</body>\n</html>";
---------------------------------------------
Schonmal Thx für die Hilfe
Henne