}
sub rcs_update () { #{{{
- my @cmdline = ("hg", "-R", "$config{srcdir}", "update");
+ my @cmdline = ("hg", "-q", "-R", "$config{srcdir}", "update");
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
}
$message = possibly_foolish_untaint($message);
- my @cmdline = ("hg", "-R", "$config{srcdir}", "commit",
+ my @cmdline = ("hg", "-q", "-R", "$config{srcdir}", "commit",
"-m", "$message", "-u", "$user");
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
sub rcs_add ($) { # {{{
my ($file) = @_;
- my @cmdline = ("hg", "-R", "$config{srcdir}", "add", "$file");
+ my @cmdline = ("hg", "-q", "-R", "$config{srcdir}", "add", "$file");
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
}
rev => $info->{"changeset"},
user => $user,
committype => "mercurial",
- when => str2time($info->{"date"}),
+ when => time - str2time($info->{"date"}),
message => [@message],
pages => [@pages],
};