speed up cgis
parent
1e5c7926cf
commit
15d316a812
7
ikiwiki
7
ikiwiki
|
@ -3,7 +3,6 @@ $ENV{PATH}="/usr/local/bin:/usr/bin:/bin";
|
||||||
|
|
||||||
use warnings;
|
use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
use File::Find;
|
|
||||||
use Memoize;
|
use Memoize;
|
||||||
use File::Spec;
|
use File::Spec;
|
||||||
use HTML::Template;
|
use HTML::Template;
|
||||||
|
@ -251,7 +250,9 @@ sub htmlize ($$) { #{{{
|
||||||
my $content=shift;
|
my $content=shift;
|
||||||
|
|
||||||
if (! $INC{"/usr/bin/markdown"}) {
|
if (! $INC{"/usr/bin/markdown"}) {
|
||||||
|
no warnings 'once';
|
||||||
$blosxom::version="is a proper perl module too much to ask?";
|
$blosxom::version="is a proper perl module too much to ask?";
|
||||||
|
use warnings 'all';
|
||||||
do "/usr/bin/markdown";
|
do "/usr/bin/markdown";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -535,11 +536,15 @@ sub refresh () { #{{{
|
||||||
# Find existing pages.
|
# Find existing pages.
|
||||||
my %exists;
|
my %exists;
|
||||||
my @files;
|
my @files;
|
||||||
|
|
||||||
|
eval q{use File::Find};
|
||||||
find({
|
find({
|
||||||
no_chdir => 1,
|
no_chdir => 1,
|
||||||
wanted => sub {
|
wanted => sub {
|
||||||
if (/$config{wiki_file_prune_regexp}/) {
|
if (/$config{wiki_file_prune_regexp}/) {
|
||||||
|
no warnings 'once';
|
||||||
$File::Find::prune=1;
|
$File::Find::prune=1;
|
||||||
|
use warnings "all";
|
||||||
}
|
}
|
||||||
elsif (! -d $_) {
|
elsif (! -d $_) {
|
||||||
my ($f)=/$config{wiki_file_regexp}/; # untaint
|
my ($f)=/$config{wiki_file_regexp}/; # untaint
|
||||||
|
|
Loading…
Reference in New Issue