Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Thursday, April 18, 2024
[BACK] [TXT][DIR] Up to [Platon] / sendxmpp

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 {
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top