Untitled Document

sub email{ $smsreply = 'd:\inetpub\wwwroot\cgi-bin\classads\test'; { local ($buffer, @pairs, $pair, $name, $value, %FORM)}; # Read in text $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } # Split information into name/value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $postFields{ "$name" } = $value; #populatePostFields; $from = $postFields{ "name" }; $msg = $postFields{ "DESC" }; $email = $postFields{ "email" }; $telno = $postFields{ "tel" }; $telnob = $postFields{ "telb" }; $telno = $postFields{ "tel" }; $cc = $postFields{ "CC" }; $vyear = $postFields{ "VYEAR" }; $gears = $postFields{ "gears" }; $make = $postFields{ "make" }; $model = $postFields{ "model" }; $doorno = $postFields{ "doors" }; $fuel = $postFields{ "fuel" }; if ($gears =~ auto){$gears = Automatic} else {$gears = "$gears Speed Manual"}; $msg =~ s/%../ /g; } open EMAILREQNO, "$emailreqno" ; ($emailref)= ; chomp($emailref); close EMAILREQNO ; $nextemailno = ($emailref+1); $extn = ".dat"; $emailfile = "E$emailref$extn"; $emailtime = "$dayname $monnm $Day $Hour$sep2$Minute$sep2$Second $yearx"; open (EMAIL, ">$emailreqpath/$emailfile"); print EMAIL "EMAIL REQUEST \n"; print EMAIL "$from \n"; print EMAIL "\n"; print EMAIL "$email \n"; print EMAIL "$telno \n"; print EMAIL "$telno \n"; print EMAIL "$vyear $make $model $doorno Door $cc CC $fuel $gears $msg \n"; print EMAIL "\n"; print EMAIL "\n"; print EMAIL "\n"; print EMAIL "\n"; print EMAIL "\n"; print EMAIL "\n"; print EMAIL "WWW \n"; print EMAIL "$emailtime\n"; print EMAIL "EMAIL Request \n"; print EMAIL "Email Requests \n"; print EMAIL "WWW \n"; print EMAIL "\n"; print EMAIL "EMAIL \n"; close EMAIL; &oops('cannot change email ref number') unless (open(EMAILB, ">$emailreqno")); print EMAILB "$nextemailno"; close EMAILB; open REQORDER, "$reqordernum" ; ($reqorder)= ; chomp($reqorder); close REQORDER ; $nextreqorderno = ($reqorder+1); &oops('cannot create Request book entry') unless (open(NEWITEMA, ">$reqorderpath/$reqorder")); print NEWITEMA "E$emailref\n"; close NEWITEMA; &oops('cannot change req number order') unless (open(REQNUMORDER, ">$reqordernum")); print REQNUMORDER "$nextreqorderno"; close REQORDERNUM; print "Content-type: text/html\n\n"; print <<"EOF"; Untitled Document

Thank you for your enquiry.

This has been logged on our system. we will get back to you shortly.

Your Reference number is E$emailref please make a note of this.

You will need to quote this should you need to contact us about your enquiry.

Our telephone number for all enquiries is

08454084000

EOF }