# Remove the attachment(s) from the message
my $stripper = Mail::Message::Attachment::Stripper->new($msg);
my Mail::Message $textonly = $stripper->message;
my $body = $textonly->body;
# Connect to jabber
my $jabber = &setup_Jabber(SERVER, PORT, USERNAME, PASSWORD, RESOURCE, "normal/forwarding email");
# Compose the message
my $jabmsg = Net::Jabber::Message->new();
my $jabmsg->SetMessage(
"to" => "$rcpt",
"subject" => "$sender emailed: $subject",
"body" => "$body");
# And send it
$jabber->Send($jabmsg);
# Close the connection and exit
$jabber->Disconnect();
exit(0);
What part is messed up?
Thanks
On Thu, 2005-12-15 at 23:29 +0200, Norman Rasmussen wrote:
ahh, had to actually get this working on my dev box. It needs to be:
# Compose the message
my $jabmsg = Net::Jabber::Message->new();
$jabmsg->SetMessage(
"to" => "$rcpt",
"subject" => "$sender emailed: $subject",
"body" => "$body");
I think this would be much cooler with a full smtp transport gateway
idea, but this works for now.
On 12/15/05, Jon Scottorn <[EMAIL PROTECTED]> wrote:
> Still get same error
>
> here is what shows up in jabber
>
> [01:40:20 PM] *** jabbermail is Online [forwarding email]
> [01:40:20 PM] *** jabbermail is Offline
>
> Don't know if that helps
>
>
--
- Norman Rasmussen
- Email: [EMAIL PROTECTED]
- Home page: http://norman.rasmussen.co.za/
|
Jon Scottorn Systems Administrator The Possibility Forge, Inc. http://www.possibilityforge.com 435.635.0591 x.1004 |
