Changeset 66

Timestamp:

12/04/10 02:57:00 (14 years ago)

Author:

nanardon

Message:

• handle command line sent as multiple argument

File:

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

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

@@ -31 +31 @@
 
 sub message : XMLRPC {
-    my ($self, $c, $contexts, $message) = @_;
+    my ($self, $c, $contexts, $message, @msgargs) = @_;
     
     my $reqspec = {};
@@ -49 +49 @@
     }
 
-    my ($cmd, @args) = Text::ParseWords::shellwords($message);
+    my ($cmd, @args) = @msgargs
+        ? ($message, @msgargs)
+        : Text::ParseWords::shellwords($message);
 
     if ($c->get_action( $cmd, '/chat/cmd' )) {
-        return $c->forward('/chat/cmd/' . $cmd, [ $reqspec, @args ]);
+        return $c->go('/chat/cmd/' . $cmd, [ $reqspec, @args ]);
     } else {
         $c->stash->{xmlrpc} = {