Changeset f8d9df1 for perl/modules


Ignore:
Timestamp:
Feb 28, 2008, 6:18:34 PM (16 years ago)
Author:
Alejandro R. Sedeño <asedeno@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:
6119fbb
Parents:
dfb6c7d (diff), 1af21e8 (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 964-971 via svnmerge from 
file:///afs/sipb.mit.edu/project/barnowl/src/svn/trunk

........
  r966 | austein | 2008-02-24 03:39:48 -0500 (Sun, 24 Feb 2008) | 1 line
  
  HTML Filtering fix for BODY tag
........
  r971 | nelhage | 2008-02-28 18:13:45 -0500 (Thu, 28 Feb 2008) | 2 lines
  
  Add parenthesis to fix a perl error in IRC
........
Location:
perl/modules
Files:
6 edited

Legend:

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

    r1951db8 r1af21e8  
    126126            BarnOwl::Style::boldify('IRC ' . $evt->type . ' message from '
    127127                . $self->alias) . "\n"
    128             . strip_irc_formatting(join '\n', cdr $evt->args));
     128            . strip_irc_formatting(join '\n', cdr($evt->args)));
    129129}
    130130
    131131sub on_motdstart {
    132132    my ($self, $evt) = @_;
    133     $self->motd(join "\n", cdr $evt->args);
     133    $self->motd(join "\n", cdr($evt->args));
    134134}
    135135
    136136sub on_motd {
    137137    my ($self, $evt) = @_;
    138     $self->motd(join "\n", $self->motd, cdr $evt->args);
     138    $self->motd(join "\n", $self->motd, cdr($evt->args));
    139139}
    140140
    141141sub on_endofmotd {
    142142    my ($self, $evt) = @_;
    143     $self->motd(join "\n", $self->motd, cdr $evt->args);
     143    $self->motd(join "\n", $self->motd, cdr($evt->args));
    144144    if(!$self->connected) {
    145145        BarnOwl::admin_message("IRC", "Connected to " .
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r6b580b0 r5f3168a  
    2525use Net::DNS;
    2626use Getopt::Long;
     27
     28use utf8;
    2729
    2830our $VERSION = 0.1;
     
    377379                    $vars{jlogin_havepass} = 1;
    378380                    $conn->removeConnection($jidStr);
    379                     BarnOwl::start_password( "Password for $jidStr: ", \&do_login );
     381                    BarnOwl::start_password("Password for $jidStr: ", \&do_login );
    380382                    return "";
    381383                }
     
    486488    }
    487489    else {
    488         $to = shift @ARGV;
     490      $to = shift @ARGV;
    489491    }
    490492
     
    530532    $cmd .= " -t $jwrite_thread" if $jwrite_thread;
    531533    $cmd .= " -s $jwrite_subject" if $jwrite_subject;
    532     BarnOwl::start_edit_win( $cmd, \&process_owl_jwrite );
     534
     535    BarnOwl::start_edit_win($cmd, \&process_owl_jwrite );
    533536}
    534537
  • 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.