#!/usr/bin/perl

### Define Login and PW
$MeinLogin = "EinLogin";
$MeinPW    = "SuupergeheimesPW";
$SecretURL = "[URL=http://www.sonstewo.de/geheim.html;]http://www.sonstewo.de/geheim.html";[/URL]

### Read POST input
local ($i, $key, $val);
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
@in = split(/&/,$in);
foreach $i (0 .. $#in){ 
  ($key, $val) = split(/=/,$in[$i],2);
  $key =~ s/%(..)/pack("c",hex($1))/ge;
  $val =~ s/%(..)/pack("c",hex($1))/ge;
  $in{$key} = $val;
}

### Compare and forward to secret page
if(($MeinLogin eq $in{'login'}) && ($MeinPW eq $in{'userpw'})) {
  print "Location: $SecretURL\n\n";
} else {
  print "Falsches Login/Passwort!";
}