Passwort eingabe --> Quelltext

[Torwächter]

hab die exit; Befehler vergessen:

Dieses Script ist neu:

pass.pl:
-----------------------------(Diese Zeile nicht eintragen)

#!/usr/bin/perl -w

#Wenn du dieses Script benutzt, würde ich mich über einen Link auf
#www.manga-zone.com freuen.
#Hier deine Daten:

#Dein Passwort:
$passwort = "Pass";

#Bei richtiger Eingabe zu dieser Url:
$site = "http://www.deine-seite.de";

#Was tun bei falscher eingabe ?
#Wenn interne Fehlerseite angezeigt werden soll:
$intern = "yes";

#bei $intern = "no"; zu dieser Url:
$wrong = "http://www.deine-fehlerseite.de";

################# Well Done ################
############################################
############################################

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
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;
        $FORM{$name} = $value;
}

if ($FORM{'Pass'} eq $passwort)
{
print "location: $site";
exit;
}
else
{
  if {$intern eq "yes")
  {
    print "Content-type: text/html\n\n";
    print "Der Zugriff wurde verweigert, da das Passwort falsch war.
    exit;
  }
  else
  {
    print "location: $wrong";
    exit;
  }
}

-----------------------------(Diese Zeile nicht eintragen)

Viele Grüße
Torwächter