Changeset 110 for server/trunk/web/lib/Sophie

Timestamp:

12/11/10 06:04:22 (14 years ago)

Author:

nanardon

Message:

• chat doc as html

File:

• server/trunk/web/lib/Sophie/Model/Help/POD.pm (modified) (1 diff)

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

@@ -57 +57 @@
 }
 
+sub bot_help_html {
+    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 $ppvh = Pod::POM::View::HTML->new;
+            return $_->present($ppvh);
+        }
+        last;
+    }
+    return;
+}
+
+sub chat_functions {
+    my ($self) = @_;
+    my $botpom = $self->{pom}{'Chat::Cmd'};
+    foreach my $head1 ($botpom->content) {
+        $head1->title eq 'AVAILLABLE FUNCTIONS' or next;
+        my $ppvh = Pod::POM::View::HTML->new;
+        return $head1->present($ppvh);
+    }
+    return;
+}
+
 
 sub xmlrpc_functions {