Login

#!/usr/local/bin/perl use strict; my ($buffer, @query, $p, $n, $v, %Q, $sel, $fail, $ip, $who, $w); my ($LoginPage, $LogoutPage, $LogoutCPage, $LogoutTPage, $DefaultPage, $DefaultTPage, $DefaultCPage, $FailedPage); print "Content-type: text/html\n\n"; $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @query = split(/&/, $buffer); } elsif ($ENV{'REDIRECT_REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @query = split(/&/, $buffer); @query = split(/&/, $ENV{'QUERY_STRING'}, $buffer); } else # GET Method {@query = split(/&/, $ENV{'QUERY_STRING'});} $buffer = ""; foreach $p (@query) { ($n, $v) = split(/=/, $p); $v =~ tr/+/ /; $v =~ s/%(..)/pack("C", hex($1))/eg; $Q{$n} = $v; } ($p, $n, $v) = ("","",""); @query = (); $sel = $Q{'q'}; $who = $Q{'w'}; $fail = $ENV{'REDIRECT_REMOTE_USER'}; $ip = $ENV{'REMOTE_ADDR'}; if ($who) { $w = " + \"?w=$who\""; } $LoginPage = < Login

LoginPage $FailedPage = < Login

FailedPage $LogoutPage = < Youngs Security

	Are you ready to play?	Secure Login
You have been logged out.

LogoutPage $DefaultPage = < ET DnD Table

	Are you ready to play?	Secure Login

DefaultPage # Soon to be NewUser page $DefaultTPage = < Youngs Security

	Are you ready to play?	Secure Login

DefaultTPage if ($sel eq "i") { if ($fail) { print $FailedPage; } else { print $LoginPage; } } elsif ($sel eq "o") { if ($who eq "t") { print $LogoutTPage; } elsif ($who eq "c") { print $LogoutCPage; } else { print $LogoutPage; } } else { if ($who eq "t") { print $DefaultTPage; } elsif ($who eq "c") { print $DefaultCPage; } else { print $DefaultPage; } }