}
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, {