avoid clobbering example diffurl
authorJoey Hess <joey@kodama.kitenet.net>
Sun, 27 Jul 2008 04:54:15 +0000 (00:54 -0400)
committerJoey Hess <joey@kodama.kitenet.net>
Sun, 27 Jul 2008 04:54:15 +0000 (00:54 -0400)
IkiWiki/Plugin/bzr.pm
IkiWiki/Plugin/git.pm
IkiWiki/Plugin/mercurial.pm
IkiWiki/Plugin/svn.pm
IkiWiki/Plugin/tla.pm
Makefile.PL
debian/rules
simple.setup [new file with mode: 0644]

index 39227cbae4f07f773ce8461fffe0d4b8a3b63442..99025a973db235605cf64448e9ccdd04e1fc687b 100644 (file)
@@ -23,9 +23,6 @@ sub import { #{{{
 } #}}}
 
 sub checkconfig () { #{{{
-       if (! defined $config{diffurl}) {
-               $config{diffurl}="";
-       }
        if (defined $config{bzr_wrapper} && length $config{bzr_wrapper}) {
                push @{$config{wrappers}}, {
                        wrapper => $config{bzr_wrapper},
@@ -225,7 +222,7 @@ sub rcs_recentchanges ($) { #{{{
                        # Skip source name in renames
                        $filename =~ s/^.* => //;
 
-                       my $diffurl = $config{'diffurl'};
+                       my $diffurl = defined $config{'diffurl'} ? $config{'diffurl'} : "";
                        $diffurl =~ s/\[\[file\]\]/$filename/go;
                        $diffurl =~ s/\[\[file-id\]\]/$fileid/go;
                        $diffurl =~ s/\[\[r2\]\]/$info->{revno}/go;
index b20793d8694ed093688695701fa7615d424ca725..5e302729ea1c26c80c93d4974e94e8a57e444012 100644 (file)
@@ -26,9 +26,6 @@ sub import { #{{{
 } #}}}
 
 sub checkconfig () { #{{{
-       if (! defined $config{diffurl}) {
-               $config{diffurl}="";
-       }
        if (! defined $config{gitorigin_branch}) {
                $config{gitorigin_branch}="origin";
        }
@@ -472,7 +469,7 @@ sub rcs_recentchanges ($) { #{{{
                foreach my $detail (@{ $ci->{'details'} }) {
                        my $file = $detail->{'file'};
 
-                       my $diffurl = $config{'diffurl'};
+                       my $diffurl = defined $config{'diffurl'} ? $config{'diffurl'} : "";
                        $diffurl =~ s/\[\[file\]\]/$file/go;
                        $diffurl =~ s/\[\[sha1_parent\]\]/$ci->{'parent'}/go;
                        $diffurl =~ s/\[\[sha1_from\]\]/$detail->{'sha1_from'}/go;
index 738be8c327d017a142af27011c569339806dd520..d2c34fa6a5810c43ac999fb23184a08dab1abc76 100644 (file)
@@ -23,9 +23,6 @@ sub import { #{{{
 } #}}}
 
 sub checkconfig () { #{{{
-       if (! defined $config{diffurl}) {
-               $config{diffurl}="";
-       }
        if (exists $config{mercurial_wrapper} && length $config{mercurial_wrapper}) {
                push @{$config{wrappers}}, {
                        wrapper => $config{mercurial_wrapper},
@@ -199,7 +196,7 @@ sub rcs_recentchanges ($) { #{{{
                }
 
                foreach my $file (split / /,$info->{files}) {
-                       my $diffurl = $config{'diffurl'};
+                       my $diffurl = defined $config{diffurl} ? $config{'diffurl'} : "";
                        $diffurl =~ s/\[\[file\]\]/$file/go;
                        $diffurl =~ s/\[\[r2\]\]/$info->{changeset}/go;
 
index 05312a1ed42d2ae08189c5c665e53b7c91c7b80a..51683704c5928d6e5577a3e1f92b62adbb41849f 100644 (file)
@@ -22,9 +22,6 @@ sub import { #{{{
 } #}}}
 
 sub checkconfig () { #{{{
-       if (! defined $config{diffurl}) {
-               $config{diffurl}="";
-       }
        if (! defined $config{svnpath}) {
                $config{svnpath}="trunk";
        }
@@ -318,7 +315,7 @@ sub rcs_recentchanges ($) { #{{{
                                $file=$1;
                        }
 
-                       my $diffurl=$config{diffurl};
+                       my $diffurl=defined $config{diffurl} ? $config{diffurl} : "";
                        $diffurl=~s/\[\[file\]\]/$file/g;
                        $diffurl=~s/\[\[r1\]\]/$rev - 1/eg;
                        $diffurl=~s/\[\[r2\]\]/$rev/g;
index b95c1a522c87460f66d5a18af5a34889edcb6011..6faaecccc5d7a48a1f44e3fd40aa6376c8d8cf48 100644 (file)
@@ -21,9 +21,6 @@ sub import { #{{{
 } #}}}
 
 sub checkconfig () { #{{{
-       if (! defined $config{diffurl}) {
-               $config{diffurl}="";
-       }
        if (defined $config{tla_wrapper} && length $config{tla_wrapper}) {
                push @{$config{wrappers}}, {
                        wrapper => $config{tla_wrapper},
@@ -215,7 +212,7 @@ sub rcs_recentchanges ($) {
                my @pages;
 
                foreach my $file (@paths) {
-                       my $diffurl=$config{diffurl};
+                       my $diffurl=defined $config{diffurl} ? $config{diffurl} : "";
                        $diffurl=~s/\[\[file\]\]/$file/g;
                        $diffurl=~s/\[\[rev\]\]/$change/g;
                        push @pages, {
index f7c090ff2e3327dd98d1b2b489005883cee3bb99..04ed70502876024c205d8e2f2141b792ced2b0e7 100755 (executable)
@@ -48,6 +48,10 @@ extra_clean:
        $(MAKE) -C po clean
 
 extra_install:
+       install -d $(DESTDIR)/etc/ikiwiki
+       install -m 0644 wikilist $(DESTDIR)/etc/ikiwiki
+       install -m 0644 simple.setup $(DESTDIR)/etc/ikiwiki
+
        install -d $(DESTDIR)$(PREFIX)/share/ikiwiki
        for dir in `cd underlays && find . -follow -type d ! -regex '.*\.svn.*'`; do \
                install -d $(DESTDIR)$(PREFIX)/share/ikiwiki/$$dir; \
index 2af69a5f793753418b8a31a4e6376ccb41479f90..25b1f57b6a636ffe170efaf6b208bb61346ef9b9 100755 (executable)
@@ -24,7 +24,6 @@ binary-indep: build
        dh_testroot
        dh_clean -k
        $(MAKE) pure_install DESTDIR=$(shell pwd)/debian/ikiwiki
-       dh_install wikilist etc/ikiwiki
        dh_installdocs html
        dh_installexamples doc/examples/*
        dh_link usr/share/common-licenses/GPL-2 usr/share/doc/ikiwiki/html/GPL
diff --git a/simple.setup b/simple.setup
new file mode 100644 (file)
index 0000000..c7be9a7
--- /dev/null
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+# Simple ikiwiki setup.
+# 
+# This setup file causes ikiwiki to create a wiki, check it into revision
+# control, generate a setup file for the new wiki, and set everything up.
+#
+# Just run: ikiwiki -setup /etc/ikiwiki/simple.setup
+#
+# By default, it asks two questions, and confines itself to the user's home
+# directory. You can edit it to change what it asks questions about, or to
+# modify the values to use site-specific settings.
+
+require IkiWiki::Setup::Automator;
+
+our $wikiname=IkiWiki::Setup::Automator::ask(
+       "What will the wiki be named?", "wiki");
+our $rcs=IkiWiki::Setup::Automator::ask(
+       "What revision control system to use?", "git");
+
+IkiWiki::Setup::Automator::import(
+       wikiname => $wikiname,
+       rcs => $rcs,
+       srcdir => "$ENV{HOME}/$wikiname",
+       destdir => "$ENV{HOME}/public_html/$wikiname",
+       repository => "$ENV{HOME}/$wikiname.$rcs",
+       setupfile => "$ENV{HOME}/$wikiname.setup",
+);