#!/usr/local/bin/perl # order.pl # ITA online order form # 2/22/96 Brian Goldman # last modified 3/10/96 # This should match the mail program on your system. $mailprog = '/usr/sbin/sendmail'; # E-mail address of form recipient. $recipient = 'immigration@wave.net'; # Print out a content-type for HTTP/1.0 Compatibility print "Content-type: text/html\n\n"; print "\n"; # Print a title and initial heading print "
ITA On-Line Ordering - Order Summary\n"; print "

ITA On-Line Ordering

\n"; print "

Order Summary

\n"; print "
\n"; # Get The Input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Set varibles $ftotal = 0; $ototal = 0; $gtotal = 0; $ftotout = 0; $gtotout = 0; $m96 = 0; $m14 = 0; $m28 = 0; $cardnumber = ""; $cardtype = ""; $expiredate = ""; # Split The Name-value Pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/% ( [a-fA-F0-9] [a-fA-F0-9] ) /pack("C", hex($1))/eg; # Uncomment for debugging purposes # print "Setting $name to $value

"; $FORM{$name} = $value; } # Check for blank fields &blank_response unless $FORM{'name'}; &blank_response unless $FORM{'address'}; &blank_response unless $FORM{'city'}; &blank_response unless $FORM{'country'}; &blank_response unless $FORM{'zip'}; &blank_response unless $FORM{'phone'}; &blank_response unless $FORM{'cards'}; &blank_response unless $FORM{'cardno'}; &blank_response unless $FORM{'expdate'}; # -------------------------------------------------- if ( $FORM{'immusa'} ne ""){$ototal= $ototal + 79;} if ( $FORM{'saf'} ne ""){$ototal= $ototal + 59;} # ------------------------------------------------- open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n"; print MAIL "Reply-to: $FORM{'name'}\n"; print MAIL "Subject: ITA ORDER FORM\n\n"; print MAIL "----------------------------------------\n"; print MAIL "Name: $FORM{'name'}\n"; print MAIL "Company: $FORM{'name'}\n"; print MAIL "Address: $FORM{'address'}\n"; print MAIL "Address2: $FORM{'address2'}\n"; print MAIL "City: $FORM{'city'}\n"; print MAIL "State: $FORM{'state'}\n"; print MAIL "Country: $FORM{'country'}\n"; print MAIL "Zip: $FORM{'zip'}\n"; print MAIL "Phone: $FORM{'phone'}\n"; print MAIL "Fax: $FORM{'fax'}\n"; print MAIL "e-mail: $FORM{'email'}\n"; print MAIL "------------------------------------\n"; print MAIL "Cardtype: $FORM{'cards'}\n"; print MAIL "Cardnumber: $FORM{'cardno'}\n"; print MAIL "Exp. Date: $FORM{'expdate'}\n"; print MAIL "------------------------------------\n"; print MAIL "USA: $FORM{'immusa'}\n"; print MAIL "Scan-a-Form: $FORM{'saf'}\n"; print MAIL "-------------------------------------\n"; print "

