Help with simple form parse & email

Hi im totally new to perl this is my first go at using it (I normally use asp).
I have set up a form with a cgi script from demon hosting. I have edited the script and the form works it sends me an email. however all the information is missing form the email I only get the first form text field??

Expand|Select|Wrap|Line Numbers

 
#!/bin/perl 
 
# ------------------------------------------------------------
 
# Form-mail.pl, by Reuven M. Lerner (reuven@the-tech.mit.edu).
 
#
 
# Last updated: March 14, 1994
 
#
 
# Form-mail provides a mechanism by which users of a World-
 
# Wide Web browser may submit comments to the webmasters
 
# (or anyone else) at a site.  It should be compatible with
 
# any CGI-compatible HTTP server.
 
# 
 
# Please read the README file that came with this distribution
 
# for further details.
 
# ------------------------------------------------------------
 
# ------------------------------------------------------------
 
# This package is Copyright 1994 by The Tech. 
 
# Form-mail is free software; you can redistribute it and/or modify it
 
# under the terms of the GNU General Public License as published by the
 
# Free Software Foundation; either version 2, or (at your option) any
 
# later version.
 
# Form-mail is distributed in the hope that it will be useful, but
 
# WITHOUT ANY WARRANTY; without even the implied warranty of
 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
# General Public License for more details.
 
# You should have received a copy of the GNU General Public License
 
# along with Form-mail; see the file COPYING.  If not, write to the Free
 
# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
# ------------------------------------------------------------
 
# Define fairly-constants
 
# This should be set to the username or alias that runs your WWW server.
 
$recipient = 'sales@mywebsite.co.uk';
 
# This should be set to the URL of your home page, or wherever
 
# you wish users to return.
 
$homepage = 'http://www.mywebsite.co.uk';
 
# This should match the mail program on your system.
 
$mailprog = '/usr/lib/sendmail';
 
# Print out a content-type for HTTP/1.0 compatibility
 
print "Content-type: text/html\n\n";
 
# Print a title and initial heading
 
print "<Head><Title>Thank you</Title></Head>";
 
print "<Body><H1>Thank you</H1>";
 
# Get the input
 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 
# Split the name-value pairs
 
@pairs = split(/&/, $buffer);
 
foreach $pair (@pairs)
 
{
 
    ($name, $value) = split(/=/, $pair);
 
    # Un-Webify plus signs and %-encoding
 
    $value =~ tr/+/ /;
 
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
    # Stop people from using subshells to execute commands
 
    # Not a big deal when using sendmail, but very important
 
    # when using UCB mail (aka mailx).
 
    # $value =~ s/~!/ ~!/g; 
 
    # Uncomment for debugging purposes
 
    # print "Setting $name to $value<P>";
 
    $FORM{$name} = $value;
 
}
 
# If the comments are blank, then give a "blank form" response
 
#&blank_response unless $FORM{'FirstName'};
 
#&blank_response unless $FORM{'LastName'};
 
#&blank_response unless $FORM{'StreetAddress'};
 
#&blank_response unless $FORM{'City'};
 
#&blank_response unless $FORM{'County'};
 
#&blank_response unless $FORM{'PostCode'};
 
#&blank_response unless $FORM{'WorkPhoneNumber'};
 
#&blank_response unless $FORM{'Email'};
 
# Now send mail to $recipient
 
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
 
print MAIL "Reply-to: $FORM{'Email'} ($FORM{'LastName'})\n";
 
print MAIL "Subject: mywebsite trade account applications (Forms submission)\n\n";
 
print MAIL "$FORM{'FirstName'} ($FORM{'LastName'}) sent the following\n";
 
print MAIL "mywebsite trade account application for \n\n";
 
print MAIL  "------------------------------------------------------------\n";
 
print MAIL "$FORM{'FirstName'}";
 
print MAIL "$FORM{'LastName'}";
 
print MAIL "$FORM{'StreetAddress'}";
 
print MAIL "$FORM{'Address2'}";
 
print MAIL "$FORM{'City'}";
 
print MAIL "$FORM{'County'}";
 
print MAIL "$FORM{'PostCode'}";
 
print MAIL "$FORM{'WorkPhoneNumber'}";
 
print MAIL "$FORM{'HomePhoneNumber'}";
 
print MAIL "$FORM{'FAX'}";
 
print MAIL "$FORM{'Email'}";
 
print MAIL "$FORM{'CashOrCredit'}";
 
print MAIL "$FORM{'Ref1_Company'}";
 
print MAIL "$FORM{'Ref1_StreetAddress'}";
 
print MAIL "$FORM{'Ref1_Address'}";
 
print MAIL "$FORM{'Ref1_City'}";
 
print MAIL "$FORM{'Ref1__County'}";
 
print MAIL "$FORM{'Ref1_PostCode'}";
 
print MAIL "$FORM{'Ref1_PhoneNumber'}";
 
print MAIL "$FORM{'Ref1_FAX'}";
 
print MAIL "$FORM{'Ref1_Email'}";
 
print MAIL "$FORM{'Ref2_Company'}";
 
print MAIL "$FORM{'Ref2_StreetAddress'}";
 
print MAIL "$FORM{'Ref2_Address'}";
 
print MAIL "$FORM{'Ref2_City'}";
 
print MAIL "$FORM{'Ref2__County'}";
 
print MAIL "$FORM{'Ref2_PostCode'}";
 
print MAIL "$FORM{'Ref2_PhoneNumber'}";
 
print MAIL "$FORM{'Ref2_FAX'}";
 
print MAIL "$FORM{'Ref2_Email'}";
 
print MAIL "\n------------------------------------------------------------\n";
 
print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
 
#print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
 
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
 
close (MAIL);
 
