Changeset 889 for lang/perl/irssi

Timestamp:

10/30/07 15:05:51 (6 years ago)

Author:

yappo

Message:

r1415@haruna: ko | 2007-10-29 23:46:24 +0900
lang/perl/irssi/scripts/mobirc.pl: overtaken #850

Files:

• lang/perl/irssi/scripts/mobirc.pl (modified) (1 diff)

lang/perl/irssi/scripts/mobirc.pl

@@ -85 +85 @@
                     $poe->heap->{channel_name}->{ $canon_name } = $c->{name};
                     $poe->heap->{channel_topic}->{ $canon_name } = $c->{topic};
+                }
+                my $poe = sweet_args;
+ 
+                for my $c ( map { $_->{name} } Irssi::channels() ) {
+                    add_message( $poe,
+                        decode( $poe->heap->{config}->{irc}->{incode}, canon_name($c) ),
+                        undef, decode('utf8', 'Connected to irc server!'), 'connect' );
+
+                    $poe->heap->{channel_name}->{ canon_name($c) } = $c;
+                    $poe->heap->{channel_topics}->{ canon_name($c) } = $c;
                 }
             },