X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/0aaffaf050bd5ca5ce5b5caf9e8dec1e8a1b7a48..24d8e7421e79afd514ce6b9035783e4231dabc84:/source.plp diff --git a/source.plp b/source.plp index de3ad54..83a5833 100644 --- a/source.plp +++ b/source.plp @@ -1,28 +1,22 @@ <(common.inc.plp)><: - our $VERSION = 'v1.0'; - my $source = $ENV{PATH_INFO}; - $source =~ s{^/}{}; +my $source = $ENV{PATH_INFO}; +$source =~ s{^/}{}; -:> - +Html({ + title => "$source source code", + version => 'v1.0', + description => !$source ? 'Index of source files for this site.' : [ + "Source code of the $source file at this site,", + "with syntax highlighted and references linked." + ], + keywords => [qw' + sheet cheat source code perl plp html agpl + '], + stylesheet => [qw'light dark mono red'], +}); -
- -\n", EscapeHTML(ReadFile($source)), "\n"; } + + print "\n"; } -:> - -