I hope it's okay to ask a question here regarding MIME::Lite. This is a
fairly well-used module, that even beginners might run up against.
Additionally, I suspect my problem doesn't have to do so much with
MIME::Lite, as it does with more general topics.
I'm writing a CGI program to take input from a form and control an
EZMLM mailing list (using qmail as the MTA). The section giving me
problems is:
if ($q->param('sub')) {
($address = $q->param('email')) =~ s/\@/=/;
$msg = MIME::Lite->new(
From =>'rhgnews-subscribe-' . $address .
'@lists.rhgateway.org',
To =>'[EMAIL PROTECTED]'
); # end of message
$tmp = $msg->as_string;
print " Message string: $tmp <p>";
$msg->send;
print "$q->param('email') has been sucessfully subscribed.<p>";
} #if this is a subscription
When I run my program, it executes normally, but then ends with "no
data in this part at ./rhgnewsadmin.pl line 23." Line 23 is "$tmp =
$msg->as_string;". If it's missing, I get the same error with
"$msg->send;" The program ends at this point, and doesn't proceed with
the code I've written to output some more HTML stuff.
Any yet, oddly enough, the message is sent properly, and I receive it.
Any pointers on what I should look into?
Thanks in advance for all your help and suggestions.
-Kevin Zembower
-----
E. Kevin Zembower
Unix Administrator
Johns Hopkins University/Center for Communications Programs
111 Market Place, Suite 310
Baltimore, MD 21202
410-659-6139
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
