X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0aaffaf050bd5ca5ce5b5caf9e8dec1e8a1b7a48..0bf15a019e9201754f43b7a874b8cc02c96d2130:/source.plp
diff --git a/source.plp b/source.plp
index de3ad54..ee129ce 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'],
+});
-
-
-<:= $source :> source code
-">
-
-<:= stylesheet(qw'light dark mono red') :>
-
-
-
-
-<:
+print "\n";
if (not $source) {
print "Source files
";
@@ -82,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";
}
-:>
-
-