PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Exitcodes in Perl



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