Changeset 102 for server/trunk/web/lib/Sophie/Model

Timestamp:

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

Author:

nanardon

Message:

• support chat command help from POD

File:

• server/trunk/web/lib/Sophie/Model/Help/POD.pm (modified) (2 diffs)

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 {