#anmeldescript
#members.html
<form name="eing" method="post" action="./members.pl">
<align="center"><br>
Username: <input type="text" name="name">
<br>
Passwort: <input type="password" name="password" >
<br>
<input type="submit" value="Abschicken">
</div>
</form>
______________________________________________
#eigentliche Script
#members.pl
#!/usr/bin/perl -w
#standardtext der mir die gelieferten daten in das hash FORM schreibt:
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
#Hier werden die variablen definiert!
$right_url = "print.pl?name=$FORM{name}";
$wrong_url ="fehler.pl?name=$FORM{name}";
$PWfile = "PWfile.txt";
$richtig = 0;
#Öffnet mir die datei und schreibt sie mir in das array @members
open(DATEI,"<$PWfile") || die "Fehler beim Öffnen\n";
@members = <DATEI>;
close(DATEI);
#für jede zeile die kontrolle durchführen ob user und pw stimmen:
foreach $member(@members)
{
$semi = index($member,";");
chomp($USER = substr($member,0,$semi));
chomp($PW = substr($member,$semi +1));
if ($USER eq $FORM{name} && $PW eq $FORM{password})
{
$richtig=1;
break;
}
}
# naja und die abfrage auf die richtigkeit:
if($richtig eq 1)
{
print "Location: $right_url \n\n";
open (NAME, '>>Name.txt');
print NAME " $FORM{name} \n";
chop ($Satz);
close (NAME);
}
else
{
print "Location: $wrong_url \n\n";
}
_____________________________________________________
#print.pl (das ist das Problem Dokument)
#! /usr/bin/perl -w
$q = $ENV{'QUERY_STRING'};
($name, $w, $q,) = split(/=/, $q);
$w =~ tr/+/ /;
$w =~ s/%([a-fA-F0-9].)/pack("C", hex($1))/eg;
print "
<html>
<head>
<title>Hallo $w</title>
</head>
<body>
<h1>Herzlich Willkommen $w</h1>
Möchten Sie an unserer Umfrage teilnehmen?
</body>
</html>"
_________________________________________________
in der print.pl Datei müsste jetzt die Umfrage erscheinen,
welche ich leider nicht in das Script bekomme.
Ich habe statt der print.pl auch eine print.html datei versucht, die mir aber leider nicht den Namen schreibt.
das ist mein Problem.
Hoffe es kann mir jemand helfen.
