#!/usr/bin/perl require "cgi-lib.pl"; &ReadParse; $email = $in{'visitor_email_address'}; $password = $in{'visitor_password'}; print &PrintHeader; if ($email eq "" && $password eq "") { print <<"PrintTag"; The Soccer Message Board! The The Soccer The Soccer Message The Soccer Message Board!

Welcome to the Soccer Message Board!

Error!

You forgot to fill in one or more of the fields below. Please try again.

The Soccer Message Board was started to help soccer players to find coaches and for coaches to find players. At the home page, you can conduct a message search, or post a message. You will also find this site extremely simple to navigate and use. If you have any questions or comments, please email us, so we can help make your visit to The Soccer Message Board more enjoyable!
IMPORTANT : If you are a first time user, you must input your email address in the text box below. Your email address can be any combination of letters and numbers 50 characters or less. Do not use your name! Your email address will be needed to continue through this site. If anyone posts a vulgar, degrading, or inappropriate message, the email addresses will be used to punish any perpetrators. THIS SITE WILL NOT RUN IF YOU DO NOT ACCEPT THE COOKIE THAT REMEMBERS YOUR EMAIL ADDRESS.

Your Email Address :
Your Password :

First time visitor? Just click here.


NOTE : If you do not have an email address, you may create one at Yahoo! for free. Just click here!

PrintTag exit; } if ($email !~ /.+\@.+\..+/) { print <<"PrintTag"; Error!

Error!

Please enter your email address in this format:

email\@address.com

Please try again.

PrintTag exit; } if (-e "lock.fil") { print <<"PrintTag"; File in use

Please try again!

The database is in use. Please try again later.
PrintTag exit; } else { open(LOCK_FILE, ">lock.fil"); open(FILE,">>data.txt") || die "Can't find database\n"; print FILE "$email|$password\n"; close(FILE); close(LOCK_FILE); unlink("lock.fil"); print <<"PrintTag"; Welcome!

Welcome!

(Please write this down)

Your email address is $email, and your password is $password
Please enter here.

PrintTag }