X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/598285f72ae22bca87d53a29651e7110a253b25b..v1.14-7-ge90c9ada43:/source.plp?ds=sidebyside diff --git a/source.plp b/source.plp index 43fddb6..b586dbe 100644 --- a/source.plp +++ b/source.plp @@ -29,7 +29,7 @@ if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) { Html({ title => "$source source code", - version => '1.2', + version => '1.3', description => !$source ? 'Index of source files for this site.' : [ "Source code of the $source file at this site,", "with syntax highlighted and references linked." @@ -43,13 +43,18 @@ Html({ say ''; -if (not $source) { - print "
Project code distributed under the AGPL. Please contribute back.
"; say ''; print ReadFile($cachefile); say ''; exit; } + -e or mkdir for $cachefile =~ s{[^/]+\z}{}r; # dirname open my $cache, '>', $cachefile or Alert("Could not save cache", "Opening $cachefile failed: $!");; @@ -91,7 +98,7 @@ else { or die 'early versions are buggy under FastCGI'; delete $Text::VimColor::SYNTAX_TYPE{Underlined}; return Text::VimColor->new( - file => $source, + file => $path, vim_options => [@Text::VimColor::VIM_OPTIONS, '+:set enc=utf-8'], )->marked; }) { @@ -99,6 +106,7 @@ else { Statement => 'strong', Error => 'em', Todo => 'em', + PreProc => 'strong', ); say '
'; @@ -126,7 +134,7 @@ else { } else { say ''; - print EscapeHTML(decode_utf8(ReadFile($source))); + print EscapeHTML(decode_utf8(ReadFile($path))); say ''; }