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); |
Platon Group <platon@platon.org> http://platon.org/
|
|