#!/usr/bin/perl -T $ENV{PATH}="/usr/local/bin:/usr/bin:/bin"; package IkiWiki; use warnings; use strict; use lib '.'; # For use without installation, removed by Makefile. use IkiWiki; sub usage () { #{{{ die "usage: ikiwiki [options] source dest\n"; } #}}} sub getconfig () { #{{{ if (! exists $ENV{WRAPPED_OPTIONS}) { %config=( wiki_file_prune_regexp => qr{((^|/).svn/|\.\.|^\.|\/\.|\.html?$|\.rss$)}, wiki_link_regexp => qr/\[\[(?:([^\s\]\|]+)\|)?([^\s\]]+)\]\]/, wiki_processor_regexp => qr/\[\[(\w+)\s+([^\]]*)\]\]/, wiki_file_regexp => qr/(^[-[:alnum:]_.:\/+]+$)/, verbose => 0, wikiname => "wiki", default_pageext => ".mdwn", cgi => 0, rcs => 'svn', notify => 0, url => '', cgiurl => '', historyurl => '', diffurl => '', anonok => 0, rss => 0, sanitize => 1, rebuild => 0, refresh => 0, getctime => 0, hyperestraier => 0, wrapper => undef, wrappermode => undef, svnrepo => undef, svnpath => "trunk", srcdir => undef, destdir => undef, templatedir => "/usr/share/ikiwiki/templates", underlaydir => "/usr/share/ikiwiki/basewiki", setup => undef, adminuser => undef, adminemail => undef, plugin => [qw{inline}], ); eval q{use Getopt::Long}; GetOptions( "setup|s=s" => \$config{setup}, "wikiname=s" => \$config{wikiname}, "verbose|v!" => \$config{verbose}, "rebuild!" => \$config{rebuild}, "refresh!" => \$config{refresh}, "getctime" => \$config{getctime}, "wrappermode=i" => \$config{wrappermode}, "rcs=s" => \$config{rcs}, "no-rcs" => sub { $config{rcs}="" }, "anonok!" => \$config{anonok}, "hyperestraier" => \$config{hyperestraier}, "rss!" => \$config{rss}, "cgi!" => \$config{cgi}, "notify!" => \$config{notify}, "sanitize!" => \$config{sanitize}, "url=s" => \$config{url}, "cgiurl=s" => \$config{cgiurl}, "historyurl=s" => \$config{historyurl}, "diffurl=s" => \$config{diffurl}, "svnrepo" => \$config{svnrepo}, "svnpath" => \$config{svnpath}, "rcs=s" => \$config{rcs}, "no-rcs" => sub { $config{rcs}="" }, "adminemail=s" => \$config{adminemail}, "exclude=s@" => sub { $config{wiki_file_prune_regexp}=qr/$config{wiki_file_prune_regexp}|$_[1]/; }, "adminuser=s@" => sub { push @{$config{adminuser}}, $_[1] }, "templatedir=s" => sub { $config{templatedir}=possibly_foolish_untaint($_[1]) }, "underlaydir=s" => sub { $config{underlaydir}=possibly_foolish_untaint($_[1]) }, "wrapper:s" => sub { $config{wrapper}=$_[1] ? $_[1] : "ikiwiki-wrap" }, "plugin=s@" => sub { push @{$config{plugin}}, $_[1]; } ) || usage(); if (! $config{setup}) { usage() unless @ARGV == 2; $config{srcdir} = possibly_foolish_untaint(shift @ARGV); $config{destdir} = possibly_foolish_untaint(shift @ARGV); checkconfig(); } } else { # wrapper passes a full config structure in the environment # variable eval possibly_foolish_untaint($ENV{WRAPPED_OPTIONS}); checkconfig(); } } #}}} sub main () { #{{{ getconfig(); if ($config{cgi}) { lockwiki(); loadindex(); require IkiWiki::CGI; cgi(); } elsif ($config{setup}) { require IkiWiki::Setup; setup(); } elsif ($config{wrapper}) { lockwiki(); require IkiWiki::Wrapper; gen_wrapper(); } else { lockwiki(); loadindex(); require IkiWiki::Render; rcs_update(); rcs_getctime() if $config{getctime}; refresh(); rcs_notify() if $config{notify}; saveindex(); } } #}}} main;