#!/usr/local/bin/perl # Download.pl # ITA online order form # 2/28/96 Brian Goldman # last modified 3/10/96 # 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 - Download\n"; print "

ITA On-Line Ordering

\n"; print "

Download Area

\n"; print "
\n"; # Get The Input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); #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; } print " To download the file(s) you ordered, click the corresponding link(s) below:"; print "

"; if ( $FORM{'immusa'} ne "") { print 'Immigration USA Program.'; print "

"; } if ( $FORM{'saf'} ne "") { print 'Scan-A-Form Program.'; print "

"; } if ( $FORM{'9003'} ne "") { print '9003'; print "

"; } if ( $FORM{'empor'} ne "") { print 'EMP-OR'; print "

"; } if ( $FORM{'emptx'} ne "") { print 'EMP-TX'; print "

"; } if ( $FORM{'eoir26'} ne "") { print 'EOIR-26'; print "

"; } if ( $FORM{'eoir27'} ne "") { print ' EOIR-27'; print "

"; } if ( $FORM{'eoir28'} ne "") { print ' EOIR-28'; print "

"; } if ( $FORM{'eoir33'} ne "") { print ' EOIR-33'; print "

"; } if ( $FORM{'eta750a'} ne "") { print ' ETA-750A'; print "

"; } if ( $FORM{'eta750b'} ne "") { print ' ETA-750B'; print "

"; } if ( $FORM{'eta9029'} ne "") { print ' ETA-9029'; print "

"; } if ( $FORM{'eta9034'} ne "") { print ' ETA-9034'; print "

"; } if ( $FORM{'eta9035'} ne "") { print ' ETA-9035'; print "

"; } if ( $FORM{'fd258'} ne "") { print ' FD-258'; print "

"; } if ( $FORM{'g28'} ne "") { print ' G-28'; print "

"; } if ( $FORM{'g325'} ne "") { print ' G-325'; print "

"; } if ( $FORM{'g325a'} ne "") { print ' G-325A'; print "

"; } if ( $FORM{'g325b'} ne "") { print ' G-325B'; print "

"; } if ( $FORM{'g325c'} ne "") { print ' G-325C'; print "

"; } if ( $FORM{'g639'} ne "") { print ' G-639'; print "

"; } if ( $FORM{'g652'} ne "") { print ' G-652'; print "

"; } if ( $FORM{'g731'} ne "") { print ' G-731'; print "

"; } if ( $FORM{'g884'} ne "") { print ' G-884'; print "

"; } if ( $FORM{'i9'} ne "") { print ' I-9'; print "

"; } if ( $FORM{'i17'} ne "") { print ' I-17'; print "

"; } if ( $FORM{'i20ab'} ne "") { print ' I-20AB'; print "

"; } if ( $FORM{'i20mn'} ne "") { print ' I-20MN'; print "

"; } if ( $FORM{'i90'} ne "") { print ' I-90'; print "

"; } if ( $FORM{'i94'} ne "") { print ' I-94'; print "

"; } if ( $FORM{'i94t'} ne "") { print ' I-94T'; print "

"; } if ( $FORM{'i94w'} ne "") { print ' I-94W'; print "

"; } if ( $FORM{'i95ab'} ne "") { print ' I-95AB'; print "

"; } if ( $FORM{'i102'} ne "") { print ' I-102'; print "

"; } if ( $FORM{'i104'} ne "") { print ' I-104'; print "

"; } if ( $FORM{'i129'} ne "") { print ' I-129'; print "

"; } if ( $FORM{'i129e'} ne "") { print ' I-129E'; print "

"; } if ( $FORM{'i129f'} ne "") { print ' I-129F'; print "

"; } if ( $FORM{'i129h'} ne "") { print ' I-129H'; print "

"; } if ( $FORM{'i129l'} ne "") { print ' I-129L'; print "

"; } if ( $FORM{'i129op'} ne "") { print ' I-129OP'; print "

"; } if ( $FORM{'i129qr'} ne "") { print ' I-129QR'; print "

"; } if ( $FORM{'i129s'} ne "") { print ' I-129S'; print "

"; } if ( $FORM{'i129sp'} ne "") { print ' I-129SP'; print "

"; } if ( $FORM{'i130'} ne "") { print ' I-130'; print "

"; } if ( $FORM{'i131'} ne "") { print ' I-131'; print "

"; } if ( $FORM{'i134'} ne "") { print ' I-134'; print "

"; } if ( $FORM{'i140'} ne "") { print ' I-140'; print "

"; } if ( $FORM{'i175'} ne "") { print ' I-175'; print "

"; } if ( $FORM{'i181'} ne "") { print ' I-181'; print "

"; } if ( $FORM{'i190'} ne "") { print ' I-190'; print "

"; } if ( $FORM{'i191'} ne "") { print ' I-191'; print "

"; } if ( $FORM{'i192'} ne "") { print ' I-192'; print "

"; } if ( $FORM{'i193'} ne "") { print ' I-193'; print "

"; } if ( $FORM{'i212'} ne "") { print ' I-212'; print "

"; } if ( $FORM{'i213'} ne "") { print ' I-213'; print "

"; } if ( $FORM{'i243'} ne "") { print ' I-243'; print "

"; } if ( $FORM{'i246'} ne "") { print ' I-246'; print "

"; } if ( $FORM{'i256a'} ne "") { print ' I-256A'; print "

"; } if ( $FORM{'i290a'} ne "") { print ' I-290A'; print "

"; } if ( $FORM{'i290b'} ne "") { print ' I-290B'; print "

"; } if ( $FORM{'i356'} ne "") { print ' I-356'; print "

"; } if ( $FORM{'i360'} ne "") { print ' I-360'; print "

"; } if ( $FORM{'i361'} ne "") { print ' I-361'; print "

