Changeset 63 for server/trunk
- Timestamp:
- 12/03/10 13:22:48 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm
- Property svn:keywords set to Id Rev
r38 r63 22 22 =cut 23 23 24 =head1 BOT COMMAND 25 26 =head2 REPLY 27 28 =cut 29 30 sub _commands { 31 my ( $self, $c ) = @_; 32 [ grep { m/^[^_]/ } map { $_->name } $self->get_action_methods() ]; 33 } 34 24 35 sub help : XMLRPC { 25 36 my ( $self, $c, $reqspec, @args ) = @_; 26 return $c->{stash}->{xmlrpc} = [ grep { m/^[^_]/ } map { $_->name } $self->get_action_methods() ]; 37 return $c->{stash}->{xmlrpc} = { 38 message => [ 39 'availlable command:', 40 join(', ', @{ $self->_commands }), 41 ], 42 } 27 43 } 28 44 29 45 30 sub me : XMLRPC { 46 sub asv : XMLRPC { 47 my ( $self, $c ) = @_; 48 return $c->stash->{xmlrpc} = { 49 message => [ 'Sophie ' . $Sophie::VERSION . ' Chat: ' . q$Rev$ ], 50 }; 31 51 } 32 52
Note: See TracChangeset
for help on using the changeset viewer.