Program Submission

#!/usr/bin/perl use CGI; # Sends Errors to Browser use CGI::Carp qw(fatalsToBrowser); $query = new CGI; $prog_file = "programs.txt"; $member_file = "../members/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< Program Submission

Program Submission

HOME >> Program Archives >> Program Submission

HEADING } sub pageend { print<

Problems with this page?
Contact the Webmaster. ENDING } sub form { print<Use this form to submit your programs one at a time. If you have more than one program that you want to submit, submit the first one and then come back to this form and submit the next one. The file you upload MUST be a zipped (.zip) file. If you have any screenshots, include them inside of the .zip file, but they have to be .gif, .jpg, or .jpeg. No other types will be accepted.

You must fill in every field in order to successfully send out the information. Filename must be in all lowercase letters.

INTRO if ($match eq 'no') { print "\n\n"; } if ($name_error) { print "\n"; } print "\n"; if ($username_error) { print "\n"; } print "\n"; if ($userid_error) { print "\n"; } print "\n"; if ($email_error) { print "\n"; } print "\n"; if ($title_error) { print "\n"; } print "\n"; if ($platform_error) { print "\n"; } print "\n"; if ($language_error) { print "\n"; } print "\n"; if ($genre_error) { print "\n"; } print "\n"; if ($description_error) { print "\n"; } print "\n"; if ($filename_error) { print "\n"; } print "\n"; if ($documentation_error) { print "\n"; } print "\n"; if ($ss_error) { print "\n"; } print "\n"; if ($update_error) { print "\n"; } print "\n"; if ($pud_error) { print "\n"; } print "\n"; print<

Name, User Name, and User ID\# you submitted do not match any member in the member database. Please enter information again. If you are not a member, you can apply for membership using the Members Sign-Up form. If you are a member and the problem persists, contact me.
\
	$name_error
Name:
	$username_error
User Name:
	$userid_error
User ID\#:
	$email_error
E-mail:
	$title_error
Program's Title:
	$platform_error
Program's Platform:	TI-83 TI-83 Plus
	$language_error
Program's Language:	BASIC Assembly
	$genre_error
Program's Genre:	Games Math Miscellaneous Science
	$description_error
Program's Description:
	$filename_error
Filename of Program:	.zip
	$documentation_error
Documentation Included?	Yes No
	$ss_error
Screenshot(s) Included?	Yes No
	$update_error
Update of Current Program?	Yes No
	$pud_error
Former PUD?	Yes No
\
Don't worry, you'll be sending the actual program soon.
\

ENDFORM } sub setvars { $name = $query->param('name'); $username = $query->param('username'); $userid = $query->param('userid'); $email = $query->param('email'); $title = $query->param('title'); $platform = $query->param('platform'); $language = $query->param('language'); $genre = $query->param('genre'); $description = $query->param('description'); $documentation = $query->param('documentation'); $ss = $query->param('ss'); $filename = $query->param('filename'); $update = $query->param('update'); $pud = $query->param('pud'); $dir = $platform . "/" . $language . "/" . $genre; } sub validform { $success = "yes"; if (!$name) { $name_error = "Please enter in your name"; $success = "no"; } if (!$username) { $username_error = "Please enter in your user name"; $success = "no"; } if (!$userid) { $userid_error = "Please enter in your User ID\#"; $success = "no"; } if ((!$email) || ($email !~ /^[\w-.]+\@[\w-.]+$/)) { $email_error = "Invalid or blank email address"; $success = "no"; } if (!$title) { $title_error = "Please enter in the title of your program"; $success = "no"; } if (!$platform) { $platform_error = "Please choose the platform of your program"; $success = "no"; } if (!$language) { $language_error = "Please choose the language your program was made in"; $success = "no"; } if (!$genre) { $genre_error = "Please choose the genre of your program"; $success = "no"; } if (!$description) { $description_error = "Please enter in a description of your program"; $success = "no"; } if (!$documentation) { $documentation_error = "Please choose whether you included documentation for the program"; $success = "no"; } if (!$ss) { $ss_error = "Please choose whether you included screenshots of the program"; $success = "no"; } if (!$filename) { $filename_error = "Please enter in the filename of your program"; $success = "no"; } if ($filename ne lc($filename)) { $filename_error = "Please enter in the filename in ALL lowercase letters"; $success = "no"; } if ($filename !~ /^[\w-]*$/) { $filename_error = "Only alphanumeric characters allowed"; $success = "no"; } if (!$update) { $update_error = "Please choose whether your program is an update of a current program"; $success = "no"; } if (!$pud) { $pud_error = "Please choose whether your program is a former PUD of this site"; $success = "no"; } open(PROGRAMS,$prog_file); my @programs = ; close(PROGRAMS); $there = "no"; foreach $program (@programs) { chomp($program); (@data) = split(/\|/,$program); if (($filename eq $data[0]) && ($dir eq $data[2])) { $there = "yes"; if ($update eq 'No') { $success = "no"; $filename_error = "Sorry, but that filename is already taken"; } } } if (($there eq 'no') && ($update eq 'Yes')) { $success = "no"; $filename_error = "Filename not found. You must use the same filename for update"; } open(MEMBERS,$member_file); my @members = ; close(MEMBERS); $match = "no"; foreach $member (@members) { chomp($member); (@info) = split(/\|/,$member); if (($name eq $info[1]) && ($username eq $info[2]) && ($userid eq $info[0])) { $match = "yes"; } } if ($success eq 'yes') { $success = $match; } 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
User ID\#: $userid
E-mail: $email
Title: $title
Category: $platform $language $genre
Description: $description
Filename: $filename
Documentation Included? $documentation
Screenshot(s) Included? $ss
Program Update? $update
Former PUD? $pud

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

CHECKPAGE }