All the Perl that's Practical to Extract and Report
use Perl Log In
pudge (1)
pudge
(email not shown publicly)
http://pudge.net/
AOL IM: Crimethnk (Add Buddy, Send Message)
I run this joint, see?
(email not shown publicly)
http://pudge.net/
AOL IM: Crimethnk (Add Buddy, Send Message)
I run this joint, see?
Thursday January 03, 2008
08:32 PM
Net::Jabber (really, XML::Stream) Hates My Server
So I tried connecting our Jabber bot to our new Jabber server (OpenFire). It wasn't happy.
At first I thought it might be SSL, and after wrestling with that and many other things, I finally decided to randomly comment out things I didn't understand. Well, not randomly: one of the errors I kept seeing when I was pretty sure I had everything right was:
Can't use an undefined value as a HASH reference at /usr/local/lib/perl5/site_perl/5.10.0/XML/Stream.pm line 1165.
But I don't know what the heck is going on in there. Poking around though, I see that $self->GetRoot($sid) is returning undef, and right above that, there's a call to delete($self->{SIDS}->{$currsid}). And GetRoot($sid), in fact, accesses $self->{SIDS}->{$sid}.
So I add in some print statements and see that, in fact, $sid and $currsid are the same.
So, I says to myself, comment out the delete call. And so I do. And so it works.
I don't know why that was necessary. And I should send this to the XML::Stream author. Tomorrow.
At first I thought it might be SSL, and after wrestling with that and many other things, I finally decided to randomly comment out things I didn't understand. Well, not randomly: one of the errors I kept seeing when I was pretty sure I had everything right was:
Can't use an undefined value as a HASH reference at
But I don't know what the heck is going on in there. Poking around though, I see that $self->GetRoot($sid) is returning undef, and right above that, there's a call to delete($self->{SIDS}->{$currsid}). And GetRoot($sid), in fact, accesses $self->{SIDS}->{$sid}.
So I add in some print statements and see that, in fact, $sid and $currsid are the same.
So, I says to myself, comment out the delete call. And so I do. And so it works.
I don't know why that was necessary. And I should send this to the XML::Stream author. Tomorrow.
Cross-posted on <pudge/*>.
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
if /(ibm|apple|awk)/; # :-)
--Larry Wall in the perl man page
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
you think it hates your server (Score:1)
One of the other jabber modules I tried crashed my jabber server so it co