Der HTML code sowie der Perl Code deuten darauf hin, dass das Skript Uralt sein muss (ich schätze mal aus der Zeit als das Internet Populär wurde ca. 1998). Das HTML würde jemand der Ahnung heute so nicht mehr schreiben.
Das was du uns vom Perl Skript gezeigt hast ist auch sehr urtümlich. Keine Fehlerprüfungen, es scheint nicht die strict zu sein und der HASH für die CGI Parameter deuten auf die Verwendung einer alten Bilbiliothek oder gar keine hin.
Ja, stimmt schon.
Der HTML-Code habe ich noch von meiner alten Webseite. (1997)
Das Script selbst wurde auch zu dieser Zeit entwickelt.
An die Werte deiner Checkbox kämst du mit dem, schon Siechfred genannten CGI Modul:
my @spiele = CGI::param('spiele');
habe ich mal ins Script eingefügt und ausgeben lassen, jedoch ohne erfolg.
In der jetzigen Form ist es schwer zu sagen, da es nicht klar ist wie der HASH %in befüllt wird.
Evtl. hilft dir dies weiter?
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$in=$ENV{'QUERY_STRING'};}
else {read(STDIN,$in,$ENV{'CONTENT_LENGTH'});}
@pairs = split(/&/, $in);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;
$in{$name} = $value;
}
#$verz = "/homepages/39/d23845066/htdocs/awardindex/awards";
$verz = "../../gildenindex/awards";
if ($in{Gildenname} eq "" || $in{Passwort} eq "" || $in{Gildenmeister} eq "" || $in{eMail}
eq "" || $in{PageURL} eq "" || $in{GrafikURL1} eq "" || $in{Gildenstory} eq "" ||
$in{Aufnahmebedingungen} eq "") {
#print "Location: /cgi-bin/aw-index/html.pl?error\n\n";
print "Location: ../../../cgi-bin/gildenindex/html.pl?error\n\n";
exit;
}