say "<h1>Source of $href</h1>";
};
+ my $path = $source;
if ($source =~ m{(?:/|^)\.}) {
Abort("File request not permitted", '403 source not allowed');
}
$source .= '.pm';
for (0 .. $#INC) {
-e ($_ = "$INC[$_]/$source") or next;
- $source = $_;
+ $path = $_;
last;
}
}
- -r $source or Abort("Requested file not found", '404 source not found');
- my $size = (stat $source)->[7];
+ -r $path or Abort("Requested file not found", '404 source not found');
+ my $size = (stat $path)->[7];
my $cachefile = "source/$source.html";
- if (-e $cachefile and (stat $cachefile)->[9] >= (stat $source)->[9]) {
+ if (-e $cachefile and (stat $cachefile)->[9] >= (stat $path)->[9]) {
say '<pre>';
print ReadFile($cachefile);
say '</pre>';
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;
}) {
}
else {
say '<pre>';
- print EscapeHTML(decode_utf8(ReadFile($source)));
+ print EscapeHTML(decode_utf8(ReadFile($path)));
say '</pre>';
}