Changeset 874 for lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm

Timestamp:

10/30/07 11:20:41 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: detail design change.
lang/perl/mobirc: reconnect, connect, snotice is now in the *server* pseudo channel.

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm (modified) (5 diffs)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm

@@ -31 +31 @@
             disconnect_msg => true,
             channel_topic  => {},
+            channel_name   => {},
             config         => $config,
             irc            => $irc,
@@ -47 +48 @@
             irc_ctcp_action  => \&on_irc_ctcp_action,
             irc_kick         => \&on_irc_kick,
+            irc_snotice      => \&on_irc_snotice,
 
             autoping         => \&do_autoping,
@@ -81 +83 @@
     DEBUG "CONNECTED";
 
-    for my $channel ( sort keys %{ $poe->heap->{channel_name} } ) {
-        add_message( $poe,
-            decode( $poe->heap->{config}->{irc}->{incode}, $channel ),
-            undef, decode('utf8', 'Connected to irc server!'), 'connect' );
-    }
-    $poe->heap->{disconnect_msg} = true;
-    $poe->heap->{channel_name} = {};
+    add_message( $poe,
+        decode( 'utf8', '*server*' ),
+        undef, decode('utf8', 'Connected to irc server!'), 'connect' );
+
+    $poe->heap->{disconnect_msg} = true;
+    $poe->heap->{channel_name} = {'*server*' => '*server*'};
     $poe->kernel->delay( autoping => $poe->heap->{config}->{ping_delay} );
 }
@@ -272 +273 @@
 }
 
+sub on_irc_snotice {
+    my $poe = sweet_args;
+
+    my ($message, ) = _get_args($poe);
+
+    DEBUG "getting snotice : $message";
+
+    add_message(
+        $poe,
+        decode( 'utf8', '*server*' ),
+        undef,
+        decode( 'utf8', $message),
+        'snotice',
+    );
+}
+
 sub on_irc_reconnect {
     my $poe = sweet_args;
 
     if ( $poe->heap->{disconnect_msg} ) {
-        for my $channel ( sort keys %{ $poe->heap->{channel_name} } ) {
-            add_message(
-                $poe,
-                decode( $poe->heap->{config}->{irc}->{incode}, $channel ),
-                undef,
-                decode( 'utf8', 'Disconnected from irc server, trying to reconnect...'),
-                'reconnect',
-            );
-        }
+        add_message(
+            $poe,
+            decode( 'utf8', '*server*' ),
+            undef,
+            decode( 'utf8', 'Disconnected from irc server, trying to reconnect...'),
+            'reconnect',
+        );
     }
     $poe->heap->{disconnect_msg} = false;
@@ -290 +305 @@
 }
 
+sub _get_args {
+    my $poe = shift;
+
+    return map { decode($poe->heap->{config}->{irc}->{incode}, $_) } @{ $poe->args };
+}
+
 1;