Changeset 238

Timestamp:

12/30/10 18:02:30 (13 years ago)

Author:

nanardon

Message:

• get statistic about Chat request

Location:

server/trunk/web/lib/Sophie/Controller

Files:

• Chat.pm (modified) (1 diff)
• Chat/Cmd.pm (modified) (1 diff)

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

@@ -49 +49 @@
     }
 }
+
+
+sub update_statistic : Private {
+    my ($self, $c, $cmd) = @_;
+
+    $c->model('Base::ChatStat')->search(
+        {
+            -nest => \[
+            "day < now() - ?::interval",
+            [ plain_text => "365 days" ],
+        ],
+        }
+    )->delete;
+    my $stat = $c->model('Base::ChatStat')->find_or_create({
+        cmd => $cmd,
+        day => 'now()',
+    });
+    $stat->update({ count => ($stat->count || 0) + 1 });
+    $c->model('Base')->storage->dbh->commit;
+}
+
 
 sub message : XMLRPC {

server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm

@@ -29 +29 @@
 sub end : Private {
     my ($self, $c ) = @_;
+    
+    $c->forward('/chat/update_statistic', [ ($c->action =~ /([^\/]+)$/)[0] ]);
+
     my $reqspec = $c->req->arguments->[0];
     $reqspec->{max_line} ||= 4;