Changeset 2939

Timestamp:

05/10/05 20:44:16 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

4498

Message:

Net::IRC now tracks the topic of the channels joined, the users inside it, etc.
(but the code is still commented out, because of some (already tested for) bugs
in Pugs).

Files:

• ext/Net-IRC/lib/Net/IRC.pm (modified) (9 diffs)

ext/Net-IRC/lib/Net/IRC.pm

@@ -68 +68 @@
 
   # Default (passive) handlers
+  # First event we get, indicating a successful login
   %handler<001> = [-> $event {
     $inside++;
@@ -78 +79 @@
     debug "Logged in to \"$servername\" as \"$curnick\".";
   }];
+
+  # Nick already used, so we permute our nick.
   %handler<433> = [-> $event {
     if $in_login_phase {
@@ -83 +86 @@
     }
   }];
+
+  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
+  # ircname information.)
   %handler<352> = [-> $event {
     my %rest;
@@ -92 +98 @@
     }
   }];
+
+  # The topic of a chan.
+  %handler<332> = [-> $event {
+    my ($chan, $topic) = split " ", $event<rest>;
+    $topic = strip_colon($topic);
+
+    # %channels{normalize $chan}<topic> = $topic;
+  }];
+  %handler<TOPIC> = [-> $event {
+    # %channels{normalize $event<object>}<topic> = $event<rest>;
+  }];
+
+  # We track our status, especially the channels we've joined.
   %handler<JOIN> = [-> $event {
     if(normalize($event<from_nick>) eq normalize($curnick)) {
@@ -172 +191 @@
     channel       => -> Str $channel { %channels{normalize $channel} },
 
-    # Handler register methods
+    # Main handler register method
     add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },
 
@@ -196 +215 @@
         debug "Disconnecting from $host:$port... ";
         try { $hdl.close }
+        # We want to have a sane state when we connect next time.
         $connected      = 0;
         $inside         = 0;
@@ -219 +239 @@
       if($connected) {
         $queue<enqueue>({
+          # Indicate that we're currently logging in, so our nick_already_used
+          # handler can choose a different nick. $in_login_phase is reset to 0
+          # when we're successfully logged in.
           $in_login_phase++;
           $say("NICK {$nickgen<next>()}");
@@ -241 +264 @@
       $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
       debug_recv $line if $debug_raw;
+      # We record the time the last traffic from the server was seen, so we can
+      # autoping the server if needed.
       $last_traffic = time;
 
@@ -287 +312 @@
     },
 
+    # Handle pseudo events (runloop, loggedin)
     handle_pseudo => -> Str $pseudo, *@args {
       my $event = {