Changeset 0e52069 for perl/modules

Timestamp:

Jan 9, 2008, 12:26:15 AM (17 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:

380b1ab

Parents:

2c40dc0

git-author:

Nelson Elhage <nelhage@mit.edu> (01/09/08 00:25:13)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/09/08 00:26:15)

Message:

Implement smartnarrow on channels

Location:

perl/modules/IRC/lib/BarnOwl

Files:

• Message/IRC.pm (modified) (2 diffs)
• Module/IRC.pm (modified) (1 diff)
• Module/IRC/Connection.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

@@ -36 +36 @@
         return $filter;
     } else {
-        # Unimplemented
-        return undef;
+        # To a Channel
+        my $network = $self->network;
+        my $channel = $self->channel;
+        my $filter = "irc-$network-channel-$channel";
+        my $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$};
+        BarnOwl::filter("$filter $ftext");
+        return $filter;
     }
 }
@@ -43 +48 @@
 sub server {shift->{server}}
 sub network {shift->{network}}
+sub channel {shift->{channel}}
 
 # display

perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

@@ -154 +154 @@
         sender      => $conn->nick,
         is_private($to) ?
-          (isprivate  => 'true') : (),
+          (isprivate  => 'true') : (channel => $to),
         replycmd    => "irc-msg $to",
         replysendercmd => "irc-msg $to"

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -67 +67 @@
           (notice     => 'true') : (),
         is_private($recipient) ?
-          (isprivate  => 'true') : (),
+          (isprivate  => 'true') : (channel => $recipient),
         replycmd    => 'irc-msg ' .
             (is_private($recipient) ? $evt->nick : $recipient),