#!/usr/bin/perl ############################ # Get data from GET & POST # ############################ &parse_form; ################ # VARS defined # ################ $theDate = localtime; ################################## # Random numbers to be generated # ################################## my $range = 200; my $minimum = 1000000000; my $jobNum = int(rand($range)) + $minimum; #NEED CODE HERE TO DO SOME CHECKING AGAINST aj.db (Active Jobs) ################################## # Print out the page for editing # ################################## print "Content-type: text/html\n\n"; print " PC Job Tracker - Add Job [$input{'database'}]

PC Job Tracker | Add PC Job

Job #:

Client Data

First Name:

Last Name:

Phone Number:

Computer Info

Machine:

Date of Arrival:

Comments

"; ######################################## # Code to get the data from GET & POST # ######################################## 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; } }