HI,
Ich habe zu meinem Thema schon einmal gepostet aber es ist so lange her, dass der Beitrag jetzt zu weit unten steht ;-)
Perl-Programm:
#!/usr/bin/perl
$online = '../opensign.gif';
$offline = '../flammeblau.jpg';
print "Content-type: text/html\n\n";
print '<html>';
print '<head>';
print '<title> FTP-Server </title>';
print '</head>';
print '<body>';
if ( -e $online )
{
print "<img src='$online'>";
}
else
{
print "<img src='$offline'>";
}
print '</body>';
print '</html>';
Fehlermeldung:
Subroutine cwd redefined at C:/Perl/lib/Cwd.pm line 397
Subroutine getcwd redefined at C:/Perl/lib/Cwd.pm line 398
Subroutine fastcwd redefined at C:/Perl/lib/Cwd.pm line 399
Subroutine fastgetcwd redefined at C:/Perl/lib/Cwd.pm line 400
Subroutine abs_pathcwd redefined at C:/Perl/lib/Cwd.pm line 401
Wisst ihr, was diese Fehlermeldungen bedeuten ? Für die Leute, die meinen Beitrag weiter unten gelsen haben: Die Tipps haben leider nicht funktioniert und die Perl-Documentation ist auf Englisch und das kann ich nicht gerade gut ;-|
Naja Danke jedenfalls
Milka Kuh (bin m also eigentlich Ochse)