Changeset 6858d2d

Timestamp:

Jan 9, 2008, 11:14:20 PM (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:

47b6a5f

Parents:

6286f26

git-author:

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

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/09/08 23:14:20)

Message:

Implement /part and /names. We don't parse the /names response yet

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC.pm (modified) (5 diffs)

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

@@ -64 +64 @@
     BarnOwl::new_command('irc-disconnect' => \&cmd_disconnect);
     BarnOwl::new_command('irc-msg'     => \&cmd_msg);
-    BarnOwl::new_command('irc-join' => \&cmd_join);
-    BarnOwl::new_command('irc-nick' => \&cmd_nick);
+    BarnOwl::new_command('irc-join'    => \&cmd_join);
+    BarnOwl::new_command('irc-part'    => \&cmd_part);
+    BarnOwl::new_command('irc-nick'    => \&cmd_nick);
+    BarnOwl::new_command('irc-names'   => \&cmd_names);
 }
 
@@ -148 +150 @@
     my $msg = BarnOwl::Message->new(
         type        => 'IRC',
-        direction   => 'out',
+        direction   => is_private($to) ? 'out' : 'in',
         server      => $conn->server,
         network     => $conn->alias,
@@ -169 +171 @@
 }
 
+sub cmd_part {
+    my $cmd = shift;
+    my $conn = get_connection(\@_);
+    my $chan = get_channel(\@_) || die("Usage: $cmd <channel>");
+    $conn->part($chan);
+}
+
 sub cmd_nick {
     my $cmd = shift;
@@ -174 +183 @@
     my $nick = shift or die("Usage: $cmd <new nick>");
     $conn->nick($nick);
+}
+
+sub cmd_names {
+    my $cmd = shift;
+    my $conn = get_connection(\@_);
+    my $chan = get_channel(\@_) || die("Usage: $cmd <channel>");
+    $conn->names($chan);
 }
 
@@ -196 +212 @@
 }
 
+sub get_channel {
+    my $args = shift;
+    if(scalar @$args) {
+        return shift @$args;
+    }
+    my $m = BarnOwl::getcurmsg();
+    if($m && $m->type eq 'IRC') {
+        return $m->channel if !$m->is_private;
+    }
+    return undef;
+}
+
 sub get_connection_by_alias {
     my $key = shift;