X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/0561a41a9fde9b86999f5acf86047ef098c3df7c..8bf4b29ac2bea396e7aafe10713ec3b148a153a8:/source.plp?ds=sidebyside diff --git a/source.plp b/source.plp index e3b2609..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 "