Subversion Repositories DevTools

Rev

Rev 2039 | Rev 2321 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2039 Rev 2319
Line 726... Line 726...
726
            }
726
            }
727
            $t->addRow("Bad VCS:", $t2->getTable );
727
            $t->addRow("Bad VCS:", $t2->getTable );
728
        }
728
        }
729
 
729
 
730
        my $repo = $PackageData{$pkgid}{mappedRepo};
730
        my $repo = $PackageData{$pkgid}{mappedRepo};
-
 
731
        my %RepoList;
-
 
732
        foreach my $pvid ( @{$PackageSet{$pkgid}} )
-
 
733
        {
-
 
734
            my $repo = $ScmPackages{$pvid}{'vcstag'};
-
 
735
            if ( $repo =~ m~SVN::(.*)(/tags/|/branches/|/trunk)~i )
-
 
736
            {
-
 
737
                $RepoList{$1} = svnLink($1) unless exists $RepoList{$1};
-
 
738
            }
-
 
739
        }
-
 
740
        my $txt = join( '<br>', values %RepoList);
-
 
741
        $txt = ' : ' . $txt if ( $txt );
731
        $t->addRow("Repo:", hRef("#Repo_$repo", $repo) );
742
        $t->addRow("Repo:", hRef("#Repo_$repo", $repo). $txt );
732
    }
743
    }
733
    $t->setColClass (1, 'listTitle' );
744
    $t->setColClass (1, 'listTitle' );
734
    print HTML $t->getTable;
745
    print HTML $t->getTable;
735
    #
746
    #
736
    #   Bad Package information
747
    #   Bad Package information
Line 959... Line 970...
959
Message("Repo Map");
970
Message("Repo Map");
960
    print HTML header('RepoMap', 'Repository Mapping');
971
    print HTML header('RepoMap', 'Repository Mapping');
961
    print HTML "Proposed Repostories and Paths with package mapping and ClearCase Path\n";
972
    print HTML "Proposed Repostories and Paths with package mapping and ClearCase Path\n";
962
 
973
 
963
    $t = new HTML::Table( -border=>1 );
974
    $t = new HTML::Table( -border=>1 );
964
    $t->addRow( 'Repository Path', 'Package Name and Original Vob Path(s)' );
975
    $t->addRow( 'Repository Path', 'Package Name,Original Vob Path(s),Last Build in Days. NonRipple [Any]' );
965
 
976
 
966
    foreach my $repo ( sort {uc($a) cmp uc($b) } keys %Repos )
977
    foreach my $repo ( sort {uc($a) cmp uc($b) } keys %Repos )
967
    {
978
    {
968
        next if ( $repo eq 'SVN' );
979
        next if ( $repo eq 'SVN' );
969
        next if ( $repo eq 'UNKNOWN' );
980
        next if ( $repo eq 'UNKNOWN' );
Line 979... Line 990...
979
            }
990
            }
980
            if ( $t2->getTableRows() )
991
            if ( $t2->getTableRows() )
981
            {
992
            {
982
                $t2->setColClass (1, 'listTitle' );
993
                $t2->setColClass (1, 'listTitle' );
983
            }
994
            }
-
 
995
            my $youngest = $PackageData{$pkgid}{youngAge};
-
 
996
            my $youngestNonRipple = $PackageData{$pkgid}{youngAgeNonRipple} || $youngest;
-
 
997
 
984
            $t1->addRow( linkPackageDetails($pkgid), $t2->getTable() );
998
            $t1->addRow( linkPackageDetails($pkgid),
-
 
999
                         $t2->getTable(),
-
 
1000
                         int($youngestNonRipple) . " [" . int($youngest) . "]"  );
985
        }
1001
        }
-
 
1002
 
986
        if ( $t1->getTableRows() )
1003
        if ( $t1->getTableRows() )
987
        {
1004
        {
988
            $t1->setColWidth(1,'30%');
1005
            $t1->setColWidth(1,'30%');
989
            $t1->setColClass (1, 'listTitle' );
1006
            $t1->setColClass (1, 'listTitle' );
-
 
1007
            $t1->setColWidth(3,'10%');
990
        }
1008
        }
991
        $t->addRow( anchor("Repo_$repo",$repo), $t1->getTable() );
1009
        $t->addRow( anchor("Repo_$repo",$repo), $t1->getTable() );
992
 
1010
 
993
    }
1011
    }
994
    $t->setColClass (1, 'listTitle' );
1012
    $t->setColClass (1, 'listTitle' );
Line 1032... Line 1050...
1032
    #   Packages already under Subversion
