#!/usr/bin/perl
+package IkiWiki;
+
use warnings;
use strict;
use IkiWiki;
use Encode;
use open qw{:utf8 :std};
-package IkiWiki;
-
sub bzr_log ($) { #{{{
my $out = shift;
my @infos = ();
} #}}}
sub rcs_update () { #{{{
- my @cmdline = ("bzr", $config{srcdir}, "update");
+ my @cmdline = ("bzr", "update", "--quiet", $config{srcdir});
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
}
$message = "no message given";
}
- my @cmdline = ("bzr", "commit", "-m", $message, "--author", $user,
+ my @cmdline = ("bzr", "commit", "--quiet", "-m", $message, "--author", $user,
$config{srcdir}."/".$file);
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
sub rcs_add ($) { # {{{
my ($file) = @_;
- my @cmdline = ("bzr", "add", "$config{srcdir}/$file");
+ my @cmdline = ("bzr", "add", "--quiet", "$config{srcdir}/$file");
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
}
sub rcs_recentchanges ($) { #{{{
my ($num) = @_;
- eval q{use CGI 'escapeHTML'};
- error($@) if $@;
-
- my @cmdline = ("bzr", "log", "-v", "--limit", $num, $config{srcdir});
+ my @cmdline = ("bzr", "log", "-v", "--show-ids", "--limit", $num,
+ $config{srcdir});
open (my $out, "@cmdline |");
eval q{use Date::Parse};
}
foreach my $file (split(/\n/, $info->{files})) {
+ my ($filename, $fileid) = split(/[ \t]+/, $file);
my $diffurl = $config{'diffurl'};
- $diffurl =~ s/\[\[file\]\]/$file/go;
+ $diffurl =~ s/\[\[file\]\]/$filename/go;
+ $diffurl =~ s/\[\[file-id\]\]/$fileid/go;
$diffurl =~ s/\[\[r2\]\]/$info->{revno}/go;
push @pages, {
- page => pagename($file),
+ page => pagename($filename),
diffurl => $diffurl,
};
}