Changeset 265

Timestamp:

01/02/11 02:12:38 (13 years ago)

Author:

nanardon

Message:

• add statistics page (with graph)

Location:

server/trunk/web

Files:

• Makefile.PL (modified) (1 diff)
• Sophie.spec.in (modified) (4 diffs)
• lib/Sophie.pm (modified) (1 diff)
• lib/Sophie/Controller/Root.pm (modified) (1 diff)
• lib/Sophie/Controller/Statistics (added)
• lib/Sophie/Controller/Statistics.pm (added)
• lib/Sophie/Controller/Statistics/Chat.pm (added)
• lib/Sophie/View/GD.pm (added)
• root/templates/html/statistics (added)
• root/templates/html/statistics/chat (added)
• root/templates/html/statistics/chat/index.html (added)
• t/controller_Statistics-Chat.t (added)
• t/controller_Statistics.t (added)
• t/view_GD.t (added)

server/trunk/web/Makefile.PL

@@ -30 +30 @@
 requires 'Catalyst::View::TT' => '0';
 requires 'Catalyst::View::JSON' => '0';
+requires 'Catalyst::View::GD' => '0';
 requires 'Catalyst::Model::DBIC::Schema';
 requires 'Catalyst::Authentication::Store::DBIx::Class';

server/trunk/web/Sophie.spec.in

@@ -27 +27 @@
 BuildRequires: perl(Catalyst::View::TT)
 BuildRequires: perl(Catalyst::View::JSON)
+BuildRequires: perl(Catalyst::View::GD)
 BuildRequires: perl(DBIx::Class)
 BuildRequires: perl(Catalyst::Plugin::Compress::Zlib)
@@ -37 +38 @@
 BuildRequires: perl(XML::Simple)
 BuildRequires: perl(XML::RSS)
+BuildRequires: perl(GD::Graph)
 
 Requires: perl(Catalyst)
@@ -49 +51 @@
 Requires: perl(Catalyst::Plugin::Prototype)
 Requires: perl(Catalyst::View::TT)
+Requires: perl(Catalyst::View::JSON)
+Requires: perl(Catalyst::View::GD)
 Requires: perl(Catalyst::Plugin::Compress::Zlib)
 Requires: perl-Catalyst-Plugin-Server
@@ -54 +58 @@
 Requires: perl(Catalyst::Authentication::Store::DBIx::Class)
 Requires: perl(XML::RSS)
+Requires: perl(GD::Graph)
 # Requires: apache-mod_fastcgi
 # Requires: perl(FCGI)

server/trunk/web/lib/Sophie.pm

@@ -52 +52 @@
         xml_encoding => 'UTF-8',
         show_errors => 1,
+    },
+    'View::GD' => {
+        gd_image_type         => 'png',        # defaults to 'gif'
+        gd_image_content_type => 'images/png', # defaults to 'image/$gd_image_type'
+        gd_image_render_args  => [ 5 ],        # defaults to []
     },
 

server/trunk/web/lib/Sophie/Controller/Root.pm

@@ -110 +110 @@
 sub  end : Private {
     my ( $self, $c ) = @_;
+    if (!$c->stash->{current_view}) {
+        if (ref($c->stash->{xmlrpc}) eq 'HASH' &&
+            $c->stash->{xmlrpc}{graph}) {
+            $c->stash->{current_view} = 'GD';
+        }
+    }
     if (!$c->req->xmlrpc->method) {
         $c->forward('_end');
-    } elsif (!$c->stash->{current_view}) {
     }
     $c->stash->{data} = $c->stash->{xmlrpc};