"; } if ( $FORM{'i365'} ne "") { print ' I-365'; print "

"; } if ( $FORM{'i391'} ne "") { print ' I-391'; print "

"; } if ( $FORM{'i418'} ne "") { print ' I-418'; print "

"; } if ( $FORM{'i485'} ne "") { print ' I-485'; print "

"; } if ( $FORM{'i508'} ne "") { print ' I-508'; print "

"; } if ( $FORM{'i512'} ne "") { print ' I-512'; print "

"; } if ( $FORM{'i515'} ne "") { print ' I-515'; print "

"; } if ( $FORM{'i526'} ne "") { print ' I-526'; print "

"; } if ( $FORM{'i538'} ne "") { print ' I-538 '; print "

"; } if ( $FORM{'i539'} ne "") { print ' I-539'; print "

"; } if ( $FORM{'i539sp'} ne "") { print ' I-539SP'; print "

"; } if ( $FORM{'i566'} ne "") { print ' I-566'; print "

"; } if ( $FORM{'i589'} ne "") { print ' I-589'; print "

"; } if ( $FORM{'i590'} ne "") { print ' I-590'; print "

"; } if ( $FORM{'i591'} ne "") { print ' I-591'; print "

"; } if ( $FORM{'i600'} ne "") { print ' I-600'; print "

"; } if ( $FORM{'i600a'} ne "") { print ' I-600A'; print "

"; } if ( $FORM{'i601'} ne "") { print ' I-601'; print "

"; } if ( $FORM{'i602'} ne "") { print ' I-602'; print "

"; } if ( $FORM{'i612'} ne "") { print ' I-612'; print "

"; } if ( $FORM{'i643'} ne "") { print ' I-643'; print "

"; } if ( $FORM{'i644'} ne "") { print ' I-644'; print "

"; } if ( $FORM{'i690'} ne "") { print ' I-690'; print "

"; } if ( $FORM{'i693'} ne "") { print ' I-693'; print "

"; } if ( $FORM{'i694'} ne "") { print ' I-694'; print "

"; } if ( $FORM{'i695'} ne "") { print ' I-695'; print "

"; } if ( $FORM{'i698'} ne "") { print ' I-698'; print "

"; } if ( $FORM{'i730'} ne "") { print ' I-730'; print "

"; } if ( $FORM{'i751'} ne "") { print ' I-751'; print "

"; } if ( $FORM{'i752'} ne "") { print ' I-752'; print "

"; } if ( $FORM{'i765'} ne "") { print ' I-765'; print "

"; } if ( $FORM{'i797'} ne "") { print ' I-797'; print "

"; } if ( $FORM{'i805'} ne "") { print ' I-805'; print "

"; } if ( $FORM{'i817'} ne "") { print ' I-817'; print "

"; } if ( $FORM{'i821'} ne "") { print ' I-821'; print "

"; } if ( $FORM{'i824'} ne "") { print ' I-824'; print "

"; } if ( $FORM{'i829'} ne "") { print ' I-829'; print "

"; } if ( $FORM{'i833'} ne "") { print ' I-833'; print "

"; } if ( $FORM{'m132'} ne "") { print ' M-132'; print "

"; } if ( $FORM{'m250'} ne "") { print ' M-250'; print "

"; } if ( $FORM{'m349'} ne "") { print ' M-349'; print "

"; } if ( $FORM{'m378'} ne "") { print ' M-378'; print "

"; } if ( $FORM{'n300'} ne "") { print ' N-300'; print "

"; } if ( $FORM{'n400'} ne "") { print ' N-400'; print "

"; } if ( $FORM{'n410'} ne "") { print ' N-410'; print "

"; } if ( $FORM{'n426'} ne "") { print ' N-426'; print "

"; } if ( $FORM{'n455'} ne "") { print ' N-455'; print "

"; } if ( $FORM{'n470'} ne "") { print ' N-470'; print "

"; } if ( $FORM{'n565'} ne "") { print ' N-565'; print "

"; } if ( $FORM{'n600'} ne "") { print ' N-600'; print "

"; } if ( $FORM{'n643'} ne "") { print ' N-643'; print "

"; } if ( $FORM{'of230i'} ne "") { print ' OF-230I'; print "

"; } if ( $FORM{'o230ii'} ne "") { print ' OF-230II'; print "

"; } if ( $FORM{'of156'} ne "") { print ' OF-156'; print "

"; } if ( $FORM{'of156e'} ne "") { print ' OF-156E'; print "

"; } if ( $FORM{'ot12'} ne "") { print ' OT-12'; print "

"; } if ( $FORM{'wr627'} ne "") { print ' WR-627'; print "

"; } if ( $FORM{'wr702'} ne "") { print ' WR-702'; print "

"; } if ( $FORM{'wr703'} ne "") { print ' WR-703'; print "

"; } if ( $FORM{'wr705'} ne "") { print ' WR-705'; print "

"; } if ( $FORM{'wr708'} ne "") { print ' WR-708'; print "

"; } if ( $FORM{'wr709'} ne "") { print ' WR-709'; print "

"; } if ( $FORM{'wr713'} ne "") { print ' WR-713'; print "

"; } if ( $FORM{'wr714'} ne "") { print ' WR-714'; print "

"; } if ( $FORM{'wr715'} ne "") { print ' WR-715'; print "

"; } if ( $FORM{'wr724'} ne "") { print ' WR-724'; print "

"; } if ( $FORM{'wr735'} ne "") { print ' WR-735'; print "

"; } if ( $FORM{'wr744'} ne "") { print ' WR-744'; print "

"; } if ( $FORM{'wr751'} ne "") { print 'WR-751'; print "

"; } print "


"; print 'Click Here when you are done.'; print ""; print ""; print ""; exit;