Make your own free website on Tripod.com

Punta Gorda Lodge 115
Free & Accepted Masons
25349 Airport Rd.
Punta Gorda, FL 33950

Mailing Address:
Punta Gorda Lodge No. 115
P.O. Box 511303
Punta Gorda, FL  33951-1303

Chartered ?, 19??

Cor. of Taylor Rd. & Airport Rd

Get Map

Communications:
7:30 PM - 1st & 3rd Thursdays


 

 Your ALT-Text here

#!/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 = "2b1"; $correctpass2 = "2B1"; $correcturl = "http://puntagordalodge115.tripod.com/OnlyMasons/masononly.htm"; $errorurl = "http://puntagordalodge115.tripod.com/OnlyMasons/masonpwerr.htm"; $scriptlocation = "http://puntagordalodge115.tripod.com/cgi-bin/password.cgi"; #$scriptlocation = "http://cgi.tripod.com/puntagordalodge115/cgi-bin/password.cgi"; # Read in form data &parse_form; $password = $input{'password'}; $function = $input{'function'}; if ($function eq "post") { if (($password eq $correctpass) or ($password eq $correctpass2)) { &goto_url; } #mbc &badpassword; print "Location: $errorurl\n\n"; } &ask_password; sub badpassword { print "Content-type: text/html\n\n"; print "\n"; print "Masons Only Invalid Password\n"; print "\n"; print "

Masons Only Invalid Password


\n"; print "
Use BACK button to enter the correct password

\n"; print "\n"; print "\n"; exit; } sub ask_password { print "Content-type: text/html\n\n"; print "\n"; print "Masons Only Login\n"; print "\n"; print "
Please Enter the Masons Only Password\n"; print "


\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "Use BACK button if you do not know the password\n"; print "
\n"; exit; } sub goto_url { print "Location: $correcturl\n\n"; } sub parse_form { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @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; $input{$name} = $value; } } [an error occurred while processing this directive] [an error occurred while processing this directive]
 Your ALT-Text here

Call Mike Comrie at
(800) 316-3578 for access.

 

On the Masons Only page, you'll find the 2003 Punta Gorda Lodge 115 Member Directory


Send mail to webmaster Mike Comrie webmaster@araba.org with questions or comments about this web site.
For content suggestions, contact Hank Beaudoin hrb30@cs.com
Copyright 2003
This site was last updated 12/14/04