348201 convert formail script to perl

N/A

Teljesítve

Kiadva ekkor:

több mint 14 évvel ezelőtt

N/A

Teljesítéskor fizetve

I have created a site in flash that uses a php script to send the form results and this works perfectly... BUT now i found out the client dose not have PHP on thier webserver... So I need these 2 scripts written in php (they are very similar) converted to perl so i do not have to change my flash code.... SCRIPT 1 <?php $sendTo = "andrew<AT>[login to view URL]"; $subject = "[login to view URL] contact form"; $headers = "From: " . $_POST["text1"]; $headers .= "<" . $_POST["text2"] . ">\r\n"; $headers .= "Reply-To: " . $_POST["text2"] . "\r\n"; $headers .= "Return-Path: " . $_POST["text2"]; $message = "Name: " . $_POST["text1"] . "\n"; $message .= "Email: " . $_POST["text2"] . "\n"; $message .= "Phone: " . $_POST["text3"] . "\n"; $message .= "Comments: " . $_POST["text5"] . "\n"; mail($sendTo, $subject, $message, $headers); ?> SCRIPT 2 <?php $sendTo = "andrew<AT>[login to view URL]"; $subject = "[login to view URL] newsletter form"; $headers = "From: " . $_POST["text1"]; $headers .= "<" . $_POST["text2"] . ">\r\n"; $headers .= "Reply-To: " . $_POST["text2"] . "\r\n"; $headers .= "Return-Path: " . $_POST["text2"]; $message = "Name: " . $_POST["text1"] . "\n"; $message .= "Email: " . $_POST["text2"] . "\n"; $message .= "Newsletter: " . $_POST["text7"] . "\n"; mail($sendTo, $subject, $message, $headers); ?>

Odd Jobs

Perl

Projektazonosító: 2094026