Changeset 782

Timestamp:

07/27/08 22:11:16 (20 months ago)

Author:

kane

Message:

r6513@coke: josboum | 2008-07-27 18:55:46 +0200

• make the help list more dynamic, so new commands aren't being left out of the help message
• also add required arguments and availability to the help message

Files:

• trunk/DJabberd/lib/DJabberd/Connection/Admin.pm (modified) (16 diffs)

trunk/DJabberd/lib/DJabberd/Connection/Admin.pm

@@ -6 +6 @@
 
 use fields qw(buffer server handle);
-use vars qw($initial_memory);
+use vars qw($initial_memory @Help);
 
 use Devel::Peek ();
@@ -68 +68 @@
 }
 
+push @Help, 'close | exit | quit';
 sub CMD_close { $_[0]->close }
 sub CMD_quit { $_[0]->close }
 sub CMD_exit { $_[0]->close }
 
+push @Help, 'conns | connections';
 *CMD_conns = \&CMD_connections;
 sub CMD_connections {
@@ -89 +91 @@
 }
 
+push @Help, 'latency_log';
 sub CMD_latency_log {
    my $self = shift;
@@ -98 +101 @@
 }
 
+push @Help, 'latency';
 sub CMD_latency {
     my $self = shift;
@@ -124 +128 @@
 }
 
+push @Help, 'help';
 sub CMD_help {
     my $self = shift;
-    $self->write($_) foreach split(/\n/, <<EOC);
-Available commands:
-   version
-   help
-   list vhosts
-   quit
-   connections
-   conns
-   conns servers
-   conns clients
-   latency
-   users
-.
-EOC
-}
-
+    $self->write($_) for 'Available commands:', (sort @Help), '.';
+}
+
+push @Help, 'list vhosts';
 sub CMD_list {
     my $self = shift;
@@ -155 +148 @@
 }
 
+push @Help, 'stats';
 sub CMD_stats {
     my $self = shift;
@@ -180 +174 @@
 }
 
+push @Help, 'counters';
 sub CMD_counters {
     my $self = shift;
@@ -189 +184 @@
 }
 
+push @Help, 'users';
 sub CMD_users {
     my $self = shift;
@@ -202 +198 @@
 }
 
+push @Help, 'version';
 sub CMD_version {
     $_[0]->write($DJabberd::VERSION);
@@ -255 +252 @@
 }
 
+push @Help, 'gladiator [lite | delta | all] ' . ( $has_gladiator ? '' : '(unavailable)' );
 my %last_gladiator;
 sub CMD_gladiator {
@@ -287 +285 @@
 }
 
+push @Help, 'cycle ' . ( $has_gladiator ? '' : '(unavailable)' );
 sub CMD_cycle {
     my $self = shift;
@@ -309 +308 @@
 }
 
+push @Help, 'fields package_name';
 sub CMD_fields {
     my ($self, $arg) = @_;
@@ -318 +318 @@
 }
 
+push @Help, 'note_arena ' . ( $has_devel_leak ? '' : '(unavailable)' );
 sub CMD_note_arena {
     my ($self, $arg) = @_;
@@ -326 +327 @@
 }
 
+push @Help, 'check_arena ' . ( $has_devel_leak ? '' : '(unavailable)' );
 sub CMD_check_arena {
     my ($self, $arg) = @_;
@@ -333 +335 @@
 }
 
+push @Help, 'reload';
 sub CMD_reload {
     my $self = shift;
@@ -344 +347 @@
 }
 
+push @Help, 'send_stanza JID STANZA';
 sub CMD_send_stanza {
     my ($self, $params) = @_;