Changeset db0ac7e for perl


Ignore:
Timestamp:
May 3, 2008, 12:52:32 PM (13 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
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.
Message:
Merged revisions 983-1032 via svnmerge from 
file:///afs/sipb.mit.edu/project/barnowl/src/svn/trunk

........
  r985 | nelhage | 2008-03-11 12:38:20 -0400 (Tue, 11 Mar 2008) | 2 lines
  
  Generate less ugly error spew if a module fails to load
........
  r986 | geofft | 2008-03-13 15:56:20 -0400 (Thu, 13 Mar 2008) | 1 line
  
  Added :webzephyr command with keybinding W.
........
  r987 | asedeno | 2008-03-18 23:57:24 -0400 (Tue, 18 Mar 2008) | 2 lines
  
  Fix a race condition in which zephyrs received during init
  are not noticed until the next zephyr after entering the mainloop.
........
  r988 | geofft | 2008-03-19 15:46:43 -0400 (Wed, 19 Mar 2008) | 6 lines
  
  IRC: explicitly include the network (-a $alias) in reply commands.
  
  This may be unnecessary because :irc-msg looks at getcurmsg() if it cannot
  automatically determine the network.
........
  r989 | geofft | 2008-03-21 14:47:51 -0400 (Fri, 21 Mar 2008) | 1 line
  
  syntax error.
........
  r990 | nelhage | 2008-03-26 02:24:26 -0400 (Wed, 26 Mar 2008) | 2 lines
  
  Fix sending jabbers to JIDs beginning with `+'
........
  r994 | nelhage | 2008-03-29 17:02:05 -0400 (Sat, 29 Mar 2008) | 3 lines
  
  Compile zcrypt.c with -w so I don't get all these warnings in my
  compile output whenever I change any headers
........
  r998 | geofft | 2008-03-31 01:59:47 -0400 (Mon, 31 Mar 2008) | 1 line
  
  Implement /me for outgoing IRC messages
........
  r999 | geofft | 2008-03-31 09:58:56 -0400 (Mon, 31 Mar 2008) | 1 line
  
  I think this fixes the resizing bug.
........
  r1000 | nelhage | 2008-03-31 11:29:29 -0400 (Mon, 31 Mar 2008) | 2 lines
  
  Make `svkversion' handle exported trees better
........
  r1001 | nelhage | 2008-03-31 11:52:39 -0400 (Mon, 31 Mar 2008) | 2 lines
  
  Add a makefile rule to support emacs flymake-mode
........
  r1015 | nelhage | 2008-04-04 14:58:45 -0400 (Fri, 04 Apr 2008) | 3 lines
  
  Bind the combinations the iPhone sends for arrow keys [probably other
  terminals, too]
........
  r1018 | shadow | 2008-04-08 13:57:49 -0400 (Tue, 08 Apr 2008) | 2 lines
  
  avoid null pointer dereference if msg is NULL (or a 0 length is claimed)
........
  r1019 | nelhage | 2008-04-09 18:08:26 -0400 (Wed, 09 Apr 2008) | 2 lines
  
  Fix some stupid typos
........
  r1020 | chmrr | 2008-04-09 18:16:02 -0400 (Wed, 09 Apr 2008) | 3 lines
  
   r29300@kohr-ah:  chmrr | 2008-04-09 18:14:37 -0400
    * It's apparently a popular typo
........
  r1022 | asedeno | 2008-04-16 17:05:36 -0400 (Wed, 16 Apr 2008) | 2 lines
  
  Jabber reply bugfix.
  Reported by several people, resolved by arolfe.
........
  r1023 | nelhage | 2008-04-28 23:33:03 -0400 (Mon, 28 Apr 2008) | 3 lines
  
  Initialized merge tracking via "svnmerge" with revisions "735" from 
  svn+ssh://lunatique.mit.edu/mit/barnowl/src/svn/branches/barnowl_unicode
........
  r1024 | nelhage | 2008-04-28 23:33:12 -0400 (Mon, 28 Apr 2008) | 3 lines
  
  Initialized merge tracking via "svnmerge" with revisions "735" from 
  svn+ssh://lunatique.mit.edu/mit/barnowl/src/svn/branches/barnowl_sqlite
........
  r1025 | nelhage | 2008-04-29 01:21:12 -0400 (Tue, 29 Apr 2008) | 2 lines
  
  Clone owl_perl from the sqlite branch because I'm about to make use of it.
........
  r1026 | nelhage | 2008-04-29 01:21:13 -0400 (Tue, 29 Apr 2008) | 4 lines
  
  Initial step of moving styles from the current mishmash of different
  options to a unified object interface.
  No backwards-compatibility support yet.
........
  r1027 | nelhage | 2008-04-29 01:21:15 -0400 (Tue, 29 Apr 2008) | 2 lines
  
  Implement back-compat with old-style owl::format_msg() styles
........
  r1028 | nelhage | 2008-04-29 01:21:16 -0400 (Tue, 29 Apr 2008) | 2 lines
  
  Remove nearly all references to the "basic" style.
........
  r1029 | nelhage | 2008-04-29 01:21:17 -0400 (Tue, 29 Apr 2008) | 2 lines
  
  Support the `style' command again. Note that it is deprecated.
........
  r1031 | nelhage | 2008-04-30 13:29:45 -0400 (Wed, 30 Apr 2008) | 2 lines
  
  Refactor default style code somewhat to be more easily extensible
........
Location:
perl
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/ModuleLoader.pm

    re005862 r965e14d  
    4040        if(!defined eval "use BarnOwl::Module::$class") {
    4141            # BarnOwl::error("Unable to load module $class: $!") if $!;
    42             BarnOwl::error("Unable to load module $class: $@") if $@;
     42            BarnOwl::error("Unable to load module $class: \n$@\n") if $@;
    4343        }
    4444    }
  • perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

    r9c7a701 r919535f  
    199199        process_msg($conn, $to, join(" ", @_));
    200200    } else {
    201         BarnOwl::start_edit_win("/msg $to -a " . $conn->alias, sub {process_msg($conn, $to, @_)});
     201        BarnOwl::start_edit_win("/msg -a " . $conn->alias . " $to", sub {process_msg($conn, $to, @_)});
    202202    }
    203203}
     
    209209    # Strip whitespace. In the future -- send one message/line?
    210210    $body =~ tr/\n\r/  /;
    211     $conn->conn->privmsg($to, $body);
     211    if ($body =~ /^\/me (.*)/) {
     212        $conn->conn->me($to, $1);
     213        $body = BarnOwl::Style::boldify($conn->nick.' '.$1);
     214    } else {
     215        $conn->conn->privmsg($to, $body);
     216    }
    212217    my $msg = BarnOwl::Message->new(
    213218        type        => 'IRC',
     
    220225        is_private($to) ?
    221226          (isprivate  => 'true') : (channel => $to),
    222         replycmd    => "irc-msg $to",
    223         replysendercmd => "irc-msg $to"
     227        replycmd    => "irc-msg -a " . $conn->alias . " $to",
     228        replysendercmd => "irc-msg -a " . $conn->alias . " $to"
    224229       );
    225230    BarnOwl::queue_message($msg);
  • perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

    r661d2eb r8faab0c  
    108108        is_private($recipient) ?
    109109          (isprivate  => 'true') : (channel => $recipient),
    110         replycmd    => 'irc-msg ' .
     110        replycmd    => 'irc-msg -a ' . $self->alias . ' ' .
    111111            (is_private($recipient) ? $evt->nick : $recipient),
    112         replysendercmd => 'irc-msg ' . $evt->nick
     112        replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
    113113       );
    114114
     
    158158        loginout   => 'login',
    159159        channel    => $evt->to,
     160        replycmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick,
     161        replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
    160162        );
    161163    BarnOwl::queue_message($msg);
     
    167169        loginout   => 'logout',
    168170        channel    => $evt->to,
     171        replycmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick,
     172        replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
    169173        );
    170174    BarnOwl::queue_message($msg);
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r5f3168a rdb0ac7e  
    2525use Net::DNS;
    2626use Getopt::Long;
     27Getopt::Long::Configure(qw(no_getopt_compat prefix_pattern=-|--));
    2728
    2829use utf8;
     
    479480        'account=s' => \$from,
    480481        'id=s'     =>  \$jwrite_sid,
    481     );
     482    ) or die("Usage: jwrite JID [-t thread] [-s 'subject'] [-a account]\n");
    482483    $jwrite_type = 'groupchat' if $gc;
    483484
     
    570571
    571572        my $getopt = Getopt::Long::Parser->new;
    572         $getopt->configure('pass_through');
     573        $getopt->configure('pass_through', 'no_getopt_compat');
    573574        $getopt->getoptions( 'account=s' => \$jid );
    574575        $jid ||= defaultJID();
     
    734735        my $purgeGroups;
    735736        my $getopt = Getopt::Long::Parser->new;
    736         $getopt->configure('pass_through');
     737        $getopt->configure('pass_through', 'no_getopt_compat');
    737738        $getopt->getoptions(
    738739            'account=s' => \$jid,
  • perl/modules/Jabber/lib/Net/Jabber/Data.pm

    rc2bed55 rcdd3959  
    120120to go into full detail on each of these functions.  Rather I will
    121121present the functions in a list with a type in the first column to
    122 show what they return, or take as arugments.  Here is the list of
     122show what they return, or take as arguments.  Here is the list of
    123123types I will use:
    124124
  • perl/modules/Jabber/lib/Net/Jabber/Protocol.pm

    rc2bed55 rcdd3959  
    940940        if (!exists($funcHash{set}) && exists($funcHash{get}))
    941941        {
    942             croak("The DefineNamespace arugments 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");
    943943        }
    944944
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm

    r6b580b0 r5f3168a  
    11use warnings;
    22use strict;
     3use utf8;
    34
    45=head1 NAME
  • perl/modules/Jabber/lib/Net/XMPP/Debug.pm

    rc2bed55 rb7b2a76  
    189189                        {
    190190                            $self->{HANDLE}->autoflush(1);
     191                            binmode $self->{HANDLE}, ":utf8";
    191192                            $Net::XMPP::Debug::HANDLES{$args{file}} = $self->{HANDLE};
    192193                        }
  • perl/modules/Jabber/lib/Net/XMPP/Message.pm

    rc2bed55 r8574801  
    135135                            $Mess->SetMessage(TO=>"bob\@jabber.org",
    136136                                              Subject=>"Lunch",
    137                                               BoDy=>"Let's do lunch!");
     137                                              Body=>"Let's do lunch!");
    138138                            $Mess->SetMessage(to=>"bob\@jabber.org",
    139139                                              from=>"jabber.org",
  • perl/modules/Jabber/lib/XML/Stream.pm

    r5073972 ra8d5a39  
    16591659    {
    16601660        $self->debug(3,"Send: can_write");
    1661        
     1661
    16621662        $self->{SENDSTRING} = Encode::encode_utf8(join("",@_));
    16631663
Note: See TracChangeset for help on using the changeset viewer.