nicht angemeldet
param auslesen
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
-
ich schau mir diesen winzigen Code wahrscheinlich schon zu lange an und sehe überhaupt nicht, welche Kleinigkeit nicht funktioniert.
Das wird Dir doch gesagt:
Undefined subroutine &main::param called at modularisierung.pl line 11.
Die Sub param ist keine Standardfunktion, sondern Bestandteil eines externen Moduls, das Du entweder selber geschrieben hast oder das bereits existent ist (param deutet auf CGI hin). Egal, welcher Fall vorliegt, einbinden musst Du das Modul natürlich auch, so wie Du es mit strict und CGI::Carp ja schon gemacht hast.
Siechfred
--
Obacht, hinter jedem noch so kleinen Busch könnte ein Indianer sitzen!-
use CGI qw(param url); na klar
Danke, Robin
-