Subversion Repositories DevTools

my %ReleasePackages;

    #

    #   Accumulate Release data

    #

    my $mname = $ScmPackages{$_}{'name'} . ($ScmPackages{$_}{'suffix'} || '');

    my $name = $ScmPackages{$_}{'name'};

    foreach my $rtag_id ( @{$ScmPackages{$_}{'release'}} )

    {

        unless ( $ScmReleases{$rtag_id}{'excluded'} )

        {

            $ReleasePackages{$rtag_id}{mname}{$mname}{count}++;

            $ReleasePackages{$rtag_id}{name}{$name}{count}++;

            push @{$ReleasePackages{$rtag_id}{mname}{$mname}{pvid}}, $_;

            push @{$ReleasePackages{$rtag_id}{name}{$name}{pvid}}, $_ ;

        }

    }

#

#   Determine Releases that have multiple versions of a package

#   ie: xxxx.cr and xxxxx.ssw

#

    print HTML "<dd>" . hRef("#MultiplePackages"        ,'Releases with duplicated packages');

    #

    #   Releases that have multiple instances of the same package in them

    #

    print HTML header('MultiplePackages', 'Releases with duplicated packages');

    print HTML "Releases that have multiple instances of the same package\n";

#DebugDumpData("ReleasePackages", \%ReleasePackages );

    $t = new HTML::Table( -border=>1 );

    $t->addRow( 'Release','Package');

    $t->setRowHead(1,1);

    $last_proj_id = 0;

    foreach my $rtag_id ( sort sortReleases keys %ReleasePackages )

    {

        my @multiples;

        foreach my $name ( keys %{$ReleasePackages{$rtag_id}{name}} )

        {

            if ( $ReleasePackages{$rtag_id}{name}{$name}{count} > 1 )

            {

                push @multiples, $name;

            }

        }

        next unless ( @multiples );

        if ( $last_proj_id != $ScmReleases{$rtag_id}{proj_id} )

        {

            $last_proj_id = $ScmReleases{$rtag_id}{proj_id};

            $t->addRow( $ScmReleases{$rtag_id}{pName});

            $t->setCellColSpan(-1, 1, 2);

        }

        my $t2 = new HTML::Table(-border=>0, -padding=>0, -spacing=>0, -class=>'paddedTable' );

        foreach my $name ( sort {uc($a) cmp uc($b) } @multiples )

        {

            $t2->addRow('Package: ' . linkFindPkgs($name, $rtag_id),  );

            $t2->setCellColSpan(-1, 1, 2);

            foreach my $pvid ( @{$ReleasePackages{$rtag_id}{name}{$name}{pvid}} )

            {

                $t2->addRow( ' ', linkPvid($pvid, $rtag_id) );

            }

        }

        $t->addRow(linkRelease($rtag_id, undef, 1), $t2->getTable  );

    }

    $t->setColClass (1, 'listTitle' );

    $t->setColHead(1,1);

    print HTML $t->getTable;

    print HTML header('RepoIndex', 'Repository Index');

    print HTML "A summary of proposed Repostories and Paths\n";

    $t = new HTML::Table( -border=>0, -padding=>0, -spacing=>0, -class=>'paddedTable' );

    $t->addRow( 'Name','', 'Count', 'Warnings'  );

    $t->setCellColSpan(1, 1, 2);

    foreach my $repo ( sort {uc($a) cmp uc($b) } keys %RepoSubIndex )

    {

            next if ( $repo eq 'UNKNOWN' );

            next if ( $repo eq 'SVN' );

            my $count = '';

            if ( exists $RepoSubIndex{$repo}{'-'}   )

            {

                $count = @{$RepoSubIndex{$repo}{'-'}};

            }

            $t->addRow( hRef("#Repo_$repo", $repo), '', $count  );

            $t->setCellColSpan($t->getTableRows(), 1, 2);

            foreach my $path ( sort {uc($a) cmp uc($b) } keys %{$RepoSubIndex{$repo}} )

            {

                    next if ( $path eq '-' );

                    my $depth = $path =~ tr~/~~;

                    my $warn = ($depth > 2) ? ' - Deeply nested' : '';

                    my $count = (@{$RepoSubIndex{$repo}{$path}});

                    $warn .= ' - Only One Package' if ( $count < 2 );

                    $t->addRow( '     ', hRef("#Repo_$repo/$path", $path), $count, $warn);

            }

    }

    print HTML $t->getTable;

sub linkFindPkgs

{

    my ($name, $rtagid) = @_;

    my $pv_base = $GBE_RM_URL . "/find.asp?searchtype=1&keyword=$name&btn=Find&envtab=3&rtag_id=$rtagid";

    return hRef($pv_base, $name, '_packageData');

}