Changeset 1a43ce7


Ignore:
Timestamp:
Mar 26, 2008, 2:24:26 AM (16 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
50558dc
Parents:
8faab0c
Message:
Fix sending jabbers to JIDs beginning with `+'
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r6b580b0 r1a43ce7  
    2525use Net::DNS;
    2626use Getopt::Long;
     27Getopt::Long::Configure(qw(no_getopt_compat prefix_pattern="-|--"));
    2728
    2829our $VERSION = 0.1;
     
    477478        'account=s' => \$from,
    478479        'id=s'     =>  \$jwrite_sid,
    479     );
     480    ) or die("Usage: jwrite JID [-t thread] [-s 'subject'] [-a account]\n");
    480481    $jwrite_type = 'groupchat' if $gc;
    481482
     
    567568
    568569        my $getopt = Getopt::Long::Parser->new;
    569         $getopt->configure('pass_through');
     570        $getopt->configure('pass_through', 'no_getopt_compat');
    570571        $getopt->getoptions( 'account=s' => \$jid );
    571572        $jid ||= defaultJID();
     
    731732        my $purgeGroups;
    732733        my $getopt = Getopt::Long::Parser->new;
    733         $getopt->configure('pass_through');
     734        $getopt->configure('pass_through', 'no_getopt_compat');
    734735        $getopt->getoptions(
    735736            'account=s' => \$jid,
Note: See TracChangeset for help on using the changeset viewer.