Members Sign-Up

#!/usr/bin/perl use CGI; # Sends Errors to Browser use CGI::Carp qw(fatalsToBrowser); $query = new CGI; $member_file = "members.txt"; if (!$query->param()) { &pagestart; &form; &pageend; } else { &setvars; if (&validform eq 'yes') { &pagestart; &checkpage; &pageend; } else { &pagestart; &form; &pageend; } } sub pagestart { print $query->header; print< Members Sign-Up

Members Sign-Up

HOME >> Members >> Members Sign-Up

HEADING } sub pageend { print<

Problems with this page?
Contact the Webmaster. ENDING } sub form { print<Having membership with BASIC Guru Online allows you to receive updates to the site through email, an addition of a link to your site in the Links Page, an advanced copy of soon-to-be released programs, along with other things.

DO NOT use this form if you are currently a member and want to change your member profile information. Use the Change Member Info form to do that.

* Indicates that you must fill in an answer. Leave all fields that aren't applicable or you don't want to answer blank, except for the ones with a star by them. DO NOT put "n/a" or something similar for a field that isn't applicable or that you don't want to fill in.

INTRO if ($name_error) { print "\n"; } print "\n"; if ($username_error) { print "\n"; } print "\n"; if ($email_error) { print "\n"; } print< MIDDLEFORM if ($calcown_error) { print "\n"; } print<

	$name_error
*Name:
	$username_error
*User Name:
	$email_error
*Email:
Age:
City:
AIM:
Yahoo! Messenger:
ICQ:
Name of Website:
Website Address:
Description of Website:
\	\
	$calcown_error
*Calculator(s) Owned:	TI-73 TI-80 TI-81 TI-82 TI-83 TI-83 Plus TI-85 TI-86 TI-89 TI-92 TI-92 Plus Other
\	\
Calculator(s) Programmed For:	TI-73 TI-80 TI-81 TI-82 TI-83 TI-83 Plus TI-85 TI-86 TI-89 TI-92 TI-92 Plus Other
\	\
Calculator Language(s) Known:	BASIC ASM Other
\	\
Computer Language(s) Known:

Other Info About Yourself:

Would you like to recieve updates to the site, site news, and other important things via email when they occur?
Yes No

ENDFORM } sub setvars { $name = $query->param('name'); $username = $query->param('username'); $email = $query->param('email'); $age = $query->param('age'); $city = $query->param('city'); $aim = $query->param('aim'); $yahooid = $query->param('yahooid'); $icq = $query->param('icq'); $webname = $query->param('webname'); $webaddy = $query->param('webaddy'); if ($webaddy eq "http://") { $webaddy = ""; } $webdes = $query->param('webdes'); @calcown = $query->param('calcown'); $calcown = ""; $numcalcs = scalar @calcown - 1; foreach $calc (@calcown){ $calcown .= $calc; if ($calc ne $calcown[$numcalcs]) { $calcown .= ", "; } } @calcprog = $query->param('calcprog'); $calcprog = ""; $numprogs = scalar @calcprog - 1; foreach $prog (@calcprog) { $calcprog .= $prog; if ($prog ne $calcprog[$numprogs]) { $calcprog .= ", "; } } @calclang = $query->param('calclang'); $calclang = ""; $numlangs = scalar @calclang - 1; foreach $lang (@calclang) { $calclang .= $lang; if ($lang ne $calclang[$numlangs]) { $calclang .= ", "; } } $complang = $query->param('complang'); $otherinfo = $query->param('otherinfo'); $updates = $query->param('updates'); } sub validform { $success = "yes"; if (!$name) { $name_error = "You need to enter in your name for your profile"; $success = "no"; } if (!$username) { $username_error = "You need to enter in a user name for your profile"; $success = "no"; } if ((!$email) || ($email !~ /^[\w-.]+\@[\w-.]+$/)) { $email_error = "Invalid or blank email address"; $success = "no"; } if (!@calcown) { $calcown_error = "Please choose a calculator that you own"; $success = "no"; } open(MEMBERS,$member_file); my @members = ; close(MEMBERS); $there = "no"; foreach $member (@members) { chomp($member); (@data) = split(/\|/,$member); if ($username eq $data[2]) { $there = "yes"; $username_error = "Sorry, but that User Name is already taken"; $success = "no"; } if ($name eq $data[1]) { $there = "yes"; $name_error = "Sorry, but that Name is already taken"; $success = "no"; } } return $success; } sub checkpage{ print<

Here is the information that you submitted. Check over it to make sure that everything is correct.

Name: $name
User Name: $username
E-mail: $email
Age: $age
City: $city
AIM: $aim
Yahoo! Messenger: $yahooid
ICQ: $icq
Name of Website: $webname
Website Address: $webaddy
Description of Website: $webdes
Calculator(s) Owned: $calcown
Calculator(s) Programmed For: $calcprog
Calculator Language(s) Known: $calclang
Computer Language(s) Known: $complang
Other Info About Yourself: $otherinfo
Recieve Email Updates? $updates

If any of the information you see above is incorrect, GO BACK and reenter the correct information. If everything is correct, click on SEND APPLICATION below.

CHECKPAGE }