|
|
|
|
@ -822,17 +822,17 @@ sub derive_change_log ()
|
|
|
|
|
foreach my $time (sort {$main::a <=> $main::b} (keys %$timehash))
|
|
|
|
|
{
|
|
|
|
|
my $msghash = $timehash->{$time};
|
|
|
|
|
while (my ($msg,$quntdelist) = each %$msghash)
|
|
|
|
|
while (my ($msg,$qunklist) = each %$msghash)
|
|
|
|
|
{
|
|
|
|
|
my $stamptime = $stamptime{$msg};
|
|
|
|
|
if ((defined $stamptime)
|
|
|
|
|
and (($time - $stamptime) < $Max_Checkin_Duration)
|
|
|
|
|
and (defined $changelog{$stamptime}{$author}{$msg}))
|
|
|
|
|
{
|
|
|
|
|
push(@{$changelog{$stamptime}{$author}{$msg}}, @$quntdelist);
|
|
|
|
|
push(@{$changelog{$stamptime}{$author}{$msg}}, @$qunklist);
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
$changelog{$time}{$author}{$msg} = $quntdelist;
|
|
|
|
|
$changelog{$time}{$author}{$msg} = $qunklist;
|
|
|
|
|
$stamptime{$msg} = $time;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
@ -941,14 +941,14 @@ sub derive_change_log ()
|
|
|
|
|
# We sort here to enable predictable ordering for the testing porpoises
|
|
|
|
|
for my $msg (sort keys %$mesghash)
|
|
|
|
|
{
|
|
|
|
|
my $quntdelist = $mesghash->{$msg};
|
|
|
|
|
my $qunklist = $mesghash->{$msg};
|
|
|
|
|
|
|
|
|
|
## MJP: 19.xii.01 : Exclude @ignore_tags
|
|
|
|
|
for my $ignore_tag (keys %ignore_tags) {
|
|
|
|
|
next FOOBIE
|
|
|
|
|
if grep($_ eq $ignore_tag, map(@{$_->{tags}},
|
|
|
|
|
grep(defined $_->{tags},
|
|
|
|
|
@$quntdelist)));
|
|
|
|
|
@$qunklist)));
|
|
|
|
|
}
|
|
|
|
|
## MJP: 19.xii.01 : End exclude @ignore_tags
|
|
|
|
|
|
|
|
|
|
@ -957,10 +957,10 @@ sub derive_change_log ()
|
|
|
|
|
next FOOBIE
|
|
|
|
|
if !grep(exists $show_tags{$_}, map(@{$_->{tags}},
|
|
|
|
|
grep(defined $_->{tags},
|
|
|
|
|
@$quntdelist)));
|
|
|
|
|
@$qunklist)));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
my $files = &pretty_file_list ($quntdelist);
|
|
|
|
|
my $files = &pretty_file_list ($qunklist);
|
|
|
|
|
my $header_line; # date and author
|
|
|
|
|
my $body; # see below
|
|
|
|
|
my $wholething; # $header_line + $body
|
|
|
|
|
@ -1014,7 +1014,7 @@ sub derive_change_log ()
|
|
|
|
|
# performed. Files which were added have no line change
|
|
|
|
|
# indicator, whereas deleted files have state dead.
|
|
|
|
|
#
|
|
|
|
|
foreach $qunk ( @$quntdelist )
|
|
|
|
|
foreach $qunk ( @$qunklist )
|
|
|
|
|
{
|
|
|
|
|
if ( "dead" eq $qunk->{'state'})
|
|
|
|
|
{
|
|
|
|
|
|
