neill — Thu, 16 Sep 1999 02:12:00 +0000

Well here it goes.

I did a little changing to your script, but not much.

<---Script Starts--->

#!/usr/bin/perl

print "Content-type:text/html\n\n";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

$mailprog ='/usr/lib/sendmail';

$recipient = 'you@your_domain.com';

open (MAIL, "¦$mailprog -t");

print MAIL "To: $recipient\n";

print MAIL "From: $FORM{'email_address'}\n";

print MAIL "Subject: Twilley Form Catalog Request\n\n";

print MAIL "Twilley Customer's First Name = $FORM{'twilley_customer_first_name'}\n";
print MAIL "Last Name = $FORM{'last_name'}\n";
print MAIL "Business Name= $FORM{'business'}\n";
print MAIL "Address = $FORM{'address'}\n";
print MAIL "City = $FORM{'city'}\n";
print MAIL "State = $FORM{'state'}\n";
print MAIL "Zip Code = $FORM{'zip'}\n";
print MAIL "Country = $FORM{'country'}\n";
print MAIL "Phone Number = $FORM{'phone_number'}\n";
print MAIL "Fax Number = $FORM{'fax_number'}\n";
print MAIL "Email Address = $FORM{'email_address'}\n";

print MAIL "Type of Grower = ";

if ($FORM{'Fresh_market'}) {
print MAIL "Fresh Market, ";
}

if ($FORM{'Roadside'}) {
print MAIL "Roadside, ";
}

if ($FORM{'U-Pick'}) {
print MAIL "U-Pick, ";
}

if ($FORM{'Shipper'}) {
print MAIL "Shipper, ";
}

if ($FORM{'Greenhouse_Grower'}) {
print MAIL "Greenhouse Grower, ";
}

if ($FORM{'Home_Gardner'}) {
print MAIL "Home Gardner";
}

print MAIL "\n";

print MAIL "Farm Acreage = $FORM{'farm_acreage'}\n";
print MAIL "Approximate Greenhouse Area =$FORM{'greenhouse_area'}\n";
print MAIL "Comments and Crops of most interest = $FORM{'crops'}\n";

close(MAIL);

print <<EOF;
<h2><center>Thank You</h2><br>
Your request for a Twilley Catalog has been submitted. <br>
<a href="http://www.twilleyseed.com">Return to the Twilley Home Page</a><br>
Or<br>
<a href="http://www.twilleyseed.com/geo">Visit GeoSeed's Home Page</a>.</center>
</body></html>
EOF
;

exit;

<---Script Ends--->

<---Form Starts--->

<---Form Ends--->

I hope that this helps you get script up and running smoothly.

You will still need to change $mailprog to match the location and type of mail program that your server is using.

Brian
LotionBarn.com

King Of Chaos — Mon, 13 Sep 1999 19:14:00 +0000

What?!?...I always thought that if you had PERL 5 you didn't need the slash

----------
Shawn Muder
www.realmsofevil.com

Thu, 09 Sep 1999 22:50:00 +0000

Yes, Steve is right, and yes there has to be a backslash in front of the @ for Perl versions > 5.0.

Later,

Malte

----------
Malte Ubl - [red]Germany[/red] - http://goKewl.com/
[red]The beats of 1000 hearts inside...[/red] the merciless pulsation... [red]and all I know is I'll be back...[/red] back to trance nation!

CTho9305 — Thu, 09 Sep 1999 17:29:00 +0000

I'm pretty new to perl so I'm probably wrong but in my little knowledge, I dont understand why you have PRINT <<HOIHOI; (do you need 2 of the < signs?) Since I'm wrong, could you explain why it is there? Thanks.

webmasterspub — Sat, 21 Aug 1999 21:53:00 +0000

Ok, I'm new to Perl so this isn't even close to an attempt to answer your question. But, I saw something in your script I didn't know will work.

In the mailing part of the program you ended each line with the carriage return command used in html. Aren't you supposed to use the new line character used in Perl?
"\n"

----------
Webmasters-Pub: A Webmasters Guide to Success
http://www.webmasters-pub.com

anti — Fri, 23 Jul 1999 20:14:00 +0000

Hi,

try this:
1. don't open mail, but a normal file.
2. type the contents of that file to mail (by hand !!!)
3. does it work ?

btw:
the "-t" option is not supported by every "mail". most of them try to emulate sendmai, but not all of them.

ciao
Anti

Steve — Fri, 23 Jul 1999 03:27:00 +0000

Ok, I'm not very good at PERL, but in the HTML for the form, is it supposed to be:

<form method="post" action="mailto:twformreturn.cgi"> ?

I thought it's <form ACTION="twformreturn.cgi" METHOD="POST">

If course, I may be wrong....

-steve

Barratt — Thu, 22 Jul 1999 21:01:00 +0000

Still didn't work even with the \ before the @. Don't know what could be wrong

anti — Fri, 16 Jul 1999 22:40:00 +0000

Hi,

Have you tried the script locally ??
Have you tested it with "perl -c" ??
Where is the "require strict;" ??

And Yes, @ in Strings have to be escaped. On every system.

ciao
Anti
ps:
sorry I only have a stupid terminal right now, so I can't test it.

Fazer84 — Fri, 16 Jul 1999 03:09:00 +0000

Hi-
I'm not sure, but on my host I am required to have a \ in front of the @ sign.... i.e:

$recipient = 'twilley\@emeraldis.com';

Just pointing that out

----------
Casey Hansen
www.caseynet.com