Changeset 693c8f2 for perl


Ignore:
Timestamp:
May 24, 2007, 6:16:20 PM (14 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:
3c455b4
Parents:
987ff51
Message:
Jabber tweaks:

BarnOwl::Message::Jabber now defines subcontext as subject, much as
BarnOwl::Message::Zephyr maps instance to it.

BarnOwl::Module::Jabber now preserves subjects through replies to
MUCs. Also, fixed a typo in which ``jwrite ... -s foo'' showed up as
``jwrite ... -t foo'' when echoed back to the terminal.
Location:
perl/modules/Jabber/lib/BarnOwl
Files:
2 edited

Legend:

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

    r2cedb7a r693c8f2  
    2020sub to { shift->{to} };
    2121sub room { shift->{room} };
     22sub subject { shift->{subject} };
    2223sub status { shift->{status} }
    2324
     
    3940sub context {
    4041    return shift->room;
     42}
     43
     44sub subcontext {
     45    return shift->subject || "";
    4146}
    4247
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    rafd0fd5 r693c8f2  
    503503    my $cmd = "jwrite $jwrite_to -a $jwrite_from";
    504504    $cmd .= " -t $jwrite_thread" if $jwrite_thread;
    505     $cmd .= " -t $jwrite_subject" if $jwrite_subject;
     505    $cmd .= " -s $jwrite_subject" if $jwrite_subject;
    506506    BarnOwl::start_edit_win( $cmd, \&process_owl_jwrite );
    507507}
     
    10971097        $props{replycmd} .=
    10981098          " -a " . ( ( $dir eq 'out' ) ? $props{from} : $props{to} );
     1099        if ($props{subject}) {
     1100          $props{replycmd} .= " -s " . $props{subject}
     1101        }
    10991102
    11001103        if ($dir eq 'out') {
Note: See TracChangeset for help on using the changeset viewer.