--- quikwiki.cgi.orig Sun Jun 6 20:48:25 2004 +++ quikwiki.cgi Sun Jun 6 19:45:29 2004 @@ -10,17 +10,21 @@ ENDHTTP my $starthtml =<QuikWiki! - - + + + + +devnull.lt + + ENDTITLE my $endhtml=< + + ENDENDHTML +chdir('.wiki/'); my $rcs_path = `which rcs`; my $rcs_ok = ((-d 'RCS') && (length($rcs_path) && $rcs_path !~ /no rcs/))?1:0; @@ -54,29 +58,30 @@ ENDEDIT -if ($word =~ /doc|pod/) { - print $httpheader . $starthtml; - w_eval ('WikiHeader') if -f 'WikiHeader'; - seek DATA, 0, 0; - $d = join "", (); - open POD, "|pod2html" or do {w_pre ("doc: $!"); return; }; - print POD $d; - close POD; - w_eval ('WikiFooter') if -f 'WikiFooter'; - print $endhtml; - unlink ; - exit 0; -} - -if ($word =~ /self/) { - seek DATA, 0, 0; - w_pre( join "", ()); - exit 0; -} +#if ($word =~ /doc|pod/) { +# print $httpheader . $starthtml; +# w_eval ('WikiHeader') if -f 'WikiHeader'; +# seek DATA, 0, 0; +# $d = join "", (); +# open POD, "|/usr/local/bin/pod2html" or do {w_pre ("doc: $!"); return; }; +# print POD $d; +# close POD; +# w_eval ('WikiFooter') if -f 'WikiFooter'; +# print $endhtml; +# unlink ; +# exit 0; +#} + +#if ($word =~ /self/) { +# seek DATA, 0, 0; +# w_pre( join "", ()); +# exit 0; +#} if ($word =~ /words/) { + $word = 'Site Index'; opendir DIR, '.' or do {w_pre ("words: $!"); return;}; - my @files = grep {/^[A-Z]/ && ! -d $_} readdir DIR; + my @files = grep {/^[A-Z]/ && ! -d $_ && $_ !~ /Wiki(Head|Foot)er/} readdir DIR; closedir DIR; @sortedwords = sort @files; $wordspage = '';