Changeset 77 for server/trunk/web/lib/Sophie/Controller/Chat

Timestamp:

12/05/10 17:43:24 (14 years ago)

Author:

nanardon

Message:

• add distrib selection to explorer

File:

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

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

@@ -38 +38 @@
         message => [
             'availlable command:',
-            join(', ', @{ $self->_commands }),
+            join(', ', grep { $_ !~ /^end$/ } @{ $self->_commands }),
         ],
     }
@@ -47 +47 @@
     my ( $self, $c ) = @_;
     return $c->stash->{xmlrpc} = {
-        message => [ 'Sophie ' . $Sophie::VERSION . ' Chat: ' . q$Rev$ ],
+        message => [ 'Sophie: ' . $Sophie::VERSION . ', Chat ' . q$Rev$ ],
     };
 }
 
+sub end : Private {
+    my ($self, $c ) = @_;
+    my $reqspec = $c->req->arguments->[0];
 
+    $c->forward('/end');
+}
 
 =head1 AUTHOR