WebSVN – DevTools – Diff – /core_devl/branches/dpurdie_devl/TOOLS/LOCAL/cc2svn_procdata.pl



            }
            $t->addRow("Bad VCS:", $t2->getTable );
        }
 
        my $repo = $PackageData{$pkgid}{mappedRepo};
        my %RepoList;
        foreach my $pvid ( @{$PackageSet{$pkgid}} )
        {
            my $repo = $ScmPackages{$pvid}{'vcstag'};
            if ( $repo =~ m~SVN::(.*)(/tags/|/branches/|/trunk)~i )
            {
                $RepoList{$1} = svnLink($1) unless exists $RepoList{$1};
            }
        }
        my $txt = join( '<br>', values %RepoList);
        $txt = ' : ' . $txt if ( $txt );
        $t->addRow("Repo:", hRef("#Repo_$repo", $repo). $txt );
    }
    $t->setColClass (1, 'listTitle' );
    print HTML $t->getTable;
    #
    #   Bad Package information

Message("Repo Map");
    print HTML header('RepoMap', 'Repository Mapping');
    print HTML "Proposed Repostories and Paths with package mapping and ClearCase Path\n";
 
    $t = new HTML::Table( -border=>1 );
    $t->addRow( 'Repository Path', 'Package Name,Original Vob Path(s),Last Build in Days. NonRipple [Any]' );
 
    foreach my $repo ( sort {uc($a) cmp uc($b) } keys %Repos )
    {
        next if ( $repo eq 'SVN' );
        next if ( $repo eq 'UNKNOWN' );

            }
            if ( $t2->getTableRows() )
            {
                $t2->setColClass (1, 'listTitle' );
            }
            my $youngest = $PackageData{$pkgid}{youngAge};
            my $youngestNonRipple = $PackageData{$pkgid}{youngAgeNonRipple} || $youngest;
 
            $t1->addRow( linkPackageDetails($pkgid),
                         $t2->getTable(),
                         int($youngestNonRipple) . " [" . int($youngest) . "]"  );
        }
 
        if ( $t1->getTableRows() )
        {
            $t1->setColWidth(1,'30%');
            $t1->setColClass (1, 'listTitle' );
            $t1->setColWidth(3,'10%');
        }
        $t->addRow( anchor("Repo_$repo",$repo), $t1->getTable() );
 
    }
    $t->setColClass (1, 'listTitle' );

    #   Packages already under Subversion
    #
Message("In Subversion");
    print HTML header('InSvn', 'Packages in Subversion');
    print HTML "Packages that are currently in Subversion\n";
    print HTML "<br>Packages in Subversion: ". scalar @{$Repos{SVN}} ."\n";
    print HTML anchor("Repo_SVN",'SVN');
 
    $t = new HTML::Table( -border=>1 );
    foreach my $pkgid ( @{$Repos{SVN}} )
    {

    #
    #   Some path cleanup
    #
    if ( $path )
    {
        $path =~ s~/build.pl$~~i;
        $path =~ s~/src$~~i;
        $path =~ s~DPC_SWCode/~DPG_SWCode/~i;
        $path =~ s~MASS_Dev/Bus/~MASS_Dev_Bus/~i;
        $path =~ s~MASS_Dev_Bus/Cbp/~MASS_Dev_Bus/CBP/~i;
        $path =~ s~/Vastraffik/~/Vasttrafik/~;
        $path =~ s~/MREF_Package/ergpostmongui$~/MREF_Package/ergpostmongui~i;

#
# Description     : Cleanup and rewrite a vcstag
#
#                   DUPLICATED IN:
#                       - cc2svn_procdata
#                       - cc2svn_importpackage
#
# Inputs          : vcstag
#
# Returns         : Cleaned up vcs tag
#

    my ($tag) = @_;
    $tag =~ tr~\\/~/~;
    if ( $tag =~ m~^CC::~ )
    {
        $tag =~ s~CC::\s+~CC::~;
        $tag =~ s~/build.pl::~::~i;
        $tag =~ s~/src::~::~i;
        $tag =~ s~MASS_Dev_Bus/Cbp/~MASS_Dev_Bus/CBP/~i;
        $tag =~ s~MASS_Dev_Bus~MASS_Dev_Bus~i;
        $tag =~ s~/MASS_Dev/Infra~MASS_Dev_Infra~i;
        $tag =~ s~/MASS_Dev/Bus/web~/MASS_Dev_Bus/web~i;
 

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

Subversion Repositories DevTools

(root)/core_devl/branches/dpurdie_devl/TOOLS/LOCAL/cc2svn_procdata.pl – Rev 2039 → 2319