X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b733f673734a104e3bc0ed2585ff4abbc4db2e78..e302f773d94ea2f2e4a0ce237be454272f4a982b:/index.plp?ds=inline
diff --git a/index.plp b/index.plp
index 42ff251..c20b44b 100644
--- a/index.plp
+++ b/index.plp
@@ -2,16 +2,23 @@
Html({
title => 'cheat sheets',
- version => 'v1.6',
+ version => '1.13',
description => [
"Cheat sheets summarising various software programs and standards.",
],
keywords => [qw'
sheet cheat reference software overview summary help keyboard map unicode
'],
- stylesheet => [qw'light dark red'],
+ raw => [
+ '',
+ '',
+ ],
+ data => ['UPDATE'],
});
+exit if $ENV{REQUEST_METHOD} eq 'HEAD';
:>
Shiar's cheat sheets
@@ -19,19 +26,22 @@ Html({
Through the miracle of formatting, design, abbreviation, compression, and Perl,
the following topics have been condensed into single pages of reference.
-Originally created by Mischa Poslawsky,
+Originally created by Mischa Poslawsky,
but you're free to use, print, alter, and redistribute under the AGPL license.
<:
-my @format = ('--date=short', "--pretty=%ad (%ar)\t%s");
-if (open my $log, '-|', git => 'log', -1, @format) {{
- my $line = readline $log or next;
+if (open my $log, '<', 'UPDATE') {{
+ my $line = readline $log;
+ $line or next; # explicitly ignore empty input
+ EscapeHTML $line;
my ($date, $subject) = split /[\t\n]/, $line;
$date =~ s/ \K// and $date .= '';
- print "