doc/todo/bzr.mdwn

   1 This is mostly based on the Mercurial plugin (in fact, apart from the commands
   2 being run, only the name of the rcs was changed in rcs_recentchanges, and
   3 rcs_commit was only changed to work around bzr's lack of a switch to set the
   4 username). bzr_log could probably be written better by someone better at perl,
   5 and rcs_getctime and rcs_notify aren't written at all. --[[bma]]
   6
   7 (rcs_notify is not needed in this branch --[[Joey]])
   8
   9     #!/usr/bin/perl
  10
  11     use warnings;
  12     use strict;
  13     use IkiWiki;
  14     use Encode;
  15     use open qw{:utf8 :std};
  16
  17     package IkiWiki;
  18
  19     sub bzr_log($) {
  20             my $out = shift;
  21
  22             my @lines = <$out>;
  23
  24             my @entries = split(/\n-+\s/,join("", @lines));
  25
  26             my @ret = ();
  27
  28             foreach my $entry (@entries) {
  29
  30                     my ($initial,$i) = split(/message:/,$entry,2);
  31                     my ($message, $j, $files) = split(/(added|modified|removed):/,$i,3);
  32                     $message =~ s/\n/\\n/g;
  33                     $files =~ s/\n//g;
  34                     $entry = $initial . "\ndescription: " . $message . "\nfiles: " . $files;
  35
  36                     my @lines = split(/\n/,$entry);
  37                     shift(@lines);
  38
  39                     my %entry;
  40                     foreach (@lines) {
  41                             my ($key,$value) = split(/: /);
  42                             $entry{$key} = $value;
  43                     }
  44                     $entry{description}=~s/\\n/\n/g;
  45                     $entry{files}=~s/\s\s+/\ /g;
  46                     $entry{files}=~s/^\s+//g;
  47
  48                     $ret[@ret] = {
  49                             "description" =>  $entry{description},
  50                             "user" => $entry{committer},
  51                             "files" => $entry{files},
  52                             "date" => $entry{timestamp},
  53                     }
  54             }
  55
  56             return @ret;
  57     }
  58
  59     sub rcs_update () { #{{{
  60             # Not needed.
  61     } #}}}
  62
  63     sub rcs_prepedit ($) { #{{{
  64             return "";
  65     } #}}}
  66
  67     sub rcs_commit ($$$;$$) { #{{{
  68             my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
  69
  70             if (defined $user) {
  71                     $user = possibly_foolish_untaint($user);
  72             }
  73             elsif (defined $ipaddr) {
  74                     $user = "Anonymous from ".possibly_foolish_untaint($ipaddr);
  75             }
  76             else {
  77                     $user = "Anonymous";
  78             }
  79
  80             $message = possibly_foolish_untaint($message);
  81             if (! length $message) {
  82                     $message = "no message given";
  83             }
  84
  85             my $olduser = `bzr whoami`;
  86             chomp $olduser;
  87             system("bzr","whoami",$user); # This will set the branch username; there doesn't seem to be a way to do it on a per-commit basis.
  88                                           # Save the old one and restore after the commit.
  89             my @cmdline = ("bzr", "commit", "-m", $message, $config{srcdir}."/".$file);
  90             if (system(@cmdline) != 0) {
  91                     warn "'@cmdline' failed: $!";
  92             }
  93
  94             $olduser=possibly_foolish_untaint($olduser);
  95             system("bzr","whoami",$olduser);
  96
  97             return undef; # success
  98     } #}}}
  99
 100     sub rcs_add ($) { # {{{
 101             my ($file) = @_;
 102
 103             my @cmdline = ("bzr", "add", "--quiet", "$config{srcdir}/$file");
 104             if (system(@cmdline) != 0) {
 105                     warn "'@cmdline' failed: $!";
 106             }
 107     } #}}}
 108
 109     sub rcs_recentchanges ($) { #{{{
 110             my ($num) = @_;
 111
 112             eval q{use CGI 'escapeHTML'};
 113             error($@) if $@;
 114
 115             my @cmdline = ("bzr", "log", "--long", "--verbose", "--limit", $num,$config{srcdir});
 116             open (my $out, "@cmdline |");
 117
 118             eval q{use Date::Parse};
 119             error($@) if $@;
 120
 121             my @ret;
 122             foreach my $info (bzr_log($out)) {
 123                     my @pages = ();
 124                     my @message = ();
 125
 126                     foreach my $msgline (split(/\n/, $info->{description})) {
 127                             push @message, { line => $msgline };
 128                     }
 129
 130                     foreach my $file (split / /,$info->{files}) {
 131                             my $diffurl = $config{'diffurl'};
 132                             $diffurl =~ s/\[\[file\]\]/$file/go;
 133                             $diffurl =~ s/\[\[r2\]\]/$info->{changeset}/go;
 134
 135                             push @pages, {
 136                                     page => pagename($file),
 137                                     diffurl => $diffurl,
 138                             };
 139                     }
 140
 141                     my $user = $info->{"user"};
 142                     $user =~ s/\s*<.*>\s*$//;
 143                     $user =~ s/^\s*//;
 144
 145                     push @ret, {
 146                             rev        => $info->{"changeset"},
 147                             user       => $user,
 148                             committype => "bzr",
 149                             when       => time - str2time($info->{"date"}),
 150                             message    => [@message],
 151                             pages      => [@pages],
 152                     };
 153             }
 154
 155             return @ret;
 156     } #}}}
 157
 158     sub rcs_notify () { #{{{
 159             # TODO
 160     } #}}}
 161
 162     sub rcs_getctime ($) { #{{{
 163             # TODO
 164     } #}}}
 165
 166     1
 167
 168
 169 [[patch]]
 170
 171
 172 > Thanks for doing this.
 173 > bzr 0.90 has support for --author to commit to set the author for one commit at a time,
 174 > you might like to use that instead of changing the global username (which is racy).
 175 >
 176 > Wouter van Heyst and I were also working on a plugin for bzr, but we were waiting for
 177 > the smart server to grow the ability to run server side hooks, so that you can edit locally
 178 > and then push to rebuild the wiki, but there is no need to stop this going in in the mean
 179 > time.
 180 > Thanks again --[[JamesWestby]]
 181
 182 >> I didn't know about --author, it doesn't seem to be mentioned in the manual.
 183 >> I'd update the patch to reflect this, but it breaks with the version of bzr
 184 >> from Stable, and also the one I'm currently using from backports.org.
 185
 186 >>> It's new (in fact I'm not even sure that it made it in to 0.90, it might be in 0.91 due
 187 >>> in a couple of weeks.
 188 >>> I was just noting it for a future enhancement. --[[JamesWestby]]
 189
 190 > I've just posted another patch with support for bzr, including support for
 191 > --author and a testsuite to git://git.samba.org/jelmer/ikiwiki.git. I hadn't
 192 > seen this page earlier.  --[[jelmer]]
 193
 194 > I used jelmer's patch --[[done]]! --[[Joey]]