Changeset 63

Timestamp:

12/03/10 13:22:48 (14 years ago)

Author:

nanardon

Message:

• first bot command

File:

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

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

@@ -22 +22 @@
 =cut
 
+=head1 BOT COMMAND
+
+=head2 REPLY
+
+=cut
+
+sub _commands {
+    my ( $self, $c ) = @_;
+    [ grep { m/^[^_]/ } map { $_->name } $self->get_action_methods() ];
+}
+
 sub help : XMLRPC {
     my ( $self, $c, $reqspec, @args ) = @_;
-    return $c->{stash}->{xmlrpc} = [ grep { m/^[^_]/ } map { $_->name } $self->get_action_methods() ];
+    return $c->{stash}->{xmlrpc} = {
+        message => [
+            'availlable command:',
+            join(', ', @{ $self->_commands }),
+        ],
+    }
 }
 
 
-sub me : XMLRPC {
+sub asv : XMLRPC {
+    my ( $self, $c ) = @_;
+    return $c->stash->{xmlrpc} = {
+        message => [ 'Sophie ' . $Sophie::VERSION . ' Chat: ' . q$Rev$ ],
+    };
 }