Joels Page

This Site Is Always Under Contruction

My Stuff

Username
Password

"; print "Content-type: text/html\n\n"; open (pass, "$AUTHFILE") || die "can't open passwd file\n"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if ($ENV{'CONTENT_LENGTH'} == 0) { print $HTTPTEXTFORM; exit;} @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; $fromweb{$name} = $value; } while () { ($login, $passwd) = split(/=/, $_); $passwd =~ s/\W//; $fromfile{$login}=$passwd; } close (pass); if ($fromweb{"pass"} ne $fromfile{$fromweb{"logi"}}) {print "Sorry, password you are enter is not valid. Use you browser BACK button to try again";} else {&somefunctions;} sub somefunctions { }
Ja

Click here to get a passvascript is required to access this area. Yours seems to be disab

C lick here for my pictures

Click here for my other files

My Other shitty site

Sign my guestbook

Read my guest book