X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f63a57e71a3aed6fe5e80ca979186e3bd6c7eb6b..5eb5ea37fdc8a195430cf7b198aacb30057b87a8:/source.plp
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'],
+});
-
-
-<:= $source :> source code
-">
-
-<:= stylesheet(qw'light dark mono red') :>
-
-
-
-<:
+print "\n";
if (not $source) {
print "Source files
";
@@ -83,16 +78,7 @@ else {
else {
print "\n", EscapeHTML(ReadFile($source)), "
\n";
}
+
+ print "\n";
}
-:>
-
-