I have read nearly every thing off your site that I can to do with this problem but nothing seems to fix it. I did not write the script myself but I understand it all except for the header part. This is my first crack at perl and all I want is a simple answer on how to fix it. Sometimes I can get it working but all it does is send the email with none of the data in. PLease help cause I am bashing my head against a wall to get this fixed!!!

I just ran it on my server, as you've posted it here, and it ran just fine, no "end of headers" message, but as you say, sent an email with no content.

That's pretty much what you'd expect running just that script by itself, because there's no form feeding it with information.

Here's a quick fix for your problem.

Start again.

Start with this code:

use CGI;
use CGI::Carp qw(fatalsToBrowser);
CGI::ReadParse();
[download]

now all the values from your form are in a hash called "%in".

So if you've got a field called "Title", the contents are now easily accessed because they're in $in{'Title'}.

Note that there's a case-sensitivity issue here too. If your form field is called "title" then you need $in{'title'} instead.

You don't need to grab things from the hash and put them into variables, just grab them directly from the hash, i.e. do this

print MAIL "$in{'Title'}\n";
[download]

in your mail-sending code, rather than doing that bizarre "GETVALUES" thing which is just double handling. Skip that stage altogether. Just go straight to sending the mail.

And the fatalsToBrowser thing will mean you get useful error messages.

---




($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print
[download]

Nickd_69,
It looks like the sole purpose of the CGI is to send the form information to an email address and then redirect to a new URL. This could probably be done with just JavaScript.

I came up with the following code, but have no idea if it will work correctly as I am on a machine without a web server. It is more concise and it should be a lot easier to debug than your original script. I did verify the syntax using perl -c.

#!/usr/bin/perl -wT
use strict;
use CGI;
use Mail::Mailer;

my $query = CGI->new();
my %DATA = $query->Vars;

my $body = "Hi, I have just visited your website.\n\n";
$body .= "Personal Details\n";
$body .= join "\n" , @DATA{qw(Title Name Position School Address Subur
+b State PCode)}, '';
$body .= "Contact Details:\n";
$body .= "Tel: $DATA{Tel}\n";
$body .= "Tel: $DATA{Fax}\n";
$body .= "Tel: $DATA{Email}\n\n";
$body .= "I would like to register for the following presentations.\n"
+;
$body .= join "\n" , @DATA{qw(PR01 PR02 PR03 PR04 PR05 PR06 PR07 PR08)
+}, '';
$body .= "List of Attendees.\n";
$body .= join "\n" , @DATA{qw(Att1 Att2 Att3 Att4 Att5 Att6 Att7 Att8 
+Att9)}, '';
$body .= "Comments:\n";
$body .= "$DATA{Comments}\n\n";

my $mailer = new Mail::Mailer ( "smtp" );
$mailer->open(
    {
    To      => 'info@travancoresch.vic.edu.au',
    From    => $DATA{Email},
    Subject => 'Travancore School Professional Development'
    }
);

print $mailer $body;
$mailer->close;

print $query->redirect('http://www.travancoresch.vic.edu.au/developmen
+t/reply02.html');
[download]

You really should get in the practice of validating form information. I have turned on Taint with the -T shebang line option as a future precaution against accepting user data without sanitizing it first if the script's functionality expands.

Cheers - L~R

Update: With some help from the CB, a few minor nits have been corrected

Since you print a minimal http header, followed by an immediate redirect to some other page, I'd look on that other page, because your browser is going there and not coming back (because that's what you told it to do). GETVALUES will never recieve anything all from the browser.

You would also want to see what is in your error_log just before the "Premature end of script headers" message.

Finally, use CGI or comse other module to properly parse the query (when you actually receive one).

Hey bob. Thanks for your comments. The premature end of script headers is the last thing in my log. There are no others. Any other ideas?

There are no ther entries in the error_log? that is strange

Other posters have had great suggestions coming down to

1. use "\r\n" instead of "\n" when sending headers (though my testing doesn't indicate that this is the problem, YMMV)


2. turn on warnings with -w in the #! line or use warnings; in the script.


3. run this from the command line and see what happens, possibly finding some way to feed it the values it wants. At least run as perl -cw scriptname which will find compile time errors.


4. use CGI; to rpint the redirection (probably without the headers, as others have noted here,
--Bob Niederman, http://bob-n.com

<canned-reply>

What does your error log say?

</canned-reply>

-sauoq
"My two cents aren't worth a dime.";

Header lines end with "\x0d\x0a", which can usually be written as "\r\n".