nicht angemeldet
Hallo,
ich schau mir diesen winzigen Code wahrscheinlich schon zu lange an und sehe überhaupt nicht, welche Kleinigkeit nicht funktioniert.
Folgende Fehlermeldung wird ausgespuckt:
Undefined subroutine &main::param called at modularisierung.pl line 11.
Und das ist der Code dazu, kann mir jemand da weiterhelfen?
#!/usr/local/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
print "content-type: text/html\n\n";
print "<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">\n";
my $url = "http://www.meinedomain.de/ordner";
if ((param("Benutzer") eq "vogel") and (param("Pass") eq "beere")) { ### line11
print <<END;
<head>
<meta http-equiv="refresh" content="1"; URL="$url/multiplikatoren">
</head>
<body>
Sollte die automatische Weiterleitung nicht funktionieren, klicken Sie bitte <a href="$url/multiplikatoren">hier...</a>
</body>
</html>
END
} else {
print <<END;
<head>
<meta http-equiv="refresh" content="1"; URL="$url/error.html">
</head>
<body>
Sollte die automatische Weiterleitung nicht funktionieren, klicken Sie bitte <a href="$url/error.html">hier...</a>
</body>
</html>
END
}
Vielen Dank, Robin