X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/f63a57e71a3aed6fe5e80ca979186e3bd6c7eb6b..52115de0b42272dd62f54f234590ae5b4d086565:/source.plp?ds=sidebyside diff --git a/source.plp b/source.plp index a813db4..83a5833 100644 --- a/source.plp +++ b/source.plp @@ -1,27 +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"; } -:> - -