SPUG: CPAN Mailer

[Tim Maher/CONSULTIX]

----- Forwarded message from owner-spug-list at pm.org -----

From: owner-spug-list at pm.org
Date: Thu, 4 May 2000 13:33:03 -0400 (EDT)
X-Authentication-Warning: happyfunball.pm.org: mjordomo set sender to owner-spug-list at pm.org using -f
To: owner-spug-list at pm.org
Subject: BOUNCE spug-list at pm.org:     Admin request of type /^sub\b/i at line 4  

>From tim at consultix-inc.com  Thu May  4 13:33:01 2000
Received: from jason04.u.washington.edu (root at jason04.u.washington.edu [140.142.78.5])
	by happyfunball.pm.org (8.9.3/8.9.1) with ESMTP id NAA08961
	for <spug-list at pm.org>; Thu, 4 May 2000 13:33:00 -0400 (EDT)
Received: from dante30.u.washington.edu (ryannn at dante30.u.washington.edu [140.142.15.212])
	by jason04.u.washington.edu (8.9.3+UW99.09/8.9.3+UW00.01) with ESMTP id KAA13638;
	Thu, 4 May 2000 10:38:21 -0700
Received: from localhost (ryannn at localhost)
	by dante30.u.washington.edu (8.9.3+UW99.09/8.9.3+UW99.09) with ESMTP id KAA137918;
	Thu, 4 May 2000 10:38:18 -0700
Date: Thu, 4 May 2000 10:38:18 -0700 (PDT)
From: "R. Christianson" <ryannn at u.washington.edu>
To: Lauren Smith <LaurenS at bsquare.com>
cc: "'Shamon22 at aol.com'" <Shamon22 at aol.com>, spug-list at pm.org
Subject: RE: SPUG:  CPAN Mail::Mailer ...help!
In-Reply-To: <75514FC5ECC8D2118C8D00A0C9ED54DB91447A at obcmail1.bsquare.com>
Message-ID: <Pine.A41.4.21.0005041037240.17394-100000 at dante30.u.washington.edu>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII

If that doesnt work, you could do something like this:

$mailprog = '/usr/sbin/sendmail';
[s]ub send_mail {
	my ( $to,$from,$subject,$text ) = @_;
   # Open The Mail Program
   open(MAIL,"|$mailprog -t");
    
   print MAIL "To: " . $to . "\n";
   print MAIL "From:" .  $from . "\n";
   print MAIL "Subject: " . $subject . "\n\n";
   print MAIL $text;

   close (MAIL);
}


    Ryan Christianson


On Thu, 4 May 2000, Lauren Smith wrote:

> 
> 
> > #!/usr/bin/perl
> 
> I like having the '-w' at the end of that line.
> 
> > 
> > # cgi-bin/contact.cgi:Information sending program.
> > # TESTING --Contact.html(v2)
> > 
> > use Mail::Mailer;
> > 
> > $mailer = Mail::Mailer->new("sendmail");
> > $mailer->open({ From    => $email,
> >                 To      => $mailto,
> >                 Subject => $subject,
> >                 })
> >         or die "Can't open: $!\n";
> > print $mailer $body;
> > $mailer->close();
> > 
> > *******************************************************
> > ..and here is the error straight from the logs:
> > 
> > *******************************************************
> > [Wed May  3 08:06:01 2000] [error] malformed header from script. Bad 
> > header=No recipient addresses found i: 
> > /home/httpd/cgi-bin/contact2.cgi
> > *******************************************************
> 
> This may be a silly question, but have you assigned values to $email,
> $mailto, and $subject?
> 
> Lauren
> 
>  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>      POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
>  Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
>  SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe
>            Email to majordomo at pm.org: "action" spug-list your_address
> 
> 
> 

 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
 SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe
           Email to majordomo at pm.org: "action" spug-list your_address