#!/usr/bin/perl

# (c) NueDream Inc. 2000-2001

##### CHANGE THESE VARIABLES #####

$password = "bayesian";
$editurl = "http://mnstats.morris.umn.edu//cgi-bin/nuequiz/edit.cgi";

###### DONT CHAGE THIS CODE ######

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/~!/ ~!/g;  
	$FORM{$name} = $value;
}

if ($FORM{'pass'} eq $password) {
	print "Location: $editurl\n\n";
} else {
	print "Content-type:text/html\n\n";
	print "Invalid Password! Please hit the back button on your browser and try again!";
}

############## END ###############