Changeset 12659

Timestamp:

05/29/08 02:28:25 (5 years ago)

Author:

tokuhirom

Message:

refactoring

Location:

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD

Files:

• C/Ajax.pm (modified) (1 diff)
• Router.pm (modified) (1 diff)
• Template/Ajax.pm (modified) (1 diff)

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/C/Ajax.pm

@@ -56 +56 @@
 }
 
-sub dispatch_ajax_keyword {
+sub dispatch_keyword {
     my ($class, $c ) = @_;
 
     render_td(
         $c,
-        'ajax_keyword' => (
-            server,
-            irc_nick,
-        )
+        'ajax/keyword' => {
+            logs     => scalar(server->keyword_channel->message_log),
+            irc_nick => irc_nick,
+        }
     );
     server->keyword_channel->clear_unread();

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Router.pm

@@ -46 +46 @@
     }
     elsif ($uri eq '/ajax/keyword') {
-        return 'Ajax', 'ajax_keyword';
+        return 'Ajax', 'keyword';
     }
     elsif ($uri eq '/jquery.js') {

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Template/Ajax.pm

@@ -99 +99 @@
 };
 
-template 'ajax_keyword' => sub {
-    my ($self, $server, $irc_nick) = @_;
+template 'ajax/keyword' => sub {
+    my $self = shift;
+    my %args = validate(
+        @_ => {
+            logs     => 1,
+            irc_nick => 1,
+        },
+    );
 
     div {
-        for my $row ( @{ $server->keyword_channel->message_log } ) {
-            show 'keyword_line', $row, $irc_nick;
+        for my $row ( @{ $args{logs} } ) {
+            show '../keyword_line', $row, $args{irc_nick};
         }
     }