history and folding
parent
113887b157
commit
de0f43fa34
137
ikiwiki
137
ikiwiki
|
@ -6,13 +6,12 @@ use File::Find;
|
||||||
use Memoize;
|
use Memoize;
|
||||||
use File::Spec;
|
use File::Spec;
|
||||||
|
|
||||||
$ENV{PATH}="/usr/local/bin:/usr/bin:/bin";
|
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
$blosxom::version="is a proper perl module too much to ask?";
|
$blosxom::version="is a proper perl module too much to ask?";
|
||||||
do "/usr/bin/markdown";
|
do "/usr/bin/markdown";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
$ENV{PATH}="/usr/local/bin:/usr/bin:/bin";
|
||||||
my ($srcdir, $destdir, %links, %oldlinks, %oldpagemtime, %renderedfiles,
|
my ($srcdir, $destdir, %links, %oldlinks, %oldpagemtime, %renderedfiles,
|
||||||
%pagesources);
|
%pagesources);
|
||||||
my $wiki_link_regexp=qr/\[\[([^\s]+)\]\]/;
|
my $wiki_link_regexp=qr/\[\[([^\s]+)\]\]/;
|
||||||
|
@ -24,13 +23,14 @@ my $default_pagetype=".mdwn";
|
||||||
my $cgi=0;
|
my $cgi=0;
|
||||||
my $url="";
|
my $url="";
|
||||||
my $cgiurl="";
|
my $cgiurl="";
|
||||||
|
my $historyurl="";
|
||||||
my $svn=1;
|
my $svn=1;
|
||||||
|
|
||||||
sub usage {
|
sub usage { #{{{
|
||||||
die "usage: ikiwiki [options] source dest\n";
|
die "usage: ikiwiki [options] source dest\n";
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub error ($) {
|
sub error ($) { #{{{
|
||||||
if ($cgi) {
|
if ($cgi) {
|
||||||
print "Content-type: text/html\n\n";
|
print "Content-type: text/html\n\n";
|
||||||
print "Error: @_\n";
|
print "Error: @_\n";
|
||||||
|
@ -39,39 +39,39 @@ sub error ($) {
|
||||||
else {
|
else {
|
||||||
die @_;
|
die @_;
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub debug ($) {
|
sub debug ($) { #{{{
|
||||||
print "@_\n" if $verbose;
|
print "@_\n" if $verbose;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub mtime ($) {
|
sub mtime ($) { #{{{
|
||||||
my $page=shift;
|
my $page=shift;
|
||||||
|
|
||||||
return (stat($page))[9];
|
return (stat($page))[9];
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub possibly_foolish_untaint ($) {
|
sub possibly_foolish_untaint ($) { #{{{
|
||||||
my $tainted=shift;
|
my $tainted=shift;
|
||||||
my ($untainted)=$tainted=~/(.*)/;
|
my ($untainted)=$tainted=~/(.*)/;
|
||||||
return $untainted;
|
return $untainted;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub basename {
|
sub basename ($) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
$file=~s!.*/!!;
|
$file=~s!.*/!!;
|
||||||
return $file;
|
return $file;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub dirname {
|
sub dirname ($) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
$file=~s!/?[^/]+$!!;
|
$file=~s!/?[^/]+$!!;
|
||||||
return $file;
|
return $file;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub pagetype ($) {
|
sub pagetype ($) { #{{{
|
||||||
my $page=shift;
|
my $page=shift;
|
||||||
|
|
||||||
if ($page =~ /\.mdwn$/) {
|
if ($page =~ /\.mdwn$/) {
|
||||||
|
@ -80,24 +80,24 @@ sub pagetype ($) {
|
||||||
else {
|
else {
|
||||||
return "unknown";
|
return "unknown";
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub pagename ($) {
|
sub pagename ($) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
my $type=pagetype($file);
|
my $type=pagetype($file);
|
||||||
my $page=$file;
|
my $page=$file;
|
||||||
$page=~s/\Q$type\E*$// unless $type eq 'unknown';
|
$page=~s/\Q$type\E*$// unless $type eq 'unknown';
|
||||||
return $page;
|
return $page;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub htmlpage ($) {
|
sub htmlpage ($) { #{{{
|
||||||
my $page=shift;
|
my $page=shift;
|
||||||
|
|
||||||
return $page.".html";
|
return $page.".html";
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub readfile ($) {
|
sub readfile ($) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
local $/=undef;
|
local $/=undef;
|
||||||
|
@ -105,9 +105,9 @@ sub readfile ($) {
|
||||||
my $ret=<IN>;
|
my $ret=<IN>;
|
||||||
close IN;
|
close IN;
|
||||||
return $ret;
|
return $ret;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub writefile ($$) {
|
sub writefile ($$) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
my $content=shift;
|
my $content=shift;
|
||||||
|
|
||||||
|
@ -125,9 +125,9 @@ sub writefile ($$) {
|
||||||
open (OUT, ">$file") || error("failed to write $file: $!");
|
open (OUT, ">$file") || error("failed to write $file: $!");
|
||||||
print OUT $content;
|
print OUT $content;
|
||||||
close OUT;
|
close OUT;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub findlinks {
|
sub findlinks { #{{{
|
||||||
my $content=shift;
|
my $content=shift;
|
||||||
|
|
||||||
my @links;
|
my @links;
|
||||||
|
@ -135,13 +135,13 @@ sub findlinks {
|
||||||
push @links, lc($1);
|
push @links, lc($1);
|
||||||
}
|
}
|
||||||
return @links;
|
return @links;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
# Given a page and the text of a link on the page, determine which existing
|
# Given a page and the text of a link on the page, determine which existing
|
||||||
# page that link best points to. Prefers pages under a subdirectory with
|
# page that link best points to. Prefers pages under a subdirectory with
|
||||||
# the same name as the source page, failing that goes down the directory tree
|
# the same name as the source page, failing that goes down the directory tree
|
||||||
# to the base looking for matching pages.
|
# to the base looking for matching pages.
|
||||||
sub bestlink ($$) {
|
sub bestlink ($$) { #{{{
|
||||||
my $page=shift;
|
my $page=shift;
|
||||||
my $link=lc(shift);
|
my $link=lc(shift);
|
||||||
|
|
||||||
|
@ -159,15 +159,15 @@ sub bestlink ($$) {
|
||||||
|
|
||||||
#print STDERR "warning: page $page, broken link: $link\n";
|
#print STDERR "warning: page $page, broken link: $link\n";
|
||||||
return "";
|
return "";
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub isinlinableimage ($) {
|
sub isinlinableimage ($) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
$file=~/\.(png|gif|jpg|jpeg)$/;
|
$file=~/\.(png|gif|jpg|jpeg)$/;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub htmllink {
|
sub htmllink { #{{{
|
||||||
my $page=shift;
|
my $page=shift;
|
||||||
my $link=shift;
|
my $link=shift;
|
||||||
my $noimagelink=shift;
|
my $noimagelink=shift;
|
||||||
|
@ -193,18 +193,18 @@ sub htmllink {
|
||||||
return "<img src=\"$bestlink\">";
|
return "<img src=\"$bestlink\">";
|
||||||
}
|
}
|
||||||
return "<a href=\"$bestlink\">$link</a>";
|
return "<a href=\"$bestlink\">$link</a>";
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub linkify ($$) {
|
sub linkify ($$) { #{{{
|
||||||
my $content=shift;
|
my $content=shift;
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
$content =~ s/$wiki_link_regexp/htmllink(pagename($file), $1)/eg;
|
$content =~ s/$wiki_link_regexp/htmllink(pagename($file), $1)/eg;
|
||||||
|
|
||||||
return $content;
|
return $content;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub htmlize ($$) {
|
sub htmlize ($$) { #{{{
|
||||||
my $type=shift;
|
my $type=shift;
|
||||||
my $content=shift;
|
my $content=shift;
|
||||||
|
|
||||||
|
@ -214,9 +214,9 @@ sub htmlize ($$) {
|
||||||
else {
|
else {
|
||||||
error("htmlization of $type not supported");
|
error("htmlization of $type not supported");
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub linkbacks ($$) {
|
sub linkbacks ($$) { #{{{
|
||||||
my $content=shift;
|
my $content=shift;
|
||||||
my $page=shift;
|
my $page=shift;
|
||||||
|
|
||||||
|
@ -241,9 +241,9 @@ sub linkbacks ($$) {
|
||||||
|
|
||||||
$content.="<hr><p>Links: ".join(" ", sort @links)."</p>\n" if @links;
|
$content.="<hr><p>Links: ".join(" ", sort @links)."</p>\n" if @links;
|
||||||
return $content;
|
return $content;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub finalize ($$) {
|
sub finalize ($$) { #{{{
|
||||||
my $content=shift;
|
my $content=shift;
|
||||||
my $page=shift;
|
my $page=shift;
|
||||||
|
|
||||||
|
@ -269,6 +269,11 @@ sub finalize ($$) {
|
||||||
push @actions, "<a href=\"$cgiurl?do=edit&page=$page\">Edit</a>";
|
push @actions, "<a href=\"$cgiurl?do=edit&page=$page\">Edit</a>";
|
||||||
push @actions, "<a href=\"$cgiurl?do=recentchanges\">RecentChanges</a>";
|
push @actions, "<a href=\"$cgiurl?do=recentchanges\">RecentChanges</a>";
|
||||||
}
|
}
|
||||||
|
if (length $historyurl) {
|
||||||
|
my $url=$historyurl;
|
||||||
|
$url=~s/\[\[\]\]/$page/g;
|
||||||
|
push @actions, "<a href=\"$url\">History</a>";
|
||||||
|
}
|
||||||
|
|
||||||
$content="<html>\n<head><title>$title</title></head>\n<body>\n".
|
$content="<html>\n<head><title>$title</title></head>\n<body>\n".
|
||||||
"<h1>$pagelink</h1>\n".
|
"<h1>$pagelink</h1>\n".
|
||||||
|
@ -277,9 +282,9 @@ sub finalize ($$) {
|
||||||
"</body>\n</html>\n";
|
"</body>\n</html>\n";
|
||||||
|
|
||||||
return $content;
|
return $content;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub render ($) {
|
sub render ($) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
my $type=pagetype($file);
|
my $type=pagetype($file);
|
||||||
|
@ -304,9 +309,9 @@ sub render ($) {
|
||||||
$oldpagemtime{$file}=time;
|
$oldpagemtime{$file}=time;
|
||||||
$renderedfiles{$file}=$file;
|
$renderedfiles{$file}=$file;
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub loadindex () {
|
sub loadindex () { #{{{
|
||||||
open (IN, "$srcdir/.index") || return;
|
open (IN, "$srcdir/.index") || return;
|
||||||
while (<IN>) {
|
while (<IN>) {
|
||||||
$_=possibly_foolish_untaint($_);
|
$_=possibly_foolish_untaint($_);
|
||||||
|
@ -320,9 +325,9 @@ sub loadindex () {
|
||||||
$renderedfiles{$page}=$rendered;
|
$renderedfiles{$page}=$rendered;
|
||||||
}
|
}
|
||||||
close IN;
|
close IN;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub saveindex () {
|
sub saveindex () { #{{{
|
||||||
open (OUT, ">$srcdir/.index") || error("cannot write to .index: $!");
|
open (OUT, ">$srcdir/.index") || error("cannot write to .index: $!");
|
||||||
foreach my $page (keys %oldpagemtime) {
|
foreach my $page (keys %oldpagemtime) {
|
||||||
print OUT "$oldpagemtime{$page} $pagesources{$page} $renderedfiles{$page} ".
|
print OUT "$oldpagemtime{$page} $pagesources{$page} $renderedfiles{$page} ".
|
||||||
|
@ -330,17 +335,17 @@ sub saveindex () {
|
||||||
if $oldpagemtime{$page};
|
if $oldpagemtime{$page};
|
||||||
}
|
}
|
||||||
close OUT;
|
close OUT;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub rcs_update () {
|
sub rcs_update () { #{{{
|
||||||
if (-d "$srcdir/.svn") {
|
if (-d "$srcdir/.svn") {
|
||||||
if (system("svn", "update", "--quiet", $srcdir) != 0) {
|
if (system("svn", "update", "--quiet", $srcdir) != 0) {
|
||||||
warn("svn update failed\n");
|
warn("svn update failed\n");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub rcs_commit ($) {
|
sub rcs_commit ($) { #{{{
|
||||||
my $message=shift;
|
my $message=shift;
|
||||||
|
|
||||||
if (-d "$srcdir/.svn") {
|
if (-d "$srcdir/.svn") {
|
||||||
|
@ -349,9 +354,9 @@ sub rcs_commit ($) {
|
||||||
warn("svn commit failed\n");
|
warn("svn commit failed\n");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub rcs_add ($) {
|
sub rcs_add ($) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
if (-d "$srcdir/.svn") {
|
if (-d "$srcdir/.svn") {
|
||||||
|
@ -365,9 +370,9 @@ sub rcs_add ($) {
|
||||||
warn("svn add failed\n");
|
warn("svn add failed\n");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub rcs_recentchanges ($) {
|
sub rcs_recentchanges ($) { #{{{
|
||||||
my $num=shift;
|
my $num=shift;
|
||||||
my @ret;
|
my @ret;
|
||||||
|
|
||||||
|
@ -419,9 +424,9 @@ sub rcs_recentchanges ($) {
|
||||||
}
|
}
|
||||||
|
|
||||||
return @ret;
|
return @ret;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub prune ($) {
|
sub prune ($) { #{{{
|
||||||
my $file=shift;
|
my $file=shift;
|
||||||
|
|
||||||
unlink($file);
|
unlink($file);
|
||||||
|
@ -429,9 +434,9 @@ sub prune ($) {
|
||||||
while (rmdir($dir)) {
|
while (rmdir($dir)) {
|
||||||
$dir=dirname($dir);
|
$dir=dirname($dir);
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub refresh () {
|
sub refresh () { #{{{
|
||||||
# Find existing pages.
|
# Find existing pages.
|
||||||
my %exists;
|
my %exists;
|
||||||
my @files;
|
my @files;
|
||||||
|
@ -552,11 +557,11 @@ FILE: foreach my $file (@files) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
# Generates a C wrapper program for running ikiwiki in a specific way.
|
# Generates a C wrapper program for running ikiwiki in a specific way.
|
||||||
# The wrapper may be safely made suid.
|
# The wrapper may be safely made suid.
|
||||||
sub gen_wrapper ($$) {
|
sub gen_wrapper ($$) { #{{{
|
||||||
my ($svn, $rebuild)=@_;
|
my ($svn, $rebuild)=@_;
|
||||||
|
|
||||||
eval q{use Cwd 'abs_path'};
|
eval q{use Cwd 'abs_path'};
|
||||||
|
@ -574,6 +579,7 @@ sub gen_wrapper ($$) {
|
||||||
push @params, "--cgi" if $cgi;
|
push @params, "--cgi" if $cgi;
|
||||||
push @params, "--url=$url" if $url;
|
push @params, "--url=$url" if $url;
|
||||||
push @params, "--cgiurl=$cgiurl" if $cgiurl;
|
push @params, "--cgiurl=$cgiurl" if $cgiurl;
|
||||||
|
push @params, "--historyurl=$historyurl" if $historyurl;
|
||||||
my $params=join(" ", @params);
|
my $params=join(" ", @params);
|
||||||
my $call='';
|
my $call='';
|
||||||
foreach my $p ($this, $this, @params) {
|
foreach my $p ($this, $this, @params) {
|
||||||
|
@ -630,9 +636,9 @@ EOF
|
||||||
unlink("ikiwiki-wrap.c");
|
unlink("ikiwiki-wrap.c");
|
||||||
print "successfully generated ikiwiki-wrap\n";
|
print "successfully generated ikiwiki-wrap\n";
|
||||||
exit 0;
|
exit 0;
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
sub cgi () {
|
sub cgi () { #{{{
|
||||||
eval q{use CGI};
|
eval q{use CGI};
|
||||||
my $q=CGI->new;
|
my $q=CGI->new;
|
||||||
|
|
||||||
|
@ -779,8 +785,9 @@ sub cgi () {
|
||||||
else {
|
else {
|
||||||
error("unknown do parameter");
|
error("unknown do parameter");
|
||||||
}
|
}
|
||||||
}
|
} #}}}
|
||||||
|
|
||||||
|
# main {{{
|
||||||
my $rebuild=0;
|
my $rebuild=0;
|
||||||
my $wrapper=0;
|
my $wrapper=0;
|
||||||
if (grep /^-/, @ARGV) {
|
if (grep /^-/, @ARGV) {
|
||||||
|
@ -794,6 +801,7 @@ if (grep /^-/, @ARGV) {
|
||||||
"cgi" => \$cgi,
|
"cgi" => \$cgi,
|
||||||
"url=s" => \$url,
|
"url=s" => \$url,
|
||||||
"cgiurl=s" => \$cgiurl,
|
"cgiurl=s" => \$cgiurl,
|
||||||
|
"historyurl=s" => \$historyurl,
|
||||||
) || usage();
|
) || usage();
|
||||||
}
|
}
|
||||||
usage() unless @ARGV == 2;
|
usage() unless @ARGV == 2;
|
||||||
|
@ -816,3 +824,4 @@ else {
|
||||||
refresh();
|
refresh();
|
||||||
saveindex();
|
saveindex();
|
||||||
}
|
}
|
||||||
|
#}}}
|
||||||
|
|
Loading…
Reference in New Issue