[SVN] [85] Support showing docs for any perl module

[matt]

Revision: 85
Author:   matt
Date:     2006-08-15 22:47:40 +0000 (Tue, 15 Aug 2006)

Log Message:
-----------
Support showing docs for any perl module

Modified Paths:
--------------
    trunk/plugins/demo/doc_viewer

Modified: trunk/plugins/demo/doc_viewer
===================================================================
--- trunk/plugins/demo/doc_viewer       2006-08-15 22:37:33 UTC (rev 84)
+++ trunk/plugins/demo/doc_viewer       2006-08-15 22:47:40 UTC (rev 85)
@@ -18,13 +18,17 @@
     }
     elsif ($uri =~ /::/) {
         $uri =~ s/^\///;
+        my $module = $uri;
         $uri = "lib/$uri" unless $uri =~ /plugins::/;
         $uri =~ s/::/\//g;
         $uri .= '.pm' if -e "${uri}.pm";
         $uri .= '.pod' if -e "${uri}.pod";
+        # TODO: fix this huge security hole?
+        $uri = `perldoc -l '$module'`;
     }
     else {
         # Ignore?
+        die "Unsupported URL: $uri";
     }
     
     my $builder = XML::LibXML::SAX::Builder->new();