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