Diff for sendxmpp/sendxmpp between version 1.21 and 1.22
version 1.21, 2010/10/03 18:39:16 |
version 1.22, 2010/10/03 19:36:35 |
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.20 2010-01-18 00:54:16 rajo Exp $ |
# $Platon: sendxmpp/sendxmpp,v 1.21 2010-10-03 18:39:16 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 178 sub read_config_file ($) { |
|
Line 178 sub read_config_file ($) { |
|
# account with specific connection host |
# account with specific connection host |
if ($config{'jserver'} =~ /(.*);([-\.\w]+)/) { |
if ($config{'jserver'} =~ /(.*);([-\.\w]+)/) { |
$config{'jserver'} = $2; |
$config{'jserver'} = $2; |
$config{'username'} .= "\@$1"; |
$config{'username'} .= "\@$1" unless $config{'component'}; |
} |
} |
} |
} |
|
|
Platon Group <platon@platon.org> http://platon.org/
|
|