X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/98cfbf69d9806fe9cc9e352859da42f60a56a338..0bf15a019e9201754f43b7a874b8cc02c96d2130:/source.plp diff --git a/source.plp b/source.plp index f713a73..ee129ce 100644 --- a/source.plp +++ b/source.plp @@ -1,22 +1,23 @@ <(common.inc.plp)><: - our $VERSION = 'v1.0'; - -:> - - - - -sheet page source code -<:= stylesheet(qw'light dark mono red') :> - - - -<: 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'], +}); + +print "\n"; + if (not $source) { print "

Source files

"; @@ -75,18 +76,12 @@ else { print "\n"; } else { - print "
\n", EscapeHTML(ReadFile($source)), "
\n"; + require Encode; + print "
\n";
+		print EscapeHTML(Encode::decode_utf8(ReadFile($source)));
+		print "
\n"; } + + print "\n"; } -:> - -