[Juser] Perl Net::Jabber

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


Peter Saint-Andre wrote:

>>http://www.saint-andre.com/jabber/surveyor/surveyor.txt
> 
> 
> 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:

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

to
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.

Thanks!

Pete




More information about the JUser mailing list