Diff for sendxmpp/sendxmpp between version 1.15 and 1.16
| version 1.15, 2008/10/21 21:31:53 |
version 1.16, 2009/01/09 22:29:53 |
| 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.14 2008-08-25 09:54:12 rajo Exp $ |
# $Platon: sendxmpp/sendxmpp,v 1.15 2008-10-21 21:31: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 48 $VERSION = [ q$Revision$ =~ m/(\S+)\s*$/ |
|
| Line 48 $VERSION = [ q$Revision$ =~ m/(\S+)\s*$/ |
|
| my $RESOURCE = 'sendxmpp'; |
my $RESOURCE = 'sendxmpp'; |
| my $VERBOSE = 0; |
my $VERBOSE = 0; |
| my $DEBUG = 0; |
my $DEBUG = 0; |
| my @suppported_message_types = qw( message chat headline ); |
# http://tools.ietf.org/html/rfc3921#section-2 section 2.1.1 - Types of Message |
| my $message_type = 'message'; # default message type |
my @suppported_message_types = qw( chat error groupchat headline ); |
| |
my $message_type = 'chat'; # default message type |
| |
|
| # start! |
# start! |
| &main; |
&main; |
Platon Group <platon@platon.org> http://platon.org/
|
|
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to