Changeset 139

Timestamp:

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

Author:

nanardon

Message:

• add cookie functions

File:

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

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

@@ -302 +302 @@
 }
 
+=head2 cookie [-s] NAME
+
+Show the C<cookie> tag of package C<NAME>.
+
+=cut
+
+sub cookie : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+
+    $c->forward('qf', [ $reqspec, @args, '%{cookie}' ]);
+}
+
 =head2 qf rpmname format