DSL Request

#!/usr/bin/perl # Database for DSL Request System # 10 Oct 1999 # Webmaster@wickedmind.com require '/home/httpd/cgi-bin/config.pl'; &AssignVariables; &AssignTicket; &WriteData; &PrintDetails; &WriteNum; sub AssignVariables { $salesid = $FORM{'salesid'}; $customername = $FORM{'customername'}; $area = $FORM{'area'}; $suffix = $FORM{'suffix'}; $last4 = $FORM{'last4'}; $phone1 = "$FORM{'suffix'}-$FORM{'last4'}"; $address = $FORM{'address'}; $address2 = $FORM{'address2'}; $city = $FORM{'city'}; $state = $FORM{'state'}; $zip = $FORM{'zip'}; $area2 = $FORM{'area2'}; $suffix2 = $FORM{'suffix2'}; $last42 = $FORM{'last42'}; $phone2 = "$FORM{'suffix2'}-$FORM{'last42'}"; $telco = $FORM{'telco'}; $received = $FORM{'received'}; $email = $FORM{ 'email'}; $customer = $FORM{'customer'}; $username = $FORM{'username'}; $advert = $FORM{'advert'}; $loopqual= $FORM{'loopqual'}; $address =~ s/\cM//g; $address =~ s/\n/ /g; $date = `date +"%D"`; $time = `date +"%R"`; chop ($date); chop ($time); } sub AssignTicket { open (NUMBER,"$countfile"); flock(NUMBER, $lock); $ticket = ; flock(NUMBER, $unlock); close(NUMBER); $ticket++; } sub WriteData { open (DFILE, ">>$datafile"); flock(DFILE, $lock); print DFILE "$ticket\;$date|$time|$salesid|$customername|$area|$phone1|$address|$address2|$city|$state|$zip|$area2|$phone2|$telco|$received|$email|$customer|$username|$advert|$loopqual\n"; flock(DFILE, $unlock); close(DFILE); } sub PrintDetails { print "Content-type: text/html\n\n"; print "\n"; print "DSL Request\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "

\n"; print "\n"; print "
\n"; print "
The DSL request has been submitted to our database. Here are the details of the request:
\n"; print "
\n"; print "Sales Id: $salesid
\n"; print "Customer Name: $customername
\n"; print "Area Code: $area
\n"; print "Suffix: $suffix
\n"; print "Last 4: $last4
\n"; print "Address: $address
\n"; print "Address 2: $address2
\n"; print "City: $city
\n"; print "State: $state
\n"; print "Zip: $zip
\n"; print "Area2: $area2
\n"; print "Suffix2: $suffix2
\n"; print "Last 4-2: $last42
\n"; print "Email: $email
\n"; print "Telco: $email
\n"; print "Received: $received
\n"; print "Customer: $customer
\n"; print "Username: $username
\n"; print "Advert: $advert
\n"; print "LoopQual: $loopqual\n"; print "
\n"; print "Click here to go back\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; } sub WriteNum { open (NUM,">$countfile") || die "Can't append to $countfile\n"; flock(NUM, $lock); print NUM "$ticket"; flock(NUM, $unlock); close(NUM); exit; } sub PrintError { print "Content-type: text/html\n\n"; print "\n"; print "Support Request: ERROR\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "ERROR!\n"; print "

\n"; print "

\n"; print "\n"; print "
\n"; print "
The following error(s) occurred while processing your input. Here are the detials:
\n"; print "
\n"; print "$message\n"; print "
\n"; print "
Click here to go back\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; exit; }