Check to make sure that the list address is in the to ro cc field.
This one was sent just to me as well.
Any who on to business...
>
>
> Thought that's what you meant but didn't want to impose if I
> was wrong.
>
> Here is the script from my linux box. I'm running it pretty
> much the way I took it off the web except I changed the
> reply-to my email and put the "\" before the "@".
>
> I've named the script "test.cgi" and put it in my cgi-bin
> directory on the linux box.
>
> The html document is in the www/html directory under a
> subdirectory entitled "test"
>
> Perl Script:
>
> -----------------------------------------------
>
> #!/usr/bin/perl
> use CGI;
>
> my $query = new CGI;
> my $sendmail = "/usr/sbin/sendmail -t";
> my $reply_to = "Reply-to: geringer2\@cox.net";
Change this to
my $reply_to = 'Reply-to: [EMAIL PROTECTED]';
> my $subject = "Subject: Confirmation of your submission";
> my $content = "Thanks for your submission.";
> my $to = $query->param('send_to');
> my $file = "subscribers.txt";
>
> unless ($to) {
> print $query->header;
> print "Please fill in your email and try again";
> }
>
> open (FILE, ">>$file") or die "Cannnot open $file: $!";
> print $to,"\n";
> close(FILE);
>
> my $send_to = "To: ".$query->param('send_to');
>
> open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail : $!";
> print SENDMAIL $reply_to;
> print SENDMAIL $subject;
> print SENDMAIL $to;
Change the three lines above to :
print SENDMAIL "$to \n";
print SENDMAIL "$from \n"; # add this line
print SENDMAIL $reply_to \n";
print SENDMAIL "$subject \n\n";
> print SENDMAIL "Content-type: text/plain\n\n";
Get rid of this line
> print SENDMAIL $content;
> close(SENDMAIL);
>
> print $query->header;
> print "Confirmation of your submission will be emailed to you."; ~
>
> --------------------------------------------------------------
> ---------
>
> HTML Script
>
> --------------------------------------------------------------
> ---------
>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01
> Transitional//EN"> <html> <head> <title>Untitled
> Document</title> <meta http-equiv="Content-Type"
> content="text/html; charset=iso-8859-1"> </head>
>
> <body>
> <FORM method="POST" action="../../cgi-bin/test/test.cgi">
> <INPUT type="text" name="send_to">
> <INPUT type="submit">
> </FORM>
>
>
> </body>
> </html>
>
> ---------------------------------------------------------
>
> Thanks
>
> -----Original Message-----
> From: Dan Muey [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, January 29, 2003 12:14 PM
> To: Ron Geringer
> Subject: RE: Need help
>
>
>
>
> >
> > I'm really new at this so forgive me if I sound stupid. I
> didn't quite
> > understand "Copy the line that has the $to line in it and send it
> > here."
>
> Open the perl script in a text editor
> Copy the line that sets the variable that causes the header
> error by Holding down your left mouse button and dragging the
> mouse over the text, Then right click on the highlighted area
> and select 'copy'.
>
> Then come to this email place the cursor in the message.
> Right click and select 'paste'
>
> Send email to me.
>
> I realize you sent the script before but I don't know if
> that's the exact same script you're running or if it's the
> original one you got off the net.
>
> Dan
> >
> > Tbe query variable is the variable email that the html document
> > inserts and passes on to the perl script. I'm assuming that
> the $query
> > works with send_to as the original sender. What's really
> confusing is
> > that when I write a tcl script - I just hardcode the
> receiver's email
> > (much like the perl script does here), I grab the user's email
> > (usually from a database), assign a variable to it and add that
> > veriable to the same line as the hardcoded email --- and
> all this is
> > sent using open $XXXXX --- multiple prints and the close. Its real
> > easy. Unfortunately, not all servers have tcl loaded so I've
> > got to fall back and learn perl.
> >
> > I've been working with a number of perl scripts and so far
> I haven't
> > gotten any of them to work - even if I don't get an error, it still
> > doesn't send anything.
> >
> > -----Original Message-----
> > From: Dan Muey [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, January 29, 2003 11:52 AM
> > To: Ron Geringer
> > Subject: RE: Need help
> >
> >
> >
> > Don't forget to posyt to list and not just the orginal sender!!
> > >
> > > Dan:
> > >
> > > except that I ran the same script on my local linux box and got a
> > > similar error regarding headers:
> > >
> > > [Wed Jan 29 09:44:52 2003] [error] [client 192.168.0.202]
> malformed
> > > header from script. Bad [EMAIL PROTECTED]: /var/www/cgi-b
> > > in/test/test.cgi.
> >
> > Copy the line that has the $to line in it and send it here.
> >
> > >
> > > Same code that I'm trying to run on the server.
> > >
> > > -----Original Message-----
> > > From: Dan Muey [mailto:[EMAIL PROTECTED]]
> > > Sent: Wednesday, January 29, 2003 11:18 AM
> > > To: Ron Geringer
> > > Subject: RE: Need help
> > >
> > >
> > >
> > >
> > > >
> > > > Dan:
> > > >
> > > > you are right - I could have been a little clearer.
> > > >
> > > > Here's the actual error from the log that I get when I run
> > > the script:
> > > >
> > > > qmail-inject: fatal: unable to parse this line:
> > > > Reply-to: [EMAIL PROTECTED]: Confirmation of your
> > > > [EMAIL PROTECTED]: text/plain
> > > > [Wed Jan 29 12:05:44 2003] [error] [client 68.13.40.38]
> malformed
> > > > header from script. Bad [EMAIL PROTECTED]
> > >
> > > If you're using qmail it would be better to have the
> > qmail-inject path
> > > instead of sendmail which is probably a sym link to qmail-inject.
> > >
> > > To open a pipe to qmail-inject you need
> > /var/qmail/bin/qmail-inject -f
> > > $to_address
> > >
> > > Which means you'll have to modify the open statement to use that.
> > >
> > > Do you know what the -i and -t options do for qmail-inject?
> > >
> > > See you're trying to use sendmail's switches with qmail, do
> > they work,
> > > have the same options, probably not.
> > >
> > > Could be those switches are causing the bad header becaue
> > what they do
> > > in sendmail could be totally different than qmail. That
> is why it's
> > > best to use a module or at least use the right program/options.
> > >
> > > Dan
> > >
> > > >
> > > > Ron
> > > >
> > > > -----Original Message-----
> > > > From: Dan Muey [mailto:[EMAIL PROTECTED]]
> > > > Sent: Wednesday, January 29, 2003 10:56 AM
> > > > To: Ron Geringer; [EMAIL PROTECTED]
> > > > Subject: RE: Need help
> > > >
> > > >
> > > > > I'm pretty much used to scripting sendmail applications in
> > > > tcl - and
> > > > > I'm very new to perl so this may be a dumb question. I'm
> > > > working with
> > > > > a sendmail script that I got off the internet. The script
> > > that I'm
> > > > > working with is listed below:
> > > > >
> > > > > #!/usr/bin/perl
> > > > > use CGI;
> > > > >
> > > > > my $query = new CGI;
> > > > > my $sendmail = "/usr/sbin/sendmail -i -t";
> > > > > my $reply_to = "Reply-to: geringer2\@cox.net";
> > > > > my $subject = "Subject: Confirmation of your submission"; my
> > > > > $content = "Thanks for your submission.";
> > > > > my $to = $query->param('send_to');
> > > > > my $file = "subscribers2.txt";
> > > > >
> > > > > unless ($to) {
> > > > > print $query->header;
> > > > > print "Please fill in your email and try again";
> > > > > }
> > > > >
> > > > > open (FILE, ">>$file") or die "Cannnot open $file: $!"; print
> > > > > $to,"\n"; close(FILE);
> > > > >
> > > > > my $send_to = "To: ".$query->param('send_to');
> > > > >
> > > > > open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail:
> > > > $!"; print
> > > > > SENDMAIL $reply_to; print SENDMAIL $subject; print SENDMAIL
> > > > $to; print
> > > > > SENDMAIL "Content-type: text/plain\n\n"; print SENDMAIL
> > $content;
> > > > > close(SENDMAIL);
> > > > >
> > > > > print $query->header;
> > > > > print "Confirmation of your submission will be emailed to
> > > you."; ~ ~
> > > > >
> > > > > --------------------------------------
> > > > >
> > > > > The only difference between this and the one I found is
> > > the "\" in
> > > > > fron of the "@". When I run this cript - the error that I'm
> > > > seeing is
> > > > > that the header is malformed.
> > > >
> > > > If what you're trying to get help on is the malformed
> > header error
> > > > then this is probably the problem :
> > > >
> > > > You should need to do \@ if you're using double quotes,
> > > shouldn't need
> > > > if you use single quotes.
> > > >
> > > > Did having that ( the \ in front of the @ ) cause the
> > > error? Could you
> > > > be less ambiguous about the problem, is the problem the 'header
> > > > malformed' error or you can't send mail or ...? What
> > > happens when you
> > > > run it form the command line?
> > > >
> > > > You might want to look into a module, they're much easier
> > > to work with
> > > > and portable. The one I started working wioth lately is :
> > > > http://search.cpan.org/author/JENDA/Mail-Sender-0.8.04/Sender.
> > > pm
> > >
> > > Or search cpan and find one you like/does what you want
> and you'll
> > > probably on ly need a few lines of code to do what you want.
> > >
> > > Dan
> > >
> > > >
> > > > If anyone can tell me what I did wrong - I would appreciate it.
> > > >
> > > > What I'm trying to do is put a perl script on a server
> > > which will take
> > > > data from an html document and redirect it to an email
> > > address. Once I
> > > > get one to work, I'm confident that I can make
> > > modifications and work
> > > > with it (testing etc), to better understand how perl
> > makes it works.
> > > >
> > > > I would really appreciate any help I can get.
> > > >
> > > >
> > > > --
> > > > To unsubscribe, e-mail: [EMAIL PROTECTED] For
> > > > additional commands, e-mail: [EMAIL PROTECTED]
> > > >
> > > >
> > >
> > >
> >
> >
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
