Changeset 237 for server

Timestamp:

12/30/10 14:45:20 (13 years ago)

Author:

nanardon

Message:

• readd url Chat command

File:

• server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm (modified) (1 diff)

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

@@ -338 +338 @@
 }
 
+=head2 url [-s] NAME
+
+Show the url of package C<NAME>.
+
+=cut 
+
+sub url : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+
+    $c->forward('qf', [ $reqspec, @args, '%{url}' ]);
+}
+
+=head2 u
+
+Is an alias to C<url> command.
+
+=cut 
+
+sub u : XMLRPC {
+    my ($self, $c, @args) = @_;
+    $c->forward('url', [ @args ]);
+}
+
 =head2 group [-s] NAME