1050
    #   Packages already under Subversion
1033
    #
1051
    #
1034
Message("In Subversion");
1052
Message("In Subversion");
1035
    print HTML header('InSvn', 'Packages in Subversion');
1053
    print HTML header('InSvn', 'Packages in Subversion');
1036
    print HTML "Packages that are currently in Subversion\n";
1054
    print HTML "Packages that are currently in Subversion\n";
-
 
1055
    print HTML "<br>Packages in Subversion: ". scalar @{$Repos{SVN}} ."\n";
1037
    print HTML anchor("Repo_SVN",'SVN');
1056
    print HTML anchor("Repo_SVN",'SVN');
1038
 
1057
 
1039
    $t = new HTML::Table( -border=>1 );
1058
    $t = new HTML::Table( -border=>1 );
1040
    foreach my $pkgid ( @{$Repos{SVN}} )
1059
    foreach my $pkgid ( @{$Repos{SVN}} )
1041
    {
1060
    {
Line 1566... Line 1585...
1566
    #
1585
    #
1567
    #   Some path cleanup
1586
    #   Some path cleanup
1568
    #
1587
    #
1569
    if ( $path )
1588
    if ( $path )
1570
    {
1589
    {
-
 
1590
        $path =~ s~/build.pl$~~i;
-
 
1591
        $path =~ s~/src$~~i;
1571
        $path =~ s~DPC_SWCode/~DPG_SWCode/~i;
1592
        $path =~ s~DPC_SWCode/~DPG_SWCode/~i;
1572
        $path =~ s~MASS_Dev/Bus/~MASS_Dev_Bus/~i;
1593
        $path =~ s~MASS_Dev/Bus/~MASS_Dev_Bus/~i;
1573
        $path =~ s~MASS_Dev_Bus/Cbp/~MASS_Dev_Bus/CBP/~i;
1594
        $path =~ s~MASS_Dev_Bus/Cbp/~MASS_Dev_Bus/CBP/~i;
1574
        $path =~ s~/Vastraffik/~/Vasttrafik/~;
1595
        $path =~ s~/Vastraffik/~/Vasttrafik/~;
1575
        $path =~ s~/MREF_Package/ergpostmongui$~/MREF_Package/ergpostmongui~i;
1596
        $path =~ s~/MREF_Package/ergpostmongui$~/MREF_Package/ergpostmongui~i;
Line 1952... Line 1973...
1952
#
1973
#
1953
# Description     : Cleanup and rewrite a vcstag
1974
# Description     : Cleanup and rewrite a vcstag
1954
#
1975
#
1955
#                   DUPLICATED IN:
1976
#                   DUPLICATED IN:
1956
#                       - cc2svn_procdata
1977
#                       - cc2svn_procdata
1957
#                       - cc2svn_impartpackage
1978
#                       - cc2svn_importpackage
1958
#
1979
#
1959
# Inputs          : vcstag
1980
# Inputs          : vcstag
1960
#
1981
#
1961
# Returns         : Cleaned up vcs tag
1982
# Returns         : Cleaned up vcs tag
1962
#
1983
#
Line 1965... Line 1986...
1965
    my ($tag) = @_;
1986
    my ($tag) = @_;
1966
    $tag =~ tr~\\/~/~;
1987
    $tag =~ tr~\\/~/~;
1967
    if ( $tag =~ m~^CC::~ )
1988
    if ( $tag =~ m~^CC::~ )
1968
    {
1989
    {
1969
        $tag =~ s~CC::\s+~CC::~;
1990
        $tag =~ s~CC::\s+~CC::~;
-
 
1991
        $tag =~ s~/build.pl::~::~i;
-
 
1992
        $tag =~ s~/src::~::~i;
1970
        $tag =~ s~MASS_Dev_Bus/Cbp/~MASS_Dev_Bus/CBP/~i;
1993
        $tag =~ s~MASS_Dev_Bus/Cbp/~MASS_Dev_Bus/CBP/~i;
1971
        $tag =~ s~MASS_Dev_Bus~MASS_Dev_Bus~i;
1994
        $tag =~ s~MASS_Dev_Bus~MASS_Dev_Bus~i;
1972
        $tag =~ s~/MASS_Dev/Infra~MASS_Dev_Infra~i;
1995
        $tag =~ s~/MASS_Dev/Infra~MASS_Dev_Infra~i;
1973
        $tag =~ s~/MASS_Dev/Bus/web~/MASS_Dev_Bus/web~i;
1996
        $tag =~ s~/MASS_Dev/Bus/web~/MASS_Dev_Bus/web~i;
1974
 
1997