[Juser] Perl Net::Jabber

Peter Lavender plaven at bigpond.net.au
Wed May 12 03:39:13 CDT 2004

Peter Saint-Andre wrote:

> Wow, people are still referring to that example? Looks I need to update
> it. :-)

Yep.. the fix is fairly simple.. only needed the time to make a cuppa 
for things to click.

The Module has changed its behaviour since you wrote the article.  The 
change to make is in the handle_ subroutines:

my $presence = new Net::Jabber::Presence(@_);

my ($sid, $presence) = @_;

and your set.. everything else is fine.

Now, does anyone know where I can find info that pertains to chat 
message handling and the like?

I want to be able to format the output of what is replied by the script, 
but I haven't been able to hit on it yet.



More information about the JUser mailing list