run_or_cry('git', 'add', $file);
} #}}}
+sub rcs_remove ($) { # {{{
+ # Remove file from archive.
+
+ my ($file) = @_;
+
+ run_or_cry('git', 'rm', '-f', $file);
+} #}}}
+
sub rcs_recentchanges ($) { #{{{
# List of recent changes.
}
my $user=$ci->{'author_username'};
- my $web_commit = ($user=~s/\@web//);
+ my $web_commit = ($ci->{'author'} =~ /\@web>/);
# compatability code for old web commit messages
if (! $web_commit &&
$messages[0]->{line} =~ m/$config{web_commit_regexp}/) {
$user = defined $2 ? "$2" : "$3";
$messages[0]->{line} = $4;
+ $web_commit=1;
}
push @rets, {