version 1.16, 2009/01/09 22:29:53 |
version 1.17, 2009/01/09 22:50:48 |
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.15 2008-10-21 21:31:53 rajo Exp $ |
# $Platon: sendxmpp/sendxmpp,v 1.16 2009-01-09 22:29:53 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 311 sub xmpp_login ($$$$$$$$) { |
|
Line 311 sub xmpp_login ($$$$$$$$) { |
|
$arghash->{port} = $port if (!$port); |
$arghash->{port} = $port if (!$port); |
if (!$port) { |
if (!$port) { |
@res = $cnx->Connect(%$arghash); |
@res = $cnx->Connect(%$arghash); |
error_exit ("Could not connect to server '$host': $@") unless @res; |
error_exit ("Could not connect to '$host' on port $port: $@") unless @res; |
} else { |
} else { |
@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 server '$host': $@") unless @res; |
} |
} |
|
|
xmpp_check_result("Connect",\@res,$cnx); |
xmpp_check_result("Connect",\@res,$cnx); |