Changeset 972

Timestamp:

10/31/07 22:23:12 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: implemented keyword support, likes limechat ;-) idea from id:miyagawa++

Location:

lang/perl/mobirc/trunk/mobirc

Files:

• Makefile.PL (modified) (1 diff)
• assets/tmpl/index.html (modified) (3 diffs)
• assets/tmpl/keyword.html (modified) (1 diff)
• config.yaml.sample (modified) (1 diff)
• lib/Mobirc/ConfigLoader.pm (modified) (1 diff)
• lib/Mobirc/Util.pm (modified) (1 diff)

lang/perl/mobirc/trunk/mobirc/Makefile.PL

@@ -31 +31 @@
 requires 'Storable';
 requires 'List::MoreUtils';
-requires 'Template::Provider::Encoding';
-requires 'HTTP::MobileAgent';
 
 build_requires 'Test::More';

lang/perl/mobirc/trunk/mobirc/assets/tmpl/index.html

@@ -2 +2 @@
 
 [%# < %][% IF keyword_recent.size() > 0 %]
-<div class="keyword_recent_notice"><a href="[% docroot %]keyword-recent">Keyword([% keyword_recent.size() | html %])</a></div>
+<div class="keyword_recent_notice"><a href="/keyword-recent">Keyword([% keyword_recent.size() | html %])</a></div>
 [% END %]
 
@@ -55 +55 @@
 <!-- main menu -->
 
-0 <a href="[% docroot %]" accesskey="0">refresh list</a><br />
+0 <a href="[% docroot %]" accesskey="0">refresh list</a><br>
 [%- IF exists_recent_entries %]
 * <a href="[% docroot %]recent" accesskey="*">recent</a><br />
@@ -61 +61 @@
 # <a href="[% docroot %]topics" accesskey="#">topics</a><br />
 <a href="[% docroot %]keyword">keyword</a><br />
+<a href="/keyword">keyword</a><br />
 
 <hr />

lang/perl/mobirc/trunk/mobirc/assets/tmpl/keyword.html

@@ -7 +7 @@
 
 [% FOR row IN rows %]
-    [% render_line(row) %](<a href="[% docroot %]channels/[% row.channel | uri%]">[% row.channel | html %]</a>)<br />
+    [% render_line(row) %]<br />
 [% END %]
 

lang/perl/mobirc/trunk/mobirc/config.yaml.sample

@@ -3 +3 @@
 #   assets_dir: /usr/local/share/mobirc/assets
 #   pid_fname: /var/run/mobirc-sample.pid
+#   keywords:
+#     - tokuhirom
+#     - mogera
 #   keywords:
 #     - tokuhirom

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

@@ -121 +121 @@
     }
     else {
-        open my $fh, '<:utf8', $stuff or die $!;
-        $config = YAML::LoadFile($fh);
-        close $fh;
+        # TODO: local $YAML::Syck::ImplicitUnicode = 1;
+        $config = YAML::Syck::LoadFile($stuff);
     }
 

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

@@ -90 +90 @@
 
     # update unread lines
-    $heap->{unread_lines}->{$canon_channel} = scalar grep {
-                                                  $_->{class} eq "public" ||
-                                                  $_->{class} eq "notice"
-                                              } @{ $heap->{channel_recent}->{$canon_channel} };
+    $heap->{unread_lines}->{$canon_channel} = scalar @{ $heap->{channel_recent}->{$canon_channel} };
 
     # update keyword buffer.
-    if ($row->{class} eq 'public') {
-        if (any { $row->{msg} =~ /$_/i } @{$config->{global}->{keywords} || []}) {
-            update_keyword_buffer($poe, $row);
+    if ($row->{class} eq 'notice' || $row->{class} eq 'public') {
+        # FIXME: shoud use local $YAML::Syck::ImplicitUnicode = 1;
+        if (any { index($row->{msg}, $_) != -1 } map { decode('utf8', $_) } @{$config->{global}->{keywords} || []}) {
+            push @{$heap->{keyword_buffer}}, $row;
+            if ( @{$heap->{keyword_buffer}} > $config->{httpd}->{lines}) {
+                shift @{ $heap->{keyword_buffer} }; # trash old one.
+            }
+
+            push @{$heap->{keyword_recent}}, $row;
+            if ( @{$heap->{keyword_recent}} > $config->{httpd}->{lines}) {
+                shift @{ $heap->{keyword_recent} }; # trash old one.
+            }
         }
     }