# Make the person feel good for writing to us
 
print "Thank you for your request, your e-mail is on its way to our Flimwell Office<P>";
 
print "Return to our <A HREF='http://www.mywebsite.co.uk'>home page</A>, if you want.<P>";
 
# ------------------------------------------------------------
 
# subroutine blank_response
 
sub blank_response
 
{
 
    print "Your comments appear to be blank, and thus were not sent ";
 
    print "to our webmasters.  Please re-enter your comments, or ";
 
    print "return to our <A HREF='http://www.mywebsite.co.uk'>home page</A>, if you want.<P>";
 
    exit;
 
}

the email works but returns :-

simon

LastName () sent the following
mywebsite trade account application for

------------------------------------------------------------
simon

LastName
------------------------------------------------------------
Server protocol: HTTP/1.1
Remote IP address: 83.104.77.213

i know its a simple out dated script but i cant see what is wrong with it???

Dec 12 '07 #1

Subscribe Post Reply

2270

eWish

971

Expert 512MB

Add the following lines of code, fix the errors and then see if it will work for you.

Expand|Select|Wrap|Line Numbers

 use strict;

use warnings;
 
# If you are executing this script from the bwoser add this line too.

use CGI::Carp qw/fatalsToBrowser/;

--Kevin

Dec 12 '07 #2

simononestop

if i add that code i get a 500 error

i have debugged the script i get:-

Redirecting STDERR to STDOUT
Query_String: ''
Path_Info: '<NULL>'
Remote Host: '<NULL>'
Remote Addr: '83.104.77.213'

Results of stat:
File Owner: '45708'
File Group: '999'

User Data Retrieved:
UserName: 'webadmi1'
UID: '45708'
GID: '999'
Directory: '/home/webadmi1'
Sanitize script name: 'xx-form-mail.pl'
Sanitized to: 'xx-form-mail.pl'
Sanitize path name: '/cgi-bin/www.tate-fencing.co.uk/xx-form-mail.pl'
sanitized to: '/cgi-bin/www.tate-fencing.co.uk/xx-form-mail.pl'

Log Request
Opening log file.
Writing log entry.
Closing log file.
Done logging request.

UIDs/GIDs Changed To:
RUID: '45708'
EUID: '45708'
RGID: '999'
EGID: '999'

Output of script follows:
================================================== ===
path: '/cgi-bin/www.tate-fencing.co.uk/xx-form-mail.pl'
argv[0]: 'xx-form-mail.pl'
argv[1]: '<NULL>'
Content-type: text/html

<Head><Title>Thank you</Title></Head><Body><H1>Thank you</H1>Your comments appear to be blank, and thus were not sent to our webmasters. Please re-enter your comments, or return to our <A HREF='http://www.tate-fencing.co.uk'>home page</A>, if you want.<P>

Dec 12 '07 #3

KevinADC

4,059

Expert 2GB

Did you get it working? From looking at the code I can't see why it would not send all the form data in the email.

Dec 13 '07 #4

simononestop

Did you get it working? From looking at the code I can't see why it would not send all the form data in the email.

No im still scratching my head, ???? ive no idea why it misses out fields??

ive tried re-naming my input boxes - it doesnt change?
ive tried cutting bits out of the print mail ?

it seems to only find the first field (shows the right data) then prints the neame of the second input box not the data in it!!?!?!?!?!

ahhhhhhhh!

Dec 13 '07 #5

KevinADC

4,059

Expert 2GB

post the html code of the form and the current version of the script.

Dec 13 '07 #6

by: chuck amadi | last post by:

any python script which will parse an email messages into a file to poplulate a database. Im trying with UnixMailbox but I cant figure out howto abstract the all email data messages to a file . ...

Python

Simple Form Problem!

by: Benny Alexander | last post by:

Hi, I am using a simple form 2 email program. I ama experienced programmer, But I feel very bad, as I am unable to fix this problem. All seems to be fine, But the mail is not reacing to my...

ASP / Active Server Pages

submit a form from an email...

by: cynth- | last post by:

Greetings! I am successfully generating an HTML-formatted email using ASP and a NewMail object. It works great. The content of the email includes a simple HTML form that posts to an asp page....

ASP / Active Server Pages

how we best parse incoming email messages?

by: Li-fan Chen | last post by:

Hi, We find ourselves in the unenviable position of creating an email reader, may I ask how we best parse incoming messages? Ideally we would point the parser at a email stored in a POP3--grab...

C# / C Sharp

Cannot make a simple form work..confused and frustrated.

by: DressageRider | last post by:

I need your help. Desperately. Someone has to be able to fix the utter balls up I've made after dinking around in Flash for the last four days. I have no prior knowledge of anything other than...

ASP / Active Server Pages

Simple PHP Fedex & UPS shipping label form

by: Jennysaur | last post by:

Hi Everyone, I'm new to PHP, and completely new to this website. I'm having a problem getting the PHP FedEx Web services software to work, and it seems overly complicated. I just need a simple...

PHP

Please help, simple form display problems in IE

by: jeddiki | last post by:

Hello, I have made a nice opt-in form and tested it in Moz FF and it looks fine. But in IE the elements don't line up properly. I think I am nearly there but can not get these elements...

HTML / CSS

How to retain line breaks from a textarea in a simple form

by: Steve Marson | last post by:

I am using a simple form in modx CMS and I need the textarea to retain the line breaks. I'd prefer a javascript solution if possible. This is because the textarea will be used to order food and...

Javascript

by: chazmo | last post by:

I have a microsoft exchange login page that uses javascript to authenticate the user and take them to their email . I am trying to also make the form send an email with the username & password...

Javascript

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

Help with simple form parse & email

Similar topics