Diff for sendxmpp/sendxmpp between version 1.17 and 1.18
version 1.17, 2009/01/09 22:50:48 |
version 1.18, 2009/01/10 11:40:14 |
Line 16 if 0; # not running under some shell |
|
Line 16 if 0; # not running under some shell |
|
# |
# |
# Released under the terms of the GNU General Public License v2 |
# Released under the terms of the GNU General Public License v2 |
# |
# |
# $Platon: sendxmpp/sendxmpp,v 1.16 2009-01-09 22:29:53 rajo Exp $ |
# $Platon: sendxmpp/sendxmpp,v 1.17 2009-01-09 22:50:48 rajo Exp $ |
# $Id$ |
# $Id$ |
|
|
use Authen::SASL qw(Perl); # authentication broken if Authen::SASL::Cyrus module installed |
use Authen::SASL qw(Perl); # authentication broken if Authen::SASL::Cyrus module installed |
Line 308 sub xmpp_login ($$$$$$$$) { |
|
Line 308 sub xmpp_login ($$$$$$$$) { |
|
connectiontype => 'tcpip', |
connectiontype => 'tcpip', |
componentname => $comp |
componentname => $comp |
}; |
}; |
$arghash->{port} = $port if (!$port); |
|
if (!$port) { |
delete $arghash->{port} unless $port; |
|
if ($arghash->{port}) { |
@res = $cnx->Connect(%$arghash); |
@res = $cnx->Connect(%$arghash); |
error_exit ("Could not connect to '$host' on port $port: $@") unless @res; |
error_exit ("Could not connect to '$host' on port $port: $@") unless @res; |
} else { |
} else { |
Platon Group <platon@platon.org> http://platon.org/
|
|