Changeset 855

Timestamp:

10/29/07 23:49:19 (13 months ago)

Author:

yappo

Message:

lang/perl/irssi/scripts/mobirc.pl: 設定のソースをyamlから読むようにした
lang/perl/irssi/scripts/mobirc.pl: overtaken #850

Files:

• lang/perl/irssi/scripts/mobirc.pl (modified) (3 diffs)

lang/perl/irssi/scripts/mobirc.pl

@@ -41 +41 @@
     my $poe = sweet_args;
     my $session_id = $poe->session->ID;
-
-    my $channel_names  = {};
-    my $channel_topics = {};
-
-    for my $c ( map { $_->{name} } Irssi::channels() ) {
-        $channel_names->{ canon_name($c) } = $c;
-        $channel_topics->{ canon_name($c) } = $c;
-    }
 
     my $conffname = Irssi::settings_get_str('mobirc_config_path');
@@ -69 +61 @@
             _start => sub {
                 $_[KERNEL]->alias_set('irc_session'); # create dummy irc_session
+                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;
+                }
             },
         },
@@ -76 +78 @@
             channel_topic  => {},
             channel_mtime  => {},
-            channel_name   => $channel_names,
-            channel_topic  => $channel_topics,
+            channel_name   => {},
+            channel_topic  => {},
             config         => $config,
             irc            => bless({}, __PACKAGE__),