#!/usr/local/bin/perl require "subparseform.lib"; &Parse_form; print 'Content-type:text/html\n\n"; $to = $formdata{'receiver'}; $from = $formdata{'e-mail'}; $subject = $formdata{'subject'}; $contents = $formdata{'contents'}; open(MAIL, "|/usr/sbin/sendmail-t") || &ErrorMessage; print MAIL "First: $applicantnamefirst \nLast: $applicantnamelast\n"; print MAIL "Missionname: $missionname \n"; print MAIL "E-mail: $e-mail\n"; print MAIL "Address: $address\nApartment: $apartment\n"; print MAIL "City: $city\nState: $state\n"; print MAIL "Country: $country\n"; print MAIL "Status: $STATUS\n"; print MAIL "served: $Abaetetuba\n $Acailandia\n$Alenquer\n"; print MAIL "$Ananindeua\n $Barcarena\n $Belem\n $braganca\n"; print MAIL "$Capanema\n $ESCRITORIO\n $imperatriz\n $Macapa\n"; print MAIL "$Obidos\n $Oriximina\n $Santana\n $Santarem\n $sAoLuis\n"; print MAIL "Found site: $foundsite\n"; print MAIL "Comments: $comments\n"; close(MAIL); print "You should be listed in 1-2 weeks."; print "Deve ser listado em 1-2 semanas"; sub ErrorMessage { print "

We seem to be having problems.\n Please send your comments to the e-mail address\n located at the bottom of the form... \n Aborting script.\n" exit; }

Make your own free website on Tripod.com