Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Thursday, March 28, 2024

Diff for sendxmpp/sendxmpp between version 1.20 and 1.21

version 1.20, 2010/01/18 00:54:16 version 1.21, 2010/10/03 18:39:16
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.19 2010-01-15 17:08:17 rajo Exp $  # $Platon: sendxmpp/sendxmpp,v 1.20 2010-01-18 00:54: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 405  sub xmpp_send_message ($$$$$$) {
Line 405  sub xmpp_send_message ($$$$$$) {
     my ($cnx, $rcpt, $comp, $subject, $message_type, $msg) = @_;      my ($cnx, $rcpt, $comp, $subject, $message_type, $msg) = @_;
   
     # for some reason, MessageSend does not return anything      # for some reason, MessageSend does not return anything
     $cnx->MessageSend('to'      => $rcpt . ( $comp ? "\@$comp" : '' ),          # mimeit01@xmpp.hs-esslingen.de: if $comp IS set, AND the rcpt DOESN'T contain an @, then @comp is added
       $cnx->MessageSend('to'      => $rcpt . ( ($comp && index($rcpt, "@") == -1) ? "\@$comp" : '' ),
                 'type'          => $message_type,                  'type'          => $message_type,
                 'subject'       => $subject,                  'subject'       => $subject,
                 'body'          => $msg);                  'body'          => $msg);

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS
Go to Top