#! /usr/local2/mosaic/bin/perl require "/usr/local2/WebUsers/psdc/lib/cgi-lib.pl"; $dir = "/usr/local2/WebUsers/psdc/labor/submit/"; &ReadParse(*input); print &PrintHeader; print ""; print "Done!\n"; print "

$input

"; $month = $input{month}; $year = $input{year}; $data = $input{data}; $type = $input{type}; open(TYPE,">/tmp/labor.$$"); # do not trust data from form $type =~ s/\D.*//; $month =~ s/\D.*//; $year =~ s/\D.*//; #if ($type eq "1") { open(OUTFILE,">$dir$month-$year-page$type-raw"); print TYPE "TYPE: $month-$year-page$type-raw\n"; #} elsif ($type eq "By County") { # open(OUTFILE,">$dir$month-$year-By-County-raw"); # print TYPE "TYPE: $month-$year-By-County-raw\n"; #} elsif ($type eq "By Labor Market Area") { # open(OUTFILE,">$dir$month-$year-By-Labor-Market-Area-raw"); # print TYPE "TYPE: $month-$year-By-Labor-Market-Area-raw\n"; #} elsif ($type eq "By Metropolitan Statistical Area") { # open(OUTFILE,">$dir$month-$year-By-Metropolitan-Statistical-Area-raw"); # print TYPE "TYPE: $month-$year-By-Metropolitan-Statistical-Area-raw\n"; #} close(TYPE); print OUTFILE "$data\n"; print "

Thank you!

\n"; print "The data has been saved for processing. Thanks again!\n

\n"; print "Submit more data?\n"; print "\n\n"; system("cat /tmp/labor.$$ | /usr/ucb/mail -s NEWLABOR psdc"); system("/bin/rm -f /tmp/labor.$$");