I was getting an error trying to do it right. I've figured out the error, and now do it right. This
should also speed things up (very slightly)
- Index: IkiWiki/Rcs/monotone.pm
- ===================================================================
- --- IkiWiki/Rcs/monotone.pm (revision 4234)
- +++ IkiWiki/Rcs/monotone.pm (working copy)
- @@ -239,17 +239,11 @@
-
- # Something has been committed, has this file changed?
- my ($out, $err);
- - #$automator->setOpts("-r", $oldrev, "-r", $rev);
- - #my ($out, $err) = $automator->call("content_diff", $file);
- - #debug("Problem committing $file") if ($err ne "");
- - # FIXME: use of $file in these backticks is not wise from a
- - # security POV. Probably safe, but should be avoided
- - # anyway.
- - # At the moment the backticks are used because the above call using the automate
- - # interface was failing. When that bug in monotone is fixed, we should switch
- - # back.
- - my $diff = `mtn --root=$config{mtnrootdir} au content_diff -r $oldrev -r $rev $file`; # was just $out;
- -
- + $automator->setOpts("r", $oldrev, "r", $rev);
- + ($out, $err) = $automator->call("content_diff", $file);
- + debug("Problem committing $file") if ($err ne "");
- + my $diff = $out;
- +
- if ($diff) {
- # Commit a revision with just this file changed off
- # the old revision.
-
+> applied
>> BTW, will all the monotone output parsing work if LANG != C?
>>>> So the rcs_notify support is not just untested, but can't work
>>>> at all w/o further development.
+
+I've just done this further development... The following patch adds support for diffurls.
+I've also partially tested the commit message support. I was unable to get Ikiwiki to send
+change emails at all (cgi or otherwise), so I tested by adding warn() calls. There were a
+few things that needed to be fixed. Support is much closer now (including a simple default
+monotone lua hook).
+
+When I stick this diff inline into the page, I have to indent it by four spaces, and that's fine.
+But markdown seems to still be interpreting parts of it (e.g. the diff url) in strange ways. I
+think it is the square brackets.
+
+ Index: IkiWiki/Rcs/monotone.pm
+ ===================================================================
+ --- IkiWiki/Rcs/monotone.pm (revision 4252)
+ +++ IkiWiki/Rcs/monotone.pm (working copy)
+ @@ -186,8 +186,9 @@
+ check_config();
+
+ if (defined($config{mtnsync}) && $config{mtnsync}) {
+ + check_mergerc();
+ if (system("mtn", "--root=$config{mtnrootdir}", "sync",
+ - "--quiet", "--ticker=none",
+ + "--quiet", "--ticker=none", "--rcfile", $config{mtnmergerc},
+ "--key", $config{mtnkey}) != 0) {
+ debug("monotone sync failed before update");
+ }
+ @@ -342,10 +343,10 @@
+ return $conflict;
+ }
+ if (defined($config{mtnsync}) && $config{mtnsync}) {
+ - if (system("mtn", "--root=$config{mtnrootdir}", "sync",
+ + if (system("mtn", "--root=$config{mtnrootdir}", "push",
+ "--quiet", "--ticker=none", "--key",
+ $config{mtnkey}) != 0) {
+ - debug("monotone sync failed");
+ + debug("monotone push failed");
+ }
+ }
+
+ @@ -431,10 +432,28 @@
+ my @changed_files = get_changed_files($automator, $rev);
+ my $file;
+
+ + my ($out, $err) = $automator->call("parents", $rev);
+ + my @parents = ($out =~ m/^($sha1_pattern)$/);
+ + my $parent = $parents[0];
+ +
+ foreach $file (@changed_files) {
+ - push @pages, {
+ - page => pagename($file),
+ - } if length $file;
+ + if (length($file)) {
+ + if (defined $config{diffurl} and (@parents == 1)) {
+ + my $diffurl=$config{diffurl};
+ + $diffurl=~s/\[\[r1\]\]/$parent/g;
+ + $diffurl=~s/\[\[r2\]\]/$rev/g;
+ + $diffurl=~s/\[\[file\]\]/$file/g;
+ + push @pages, {
+ + page => pagename($file),
+ + diffurl => $diffurl,
+ + };
+ + }
+ + else {
+ + push @pages, {
+ + page => pagename($file),
+ + };
+ + }
+ + }
+ }
+
+ push @ret, {
+ @@ -487,6 +506,18 @@
+
+ my @changed_pages = get_changed_files($automator, $rev);
+
+ + my ($out, $err) = $automator->call("parents", $rev);
+ + my @parents = ($out =~ m/^($sha1_pattern)$/);
+ + my $parent = $parents[0];
+ +
+ + my $diff;
+ +
+ + if (@parents == 1) {
+ + $automator->setOpts("r", $parent, "r", $rev);
+ + ($out, $err) = $automator->call("content_diff");
+ + $diff = $out;
+ + }
+ +
+ $automator->close();
+
+ require IkiWiki::UserInfo;
+ @@ -495,7 +526,7 @@
+ return $message;
+ },
+ sub {
+ - `mtn --root=$config{mtnrootdir} au content_diff -r $rev`;
+ + return $diff;
+ },
+ $user, @changed_pages);
+ } #}}}
+ @@ -604,4 +635,9 @@
+ return true
+ end
+ }
+ + function note_netsync_revision_received(new_id, revision, certs, session_id)
+ + if (program_exists_in_path("ikiwiki-netsync-hook")) then
+ + execute("ikiwiki-netsync-hook", new_id)
+ + end
+ + end
+ EOF
+ Index: IkiWiki/Wrapper.pm
+ ===================================================================
+ --- IkiWiki/Wrapper.pm (revision 4252)
+ +++ IkiWiki/Wrapper.pm (working copy)
+ @@ -46,6 +46,16 @@
+ addenv("REV", s);
+ EOF
+ }
+ + if ($config{rcs} eq "monotone" && $config{notify}) {
+ + # Support running directly as hooks/post-commit by passing
+ + # $1 in REV in the environment.
+ + $envsave.=<<"EOF"
+ + if (argc == 2)
+ + addenv("REV", argv[1]);
+ + else if ((s=getenv("REV")))
+ + addenv("REV", s);
+ +EOF
+ + }
+ if ($config{rcs} eq "tla" && $config{notify}) {
+ $envsave.=<<"EOF"
+ if ((s=getenv("ARCH_VERSION")))
+ Index: doc/rcs/monotone.mdwn
+ ===================================================================
+ --- doc/rcs/monotone.mdwn (revision 4252)
+ +++ doc/rcs/monotone.mdwn (working copy)
+ @@ -1,16 +1,13 @@
+ -[monotone](http://monotone.ca/) is a distributed revision control system.
+ -Ikiwiki supports storing a wiki in Monotone and editing it using the [[cgi]] interface.
+ +[Monotone](http://monotone.ca/) is a distributed revision control system.
+ +Ikiwiki supports storing a wiki in a Monotone repository and editing it using the [[cgi]] interface.
+ It will use the Monotone logs to generate the [[RecentChanges]] page.
+
+ -The monotone support requires the Monotone perl module (from the contrib/ directory
+ -in the monotone source) to be installed. In particular, it needs version 0.03 or higher of that module.
+ +The monotone support in Ikiwiki requires the Monotone perl module to be installed
+ +(available from the contrib/ directory in the monotone source).
+ +In particular, it needs version 0.03 or higher of that module.
+ The module is available from the monotone source repository at:
+ <http://viewmtn.angrygoats.net/branch/changes/net.venge.monotone>
+
+ -Monotone support works, but there are still a few minor missing bits (listed here so they are not forgotten):
+ +At present the [[post-commit]] hook support is implemented but only partially tested.
+
+ -* At the moment there are no links to display diffs between revisions. It shouldn't be hard to add links to a [ViewMTN](http://grahame.angrygoats.net/moinmoin/ViewMTN) instance, but it hasn't been done yet.
+ -* The [[post-commit]] hook support, so that Ikiwiki sends change notifications when people commit using Monotone rather than the web interface, is partially implemented and untested.
+ -* Documentation (this page) could be improved.
+ -
+ There is also a mismatch between the way Ikiwiki handles conflicts and the way Monotone handles conflicts. At present, if there is a conflict, then Ikiwiki will commit a revision with conflict markers before presenting it to the user. This is ugly, but there is no clean way to fix it at present.
+ Index: doc/ikiwiki.setup
+ ===================================================================
+ --- doc/ikiwiki.setup (revision 4252)
+ +++ doc/ikiwiki.setup (working copy)
+ @@ -46,6 +46,8 @@
+ # Monotone stuff
+ #rcs => "monotone",
+ #mtnkey => "web\@machine.company.com",
+ + #historyurl => "http://viewmtn.company.com/",
+ + #diffurl => "http://viewmtn.company.com/revision/diff/[[r1]]/with/[[r2]]/[[file]]",
+ # Set if you want the wiki to sync on update and commit.
+ #mtnsync => 0,
+ # The path to your workspace (defaults to the srcdir itself)
+ @@ -88,6 +90,16 @@
+ # # Enable mail notifications of commits.
+ # notify => 1,
+ #},
+ + #{
+ + # # The monotone netsync revision received wrapper.
+ + # # Note that you also need to install a lua
+ + # # hook into monotone to make this work
+ + # # see: http://ikiwiki.info/rcs/monotone/
+ + # wrapper => "/usr/local/bin/ikiwiki-netsync-hook",
+ + # wrappermode => "04755",
+ + # # Enable mail notifications of commits.
+ + # notify => 1,
+ + #},
+ ],
+
+ # Generate rss feeds for blogs?
+