#!/usr/local/bin/perl
##################################################################################
# Password Protector Script
# Copyright 1996 Techno Trade http://www.technotrade.com
# Written By : Sammy Afifi sammy@technotrade.com
# Date Last Modified : Oct 22, 1996
##################################################################################
#
# This script is free of charge for non-commercial sites.
# Please refer to our web site for registering this script for commercial use.
#
##################################################################################
# Change these variables with your own values
$correctpass = "helphelphelp";
$correcturl = "http://gothik.proboards.com";
$scriptlocation = "http://technotrade.com/password/password.cgi";
# Read in form data
&parse_form;
$password = $input{'password'};
$function = $input{'function'};
if ($function eq "post") {
if ($password eq $correctpass) {
&goto_url;
}
&badpassword;
}
&ask_password;
sub badpassword {
print "Content-type: text/html\n\n";
print "\n";
print "Invalid Password\n";
print "\n";
print "