Changeset f094fc4 for perl/modules/IRC/lib

Timestamp:

May 5, 2008, 2:56:52 PM (16 years ago)

Author:

Geoffrey Thomas <geofft@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:

8df6cbb

Parents:

811ad93

Message:

IRC: /list, /who, and /stats commands

File:

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

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

@@ -114 +114 @@
     BarnOwl::new_command('irc-whois'      => \&cmd_whois);
     BarnOwl::new_command('irc-motd'       => \&cmd_motd);
+    BarnOwl::new_command('irc-list'       => \&cmd_list);
+    BarnOwl::new_command('irc-who'        => \&cmd_who);
+    BarnOwl::new_command('irc-stats'      => \&cmd_stats);
 }
 
@@ -146 +149 @@
         $host = shift @ARGV or die("Usage: $cmd HOST\n");
         if(!$alias) {
-            if($host =~ /^(?:irc[.])?(\w+)[.]\w+$/) {
+            if($host =~ /^(?:irc[.])?([\w-]+)[.]\w+$/) {
                 $alias = $1;
             } else {
@@ -152 +155 @@
             }
         }
-        $port = shift @ARGV || 6667;
         $ssl ||= 0;
+        $port = shift @ARGV || ($ssl ? 6697 : 6667);
     }
 
@@ -275 +278 @@
 }
 
+sub cmd_list {
+    my $cmd = shift;
+    my $message = BarnOwl::Style::boldify('Current IRC networks:') . "\n";
+    while (my ($alias, $conn) = each %ircnets) {
+        $message .= '  ' . $alias . ' => ' . $conn->nick . '@' . $conn->server . "\n";
+    }
+    BarnOwl::popless_ztext($message);
+}
+
+sub cmd_who {
+    my $cmd = shift;
+    my $conn = get_connection(\@_);
+    my $who = shift || die("Usage: $cmd <user>\n");
+    $conn->conn->who($who);
+}
+
+sub cmd_stats {
+    my $cmd = shift;
+    my $conn = get_connection(\@_);
+    my $type = shift || die("Usage: $cmd <chiklmouy> [server] \n");
+    $conn->conn->stats($type, @_);
+}
+
 ################################################################################
 ########################### Utilities/Helpers ##################################