Changeset 163

Timestamp:

12/21/10 17:29:36 (13 years ago)

Author:

nanardon

Message:

• add urls doc

Location:

server/trunk/web

Files:

• lib/Sophie/Controller/Help/Urls.pm (added)
• lib/Sophie/Model/Help/POD.pm (modified) (2 diffs)
• root/templates/html/help/index.html (modified) (1 diff)
• root/templates/html/help/urls (added)
• root/templates/html/help/urls/index.html (added)
• t/controller_Help-Urls.t (added)

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

@@ -30 +30 @@
 sub pom {
     my ($self) = @_;
-    return values %{ $self->{pom} }
+    my @pom;
+    foreach (sort keys %{ $self->{pom} }) {
+        push(@pom, $self->{pom}{$_});
+    }
+    return @pom;
 }
 
@@ -102 +106 @@
 }
 
+sub urls_functions {
+    my ($self) = @_;
+    my @pod;
+    foreach my $pom ($self->pom) {
+        foreach my $head1 ($pom->content) {
+            foreach my $item ($head1->content) {
+                my $title = $item->title or next;
+                if ($title =~ /^Url:/) {
+                     push(@pod, $item);
+                }
+            }
+        }
+    }
+    my $ppvh = Pod::POM::View::HTML->new;
+    return join("\n\n", map { $_->present($ppvh) } @pod);
+}
+
 sub ACCEPT_CONTEXT {
     my ($self, $c, @args) = @_;

server/trunk/web/root/templates/html/help/index.html

@@ -1 +1 @@
 <!-- $Id$ -->
+<p><a href="[% c.uri_for('/help', 'urls') %]">Supported Urls</a></p>
 <p><a href="[% c.uri_for('/help', 'xmlrpc') %]">XML::RPC functions doc</a></p>
 <p><a href="[% c.uri_for('/help', 'chat') %]">Bot help</a></p>