<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN"> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8"> <META NAME="GENERATOR" CONTENT="GtkHTML/3.6.2"> </HEAD> <BODY> 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 On Thu, 2005-12-15 at 22:37 +0200, Norman Rasmussen wrote: <BLOCKQUOTE TYPE=CITE> <PRE> odd, with that error I wouldn't expect it to be sending the jabber messages. try adding: my $jabmsg = Net::Jabber::Message->new(); just before: # Compose the message On 12/15/05, Jon Scottorn <<A HREF="mailto:jscottorn@possibilityforge.com">jscottorn@possibilityforge.com</A>> wrote: > Ok, disregard all my previous emails, I have got it sending to jabber now but there is something else wrong now that I have no clue how to fix. I send the message and it sends to my jabber client saying [forwarding message] and that's it. I also get a reply back in my email with this error. > > Can't call method "SetMessage" on an undefined value at smtp2jabber.pl line 42, <STDIN> line 1. > 554 5.3.0 unknown mailer error 255 > > Anyone know what that is. > > I am sending my email message as plain text with no attachments. > > Thanks, > > Jon > > On Thu, 2005-12-15 at 06:22 -0500, Bart Smit wrote: > > Assuming that on the jabber server your MTA is sendmail you can do this: > > Edit your sendmail.cf to listen for external connections: > dnl # DAEMON_OPTIONS(`Port=smtp,Addr=127.0.0.1, Name=MTA')dnl > > Set a catch all for the server or domain in /etc/mail/virtusertable: > @your.jabber.org mailerscript > > Add an alias for the script in /etc/aliases (don't forget to run > newaliases as root): > mailerscript |smtp2jabber.pl > > Manually register a bot user on your jabber server and set the user/pass > to mailer/password (if you use other credentials, edit the script > accordingly). > Save the attached script as smtp2jabber.pl and place it in /etc/smrsh or > link it from there. Remember to chmod it to be world executable. > > Use cpan or your favourite package manager to install the perl modules > at the top of the script. Restart sendmail and test. > > > Bart... > > > > #!/usr/bin/perl > > use strict; > use Mail::Message; > use Mail::Message::Field; > use Mail::Message::Construct::Read; > use Mail::Message::Attachment::Stripper; > use Mail::Message::Body; > use Net::Jabber; > > use constant SERVER => "your.jabber.org"; > use constant PORT => 5222; > use constant USERNAME => "mailer"; > use constant PASSWORD => "password"; > use constant RESOURCE => "Perl Script"; > > > # The email message come in on STDIN > my $msg = Mail::Message->read(\*STDIN); > > # Pick out the recipient, subject and sender > my $rcpt = $msg->head->get('to'); > my $subject = $msg->head->get('subject'); > my $sender = $msg->head->get('from'); > > # Remove the angle brackets > $rcpt =~ s/^<//; > $rcpt =~ s/>$//; > $sender =~ s/^<//; > $sender =~ s/>$//; > > # 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->SetMessage( > "to" => "$rcpt", > "subject" => "$sender emailed: $subject", > "body" => "$body"); > > # And send it > $jabber->Send($jabmsg); > > # Close the connection and exit > $jabber->Disconnect(); > exit(0); > > > sub setup_Jabber { > my ($server, $port, $user, $pass, $resource, $initial_status) = @_; > my $connection = new Net::Jabber::Client; > > # Connect > my $status = $connection->Connect( hostname => $server, > port => $port ); > die "Cannot connect to Jabber server $server on port $port\n" > unless $status; > > # Callbacks > $connection->SetCallBacks( presence => \&InPresence ); > > # Ident/Auth > my @result = $connection->AuthSend( username => $user, > password => $pass, > resource => $resource ); > die "Ident/Auth failed: $result[0] - $result[1]\n" > if $result[0] ne "ok"; > > # Roster > $connection->RosterGet(); > > # Set initial presence > &set_presence($connection, $initial_status); > > return $connection; > } > > sub InPresence > { > my $presence = $_[1]; > my $type = $presence->GetType(); > > if ($type eq "subscribe") { > $jabber->Send($presence->Reply(type => 'subscribed')); > } > elsif ($type eq "unsubscribe") { > $jabber->Send($presence->Reply(type => 'unsubscribed')); > } > } > > sub set_presence { > my ($connection, $s) = @_; > my $presence = Net::Jabber::Presence->new(); > my ($show, $status) = split("/", $s, 2); > $presence->SetPresence( show => $show, > status => $status ); > $connection->Send($presence); > } > > -----Original Message----- > From: <A HREF="mailto:jdev-bounces@jabber.org">jdev-bounces@jabber.org</A> [mailto:<A HREF="mailto:jdev-bounces@jabber.org">jdev-bounces@jabber.org</A>] On Behalf > Of Peter Saint-Andre > Sent: 14 December 2005 23:53 > To: Jabber software development list > Subject: Re: [jdev] jabberSMTP > > Jon Scottorn wrote: > > Hi all, > > > > I have been trying to locate a jabber smtp transport, does anyone > > know of any such thing. I basically need something that will parse an > > > email sent to say <A HREF="mailto:jonsmel@jabber.org">jonsmel@jabber.org</A> <mailto:<A HREF="mailto:jonsmel@jabber.org">jonsmel@jabber.org</A>> and > > reformat it into a xmpp message and send it to the user. I don't > > really care about attachments, it will only be text. > > > > Does anyone know of this type of item? > > The old theoretic-smtp project did something like that, but it > disappeared after the JabberStudio rootkit. I've sent the code to Jon on > an as-is basis. If anyone else has code like this (more recent than > theoretic-smtp), feel free to post to the list. :-) > > Peter > > > > > Jon Scottorn > Systems Administrator > The Possibility Forge, Inc. > <A HREF="http://www.possibilityforge.com">http://www.possibilityforge.com</A> > 435.635.0591 x.1004 -- - Norman Rasmussen - Email: <A HREF="mailto:norman@rasmussen.co.za">norman@rasmussen.co.za</A> - Home page: <A HREF="http://norman.rasmussen.co.za/">http://norman.rasmussen.co.za/</A> </PRE> </BLOCKQUOTE> <TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%"> <TR> <TD> Jon Scottorn Systems Administrator The Possibility Forge, Inc. http://www.possibilityforge.com 435.635.0591 x.1004 </TD> </TR> </TABLE> </BODY> </HTML>