Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 49 lines (36 sloc) 881 Bytes
#!/usr/bin/perl
use strict;
use warnings;
package Pod::POM::View::HTML::davorg;
use base 'Pod::POM::View::HTML';
sub view_pod {
my ($self, $pod) = @_;
my $content = $pod->content->present($self);
$content =~ s|</pre>\n\n<pre>|\n\n|g;
return '<html>
<head>
<link rel="stylesheet" href="/style.css" type="text/css" />
</head>
<body>' .
$content .
'<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-56332-3";
urchinTracker();
</script>
</body>
</html>';
}
package main;
use Pod::POM;
use Cwd;
use CGI qw(header);
use CGI::Carp 'fatalsToBrowser';
my $file = "$ENV{DOCUMENT_ROOT}/$ENV{QUERY_STRING}";
unless (-e $file) {
die "No such file: $file";
}
my $p = Pod::POM->new;
my $pom = $p->parse_file($file);
print header, Pod::POM::View::HTML::davorg->print($pom);
Something went wrong with that request. Please try again.