Re: [misterhouse-users] Jabber Support

[Neil C. <nc...@co...>]

Sean Walker wrote:
> 
>>
>> Now I see no error (not really checking anymore). I also think
>> Net::Jabber doesn't like being called every time signon was called.
>>
> Check further up in the log file and you probably will see it. I did.
> 

The only error I see now is:

drop_hook: Specified hook not found, loc=MainLoop_post hook=CODE(0x8d10568)

This is because 'run_voice_cmd 'Connect to jabber';' calls
net_jabber_signoff first before net_jabber_sigon is called. Signoff
calls drophook before the hook is added. This error occurs only the
first time net_jabber_signon is called. I no longer see any other
errors. BTW, it doesn't stop MH from running

Here is the top section of this code in handy_net_utilities.pl:

#my ($aim_connection, $icq_connection, $jabber_connection, $msn_connection, 
%msn_connections, %msn_queue);
use vars qw($aim_connection $icq_connection $jabber_connection $msn_connection 
%msn_connections %msn_queue);

eval 'use Net::Jabber qw (Client)';
print "Error in Net::Jabber: $@\n" if $@;

sub main::net_jabber_signon {
     return if $jabber_connection;  # Already signed on

     my ($name, $password, $server, $resource, $port) = @_;

     $name     = $main::config_parms{net_jabber_name}      unless $name;
     $password = $main::config_parms{net_jabber_password}  unless $password;
     $server   = $main::config_parms{net_jabber_server}    unless $server;
     $resource = $main::config_parms{net_jabber_resource}  unless $resource;

     $server   = 'jabber.com' unless $server;
     $port     = 5222         unless $port;
     $resource = 'none'       unless $resource;

     $jabber_connection = new Net::Jabber::Client;

	:
	:
	:

-- 
Linux Home Automation         Neil Cherry       nc...@co...
http://home.comcast.net/~ncherry/               (Text only)
http://hcs.sourceforge.net/                     (HCS II)
http://linuxha.blogspot.com/                    My HA Blog