Changeset 102

Timestamp:

12/09/10 07:01:43 (13 years ago)

Author:

nanardon

Message:

• support chat command help from POD

Location:

server/trunk/web/lib/Sophie

Files:

• Controller/Chat/Cmd.pm (modified) (3 diffs)
• Model/Help/POD.pm (modified) (2 diffs)

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

@@ -27 +27 @@
 =head2 REPLY
 
+=head1 AVAILLABLE FUNCTIONS
+
 =cut
 
@@ -44 +46 @@
 }
 
+=head2 help [cmd]
 
+Return help about command cmd or list availlable command. 
 
+=cut
 
 sub help : XMLRPC {
-    my ( $self, $c, $reqspec, @args ) = @_;
-    return $c->{stash}->{xmlrpc} = {
-        private_reply => 1,
-        message => [
-            'availlable command:',
-            join(', ', grep { $_ !~ /^end$/ } @{ $self->_commands }),
-        ],
+    my ( $self, $c, $reqspec, $cmd ) = @_;
+    if ($cmd) {
+        my @message = grep { /\S+/ } split(/\n/,
+            $c->model('Help::POD')->bot_help_text($cmd) || 'No help availlable');
+        return $c->{stash}->{xmlrpc} = {
+            private_reply => 1,
+            message => \@message,
+        };
+    } else {
+        return $c->{stash}->{xmlrpc} = {
+            private_reply => 1,
+            message => [
+                'availlable command:',
+                join(', ', grep { $_ !~ /^end$/ } @{ $self->_commands }),
+            ],
+        }
     }
 }
+
+=head2 asv
+
+ASV means in french "age, sexe, ville" (age, sex and town).
+Return the version of the Chat module version.
+
+=cut
 
 sub asv : XMLRPC {
@@ -87 +108 @@
         message => \@message,
     }
+}
+
+sub v : XMLRPC {
+    my ($self, $c, @args) = @_;
+    $c->forward('version', [ @args ]);
 }
 

server/trunk/web/lib/Sophie/Model/Help/POD.pm

@@ -5 +5 @@
 use Pod::POM;
 use Pod::POM::View::HTML;
+use Pod::POM::View::Text;
 
 extends 'Catalyst::Model';
@@ -31 +32 @@
     return values %{ $self->{pom} }
 }
+
+sub bot_functions {
+    my ($self) = @_;
+    my $botpom = $self->{pom}{'Chat::Cmd'};
+    foreach my $head1 ($botpom->content) {
+        $head1->title eq 'AVAILLABLE FUNCTIONS' or next;
+        return map { $_->title } $head1->content;
+    }
+}
+
+sub bot_help_text {
+    my ($self, $cmd) = @_;
+    my $botpom = $self->{pom}{'Chat::Cmd'};
+    foreach my $head1 ($botpom->content) {
+        $head1->title eq 'AVAILLABLE FUNCTIONS' or next;
+        foreach ($head1->content) {
+            $_->title =~ /^\Q$cmd\E( |$)/ or next;
+            my $ppvt = Pod::POM::View::Text->new;
+            return $_->present($ppvt);
+        }
+        last;
+    }
+    return;
+}
+
 
 sub xmlrpc_functions {