Changeset db0ac7e for perl/modules/Jabber/lib
- Timestamp:
- May 3, 2008, 12:52:32 PM (15 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- feabce2
- Parents:
- d9337637 (diff), 811ad93 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - Location:
- perl/modules/Jabber/lib
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
r5f3168a rdb0ac7e 25 25 use Net::DNS; 26 26 use Getopt::Long; 27 Getopt::Long::Configure(qw(no_getopt_compat prefix_pattern=-|--)); 27 28 28 29 use utf8; … … 479 480 'account=s' => \$from, 480 481 'id=s' => \$jwrite_sid, 481 ) ;482 ) or die("Usage: jwrite JID [-t thread] [-s 'subject'] [-a account]\n"); 482 483 $jwrite_type = 'groupchat' if $gc; 483 484 … … 570 571 571 572 my $getopt = Getopt::Long::Parser->new; 572 $getopt->configure('pass_through' );573 $getopt->configure('pass_through', 'no_getopt_compat'); 573 574 $getopt->getoptions( 'account=s' => \$jid ); 574 575 $jid ||= defaultJID(); … … 734 735 my $purgeGroups; 735 736 my $getopt = Getopt::Long::Parser->new; 736 $getopt->configure('pass_through' );737 $getopt->configure('pass_through', 'no_getopt_compat'); 737 738 $getopt->getoptions( 738 739 'account=s' => \$jid, -
perl/modules/Jabber/lib/Net/Jabber/Data.pm
rc2bed55 rcdd3959 120 120 to go into full detail on each of these functions. Rather I will 121 121 present the functions in a list with a type in the first column to 122 show what they return, or take as ar ugments. Here is the list of122 show what they return, or take as arguments. Here is the list of 123 123 types I will use: 124 124 -
perl/modules/Jabber/lib/Net/Jabber/Protocol.pm
rc2bed55 rcdd3959 940 940 if (!exists($funcHash{set}) && exists($funcHash{get})) 941 941 { 942 croak("The DefineNamespace ar ugments have changed, and I cannot determine the\nnew values automatically for name($name). Please read the man page\nfor Net::Jabber::Namespaces. I apologize for this incompatability.\n");942 croak("The DefineNamespace arguments have changed, and I cannot determine the\nnew values automatically for name($name). Please read the man page\nfor Net::Jabber::Namespaces. I apologize for this incompatability.\n"); 943 943 } 944 944 -
perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm
r6b580b0 r5f3168a 1 1 use warnings; 2 2 use strict; 3 use utf8; 3 4 4 5 =head1 NAME -
perl/modules/Jabber/lib/Net/XMPP/Debug.pm
rc2bed55 rb7b2a76 189 189 { 190 190 $self->{HANDLE}->autoflush(1); 191 binmode $self->{HANDLE}, ":utf8"; 191 192 $Net::XMPP::Debug::HANDLES{$args{file}} = $self->{HANDLE}; 192 193 } -
perl/modules/Jabber/lib/Net/XMPP/Message.pm
rc2bed55 r8574801 135 135 $Mess->SetMessage(TO=>"bob\@jabber.org", 136 136 Subject=>"Lunch", 137 Bo Dy=>"Let's do lunch!");137 Body=>"Let's do lunch!"); 138 138 $Mess->SetMessage(to=>"bob\@jabber.org", 139 139 from=>"jabber.org", -
perl/modules/Jabber/lib/XML/Stream.pm
r5073972 ra8d5a39 1659 1659 { 1660 1660 $self->debug(3,"Send: can_write"); 1661 1661 1662 1662 $self->{SENDSTRING} = Encode::encode_utf8(join("",@_)); 1663 1663
Note: See TracChangeset
for help on using the changeset viewer.