$state='body';
}
elsif ($state eq 'body' && /$div/) {
+ my $committype="web";
if (defined $message[0] &&
- $message[0]=~/^web commit by (\w+)(.*)/) {
- $user="$1 (web)";
- $message[0]=$2;
+ $message[0]->{line}=~/^web commit by (\w+)(.*)/) {
+ $user="$1";
+ $message[0]->{line}=$2;
+ }
+ else {
+ $committype="svn";
}
push @ret, { rev => $rev, user => $user,
+ commitype => $commitype,
when => $when, message => [@message],
pages => [@pages] } if @pages;
return @ret if @ret >= $num;