Changeset 48f7d12 for perl/modules/IRC/lib/BarnOwl/Module

Timestamp:

Jun 5, 2009, 9:47:57 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

ac40fdf

Parents:

c00ab5f

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/05/09 21:32:52)

git-committer:

Nelson Elhage <nelhage@mit.edu> (06/05/09 21:47:57)

Message:

Get rid of cryptic numeric messages after IRC commands.

Remove the cryptic numeric codes that appear in the message area after
certain IRC commands.

File:

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

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

@@ -375 +375 @@
     $conn->conn->disconnect;
     delete $ircnets{$conn->alias};
+    return;
 }
 
@@ -387 +388 @@
         BarnOwl::start_edit_win("/msg -a " . $conn->alias . " $to", sub {process_msg($conn, $to, @_)});
     }
+    return;
 }
 
@@ -415 +417 @@
        );
     BarnOwl::queue_message($msg);
+    return;
 }
 
@@ -423 +426 @@
     $target ||= shift;
     $conn->conn->mode($target, @_);
+    return;
 }
 
@@ -432 +436 @@
     push @{$channels{$chan}}, $conn;
     $conn->conn->join($chan, @_);
+    return;
 }
 
@@ -440 +445 @@
     $channels{$chan} = [grep {$_ ne $conn} @{$channels{$chan} || []}];
     $conn->conn->part($chan);
+    return;
 }
 
@@ -447 +453 @@
     my $nick = shift or die("Usage: $cmd <new nick>\n");
     $conn->conn->nick($nick);
+    return;
 }
 
@@ -455 +462 @@
     $conn->names_tmp([]);
     $conn->conn->names($chan);
+    return;
 }
 
@@ -462 +470 @@
     my $who = shift || die("Usage: $cmd <user>\n");
     $conn->conn->whois($who);
+    return;
 }
 
@@ -468 +477 @@
     my $conn = shift;
     $conn->conn->motd;
+    return;
 }
 
@@ -477 +487 @@
     }
     BarnOwl::popless_ztext($message);
+    return;
 }
 
@@ -485 +496 @@
     BarnOwl::error("WHO $cmd $conn $who");
     $conn->conn->who($who);
+    return;
 }
 
@@ -492 +504 @@
     my $type = shift || die("Usage: $cmd <chiklmouy> [server] \n");
     $conn->conn->stats($type, @_);
+    return;
 }
 
@@ -499 +512 @@
     my $chan = shift;
     $conn->conn->topic($chan, @_ ? join(" ", @_) : undef);
+    return;
 }
 
@@ -505 +519 @@
     my $conn = shift;
     $conn->conn->sl(join(" ", @_));
+    return;
 }