[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