Changeset 12386

Timestamp:

05/26/08 01:16:49 (6 months ago)

Author:

tokuhirom

Message:

refactoring

Files:

• lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Controller.pm (modified) (3 diffs)

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

@@ -31 +31 @@
 sub dispatch_index {
     my ($class, $c) = @_;
+
+    my $server = App::Mobirc->context->server;
 
     my $channels = [
@@ -52 +54 @@
               [$_, $unl, $time];
           }
-          $c->{global_context}->channels
+          $server->channels
     ];
 
-    my $keyword_recent_num = $c->{global_context}->get_channel(U '*keyword*')->unread_lines;
+    my $keyword_recent_num = $server->get_channel(U '*keyword*')->unread_lines;
 
     return render(
@@ -61 +63 @@
         'index' => {
             exists_recent_entries => (
-                grep( $_->unread_lines, $c->{global_context}->channels )
+                grep( $_->unread_lines, $server->channels )
                 ? true
                 : false