Changeset 38 for server/trunk/web/lib/Sophie/Controller/Chat.pm

Timestamp:

11/26/10 03:10:18 (14 years ago)

Author:

nanardon

Message:

• start explorer page
• some function in Chat/

File:

• server/trunk/web/lib/Sophie/Controller/Chat.pm (modified) (3 diffs)

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

@@ -2 +2 @@
 use Moose;
 use namespace::autoclean;
+use Getopt::Long;
+use Text::ParseWords;
 
 BEGIN {extends 'Catalyst::Controller'; }
@@ -28 +30 @@
 }
 
-
 sub message : XMLRPC {
     my ($self, $c, $contexts, $message) = @_;
@@ -48 +49 @@
     }
 
-    $c->stash->{xmlrpc} = $c->forward($c->model('Chat'), [ $reqspec, $message ]); 
-    
+    my ($cmd, @args) = Text::ParseWords::shellwords($message);
+
+    if ($c->get_action( $cmd, '/chat/cmd' )) {
+        $c->forward('/chat/cmd/' . $cmd, [ $reqspec, @args ]);
+    }
 }