X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/3301a8a999962dee1aa9a6e6c32e3a72e8367f6c..v1.10-46-g4c43bcbed6:/source.plp?ds=inline diff --git a/source.plp b/source.plp index 71ed8ce..ef730a4 100644 --- a/source.plp +++ b/source.plp @@ -1,6 +1,7 @@ <(common.inc.plp)><: my $source = $Request; +my $incname = qr{ [a-z][/a-z0-9_.-]* \.(?:plp?|css|js|txt) }x; if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) { # convert perl include to json construct @@ -36,6 +37,7 @@ Html({ sheet cheat source code perl plp html agpl '], stylesheet => [qw'light dark mono red'], + data => [$source =~ m{\A($incname)\z}], }); say ''; @@ -52,7 +54,8 @@ if (not $source) { say "\n"; } else { - say "