"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ( $FORM{'9003'} ne "") { print "\n"; print MAIL "9003\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'empor'} ne "") { print "\n"; print MAIL "Emp-OR\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'emptx'} ne "") { print "\n"; print MAIL "Emp-TX\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'eoir26'} ne "") { print "\n"; print MAIL "EOIR-26\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'eoir27'} ne "") { print "\n"; print MAIL "EOIR-27\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'eoir28'} ne "") { print "\n"; print MAIL "EOIR-28\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'eoir33'} ne "") { print "\n"; print MAIL "EOIR-33\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'eta750a'} ne "") { print "\n"; print MAIL "ETA-750A\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'eta750b'} ne "") { print "\n"; print MAIL "ETA-750B\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'eta9029'} ne "") { print "\n"; print MAIL "ETA-9029\n"; $download = $download + 2; $ftotal = $ftotal + 5; } if ( $FORM{'eta9034'} ne "") { print "\n"; print MAIL "ETA-9034\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'eta9035'} ne "") { print "\n"; print MAIL "ETA-9035\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'fd258'} ne "") { print "\n"; print MAIL "FD-258\n"; $download = $download + 2; $ftotal = $ftotal + 2; } # --------------- FORM G-28 -------- if ( $FORM{'g28'} ne "") { print "\n"; print MAIL "G-28\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'g325'} ne "") { print "\n"; print MAIL "G-325\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'g325a'} ne "") { print "\n"; print MAIL "G-325A\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'g325b'} ne "") { print "\n"; print MAIL "G-325B\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'g325c'} ne "") { print "\n"; print MAIL "G-325C\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'g639'} ne "") { print "\n"; print MAIL "G-639\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'g652'} ne "") { print "\n"; print MAIL "G-652\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'g731'} ne "") { print "\n"; print MAIL "G-731\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'g884'} ne "") { print "\n"; print MAIL "G-884\n"; $download = $download + 2; $ftotal = $ftotal + 1; } # --------------- FORM I-9 ------- if ( $FORM{'i9'} ne "") { print "\n"; print MAIL "I-9\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'i17'} ne "") { print "\n"; print MAIL "I-17\n"; $download = $download + 2; $ftotal = $ftotal + 5; } if ( $FORM{'i20ab'} ne "") { print "\n"; print MAIL "I-20AB\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i20mn'} ne "") { print "\n"; print MAIL "I-20MN\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i90'} ne "") { print "\n"; print MAIL "I-90\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i94'} ne "") { print "\n"; print MAIL "I-94\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i94t'} ne "") { print "\n"; print MAIL "I-94T\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i94w'} ne "") { print "\n"; print MAIL "I-94W\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i95ab'} ne "") { print "\n"; print MAIL "I-95AB\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i102'} ne "") { print "\n"; print MAIL "I-102\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i104'} ne "") { print "\n"; print MAIL "I-104\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129'} ne "") { print "\n"; print MAIL "I-129\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129e'} ne "") { print "\n"; print MAIL "I-129E\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129f'} ne "") { print "\n"; print MAIL "I-129F\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129h'} ne "") { print "\n"; print MAIL "I-129H\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129l'} ne "") { print "\n"; print MAIL "I-129L\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129op'} ne "") { print "\n"; print MAIL "I-129OP\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129qr'} ne "") { print "\n"; print MAIL "I-129QR\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129s'} ne "") { print "\n"; print MAIL "I-129S\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i129sp'} ne "") { print "\n"; print MAIL "I-129SP\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i130'} ne "") { print "\n"; print MAIL "I-130\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i131'} ne "") { print "\n"; print MAIL "I-131\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i134'} ne "") { print "\n"; print MAIL "I-134\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i140'} ne "") { print "\n"; print MAIL "I-140\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i175'} ne "") { print "\n"; print MAIL "I-175\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i181'} ne "") { print "\n"; print MAIL "I-181\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'i190'} ne "") { print "\n"; print MAIL "I-190\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i191'} ne "") { print "\n"; print MAIL "I-191\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i192'} ne "") { print "\n"; print MAIL "I-192\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i193'} ne "") { print "\n"; print MAIL "I-193\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i212'} ne "") { print "\n"; print MAIL "I-121\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i213'} ne "") { print "\n"; print MAIL "I-213\n"; $download = $download + 2; $ftotal = $ftotal + 7; } if ( $FORM{'i243'} ne "") { print "\n"; print MAIL "I-243\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i246'} ne "") { print "\n"; print MAIL "I-246\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i256a'} ne "") { print "\n"; print MAIL "I-256A\n"; $download = $download + 2; $ftotal = $ftotal + 6; } if ( $FORM{'i290a'} ne "") { print "\n"; print MAIL "I-290A\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i290b'} ne "") { print "\n"; print MAIL "I-290B\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i356'} ne "") { print "\n"; print MAIL "I-356\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i360'} ne "") { print "\n"; print MAIL "I-360\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i361'} ne "") { print "\n"; print MAIL "I-361\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'i365'} ne "") { print "\n"; print MAIL "I-365\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i391'} ne "") { print "\n"; print MAIL "I-391\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i418'} ne "") { print "\n"; print MAIL "I-418\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i485'} ne "") { print "\n"; print MAIL "I-485\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i508'} ne "") { print "\n"; print MAIL "I-508\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i512'} ne "") { print "\n"; print MAIL "I-512\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i515'} ne "") { print "\n"; print MAIL "I-515\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i526'} ne "") { print "\n"; print MAIL "I-526\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i538'} ne "") { print "\n"; print MAIL "I-538\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i539'} ne "") { print "\n"; print MAIL "I-539\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i539sp'} ne "") { print "\n"; print MAIL "I-539SP\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i566'} ne "") { print "\n"; print MAIL "I-566\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'i589'} ne "") { print "\n"; print MAIL "I-589\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i590'} ne "") { print "\n"; print MAIL "I-590\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i591'} ne "") { print "\n"; print MAIL "I-591\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i600'} ne "") { print "\n"; print MAIL "I-600\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i600a'} ne "") { print "\n"; print MAIL "I-600A\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i601'} ne "") { print "\n"; print MAIL "I-601\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i602'} ne "") { print "\n"; print MAIL "I-602\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i612'} ne "") { print "\n"; print MAIL "I-612\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i643'} ne "") { print "\n"; print MAIL "I-643\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i644'} ne "") { print "\n"; print MAIL "I-644\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i690'} ne "") { print "\n"; print MAIL "I-690\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i693'} ne "") { print "\n"; print MAIL "I-693\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'i694'} ne "") { print "\n"; print MAIL "I-694\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i695'} ne "") { print "\n"; print MAIL "I-695\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i698'} ne "") { print "\n"; print MAIL "I-698\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i730'} ne "") { print "\n"; print MAIL "I-730\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i751'} ne "") { print "\n"; print MAIL "I-751\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i752'} ne "") { print "\n"; print MAIL "I-752\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i765'} ne "") { print "\n"; print MAIL "I-765\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'i797'} ne "") { print "\n"; print MAIL "I-797\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i805'} ne "") { print "\n"; print MAIL "I-805\n"; $download = $download + 2; $ftotal = $ftotal + 16; } if ( $FORM{'i817'} ne "") { print "\n"; print MAIL "I-817\n"; $download = $download + 2; $ftotal = $ftotal + 6; } if ( $FORM{'i821'} ne "") { print "\n"; print MAIL "I-821\n"; $download = $download + 2; $ftotal = $ftotal + 6; } if ( $FORM{'i824'} ne "") { print "\n"; print MAIL "I-824\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'i829'} ne "") { print "\n"; print MAIL "I-829\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'i833'} ne "") { print "\n"; print MAIL "I-833\n"; $download = $download + 2; $ftotal = $ftotal + 3; } # -------------- FORM M-132 -------------- if ( $FORM{'m132'} ne "") { print "\n"; print MAIL "M-132\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'m250'} ne "") { print "\n"; print MAIL "M-250\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'m349'} ne "") { print "\n"; print MAIL "M-349\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'m378'} ne "") { print "\n"; print MAIL "M-378\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'n300'} ne "") { print "\n"; print MAIL "N-300\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'n400'} ne "") { print "\n"; print MAIL "N-400\n"; $download = $download + 2; $ftotal = $ftotal + 6; } if ( $FORM{'n410'} ne "") { print "\n"; print MAIL "N-410\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'n426'} ne "") { print "\n"; print MAIL "N-426\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'n455'} ne "") { print "\n"; print MAIL "N-455\n"; $download = $download + 2; $ftotal = $ftotal + 8; } if ( $FORM{'n470'} ne "") { print "\n"; print MAIL "N-470\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'n565'} ne "") { print "\n"; print MAIL "N-565\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'n600'} ne "") { print "\n"; print MAIL "N-600\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'n643'} ne "") { print "\n"; print MAIL "N-643\n"; $download = $download + 2; $ftotal = $ftotal + 3; } if ( $FORM{'of230i'} ne "") { print "\n"; print MAIL "OF-230I\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'o230ii'} ne "") { print "\n"; print MAIL "OF-230II\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'of156'} ne "") { print "\n"; print MAIL "OF-156\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'of156e'} ne "") { print "\n"; print MAIL "OF-156E\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'ot12'} ne "") { print "\n"; print MAIL "OT-12\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr627'} ne "") { print "\n"; print MAIL "WR-627\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'wr663'} ne "") { print "\n"; print MAIL "WR-663\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr672'} ne "") { print "\n"; print MAIL "WR-672\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr702'} ne "") { print "\n"; print MAIL "WR-702\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr703'} ne "") { print "\n"; print MAIL "WR-703\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr705'} ne "") { print "\n"; print MAIL "WR-705\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'wr708'} ne "") { print "\n"; print MAIL "WR-708\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'wr709'} ne "") { print "\n"; print MAIL "WR-709\n"; $download = $download + 2; $ftotal = $ftotal + 4; } if ( $FORM{'wr713'} ne "") { print "\n"; print MAIL "WR-713\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr714'} ne "") { print "\n"; print MAIL "WR-714\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr715'} ne "") { print "\n"; print MAIL "WR-715\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr724'} ne "") { print "\n"; print MAIL "WR-724\n"; $download = $download + 2; $ftotal = $ftotal + 2; } if ( $FORM{'wr735'} ne "") { print "\n"; print MAIL "WR-735\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr744'} ne "") { print "\n"; print MAIL "WR-744\n"; $download = $download + 2; $ftotal = $ftotal + 1; } if ( $FORM{'wr751'} ne "") { print "\n"; print MAIL "WR-751\n"; $download = $download + 2; $ftotal = $ftotal + 2; } close (MAIL); # ------------------------------------------ # Set Varibles $fprice = $ftotal * 2; $gtotal = $fprice + $ototal; if ( $gtotal < 10 ){$gtotal = 10;} $ftotout = sprintf("%8.2f", $fprice); $gtotout = sprintf("%8.2f", $gtotal); $cardnumber = $FORM{'cardno'}; $cardtype = $FORM{'cards'}; $expiredate = $FORM{'expdate'}; $m96 = $download * 2.5; $m14 = $download * 2; $m28 = $download + 0; # Print visible data for user to see print "


"; print "Items ordered:"; print "
"; print " Description: Form Pages."; print "
"; print "Quanity: $ftotal"; print "
"; print " Price: $ftotout
"; if ( $FORM{'immusa'} ne "") { print "
"; print "Description: Immigration USA Personal Edition."; print "
"; print "Quanity: 1"; print "
"; print "Price:
79.00"; } if ( $FORM{'saf'} ne "") { print "
"; print "Quanity: 1"; print "
"; print "Description: Scan-A-Form."; print "
"; print "Price:
59.00"; } print "
"; print "The total cost for the items ordered is $gtotout dollars"; print "
"; print "This total will be charged to your $cardtype. Card number $cardnumber ."; print "
"; print "The estimated time to download these files is:"; print "
"; print " $m28 minutes with a 28,000 baud modem."; print "
"; print " $m14 minutes with a 14,400 baud modem."; print "
"; print " $m96 minutes with a 9600 baud modem."; print "
"; print "
"; print "\n"; print "
"; print "
"; print "
"; print ""; print ""; exit; # ------------------------------------------------------------- # Subroutine blank_response sub blank_response{ print "You failed to give the required information.
"; print "Please return to"; print ' ITA On-line Order Form '; print ""; print ""; exit;}