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



        my $repo = $PackageData{$pkgid}{mappedRepo};
        $t->addRow("Repo:", hRef("#Repo_$repo", $repo) );
    }
    $t->setColClass (1, 'listTitle' );
    print HTML $t->getTable;
 
    #
    #   Bad Package information
    #
Message("Bad Package Versions");
    my %BadByProject;
    my $last_proj_id = 0;
 
    print HTML header('BadPackageVersions', 'Bad Package Versions');
    print HTML "These package-versions cannot be reproduced from ClearCase. This may be due to\n";
    print HTML "<dl><dd>Invalid Release Manager information";
    print HTML "<dd>Incorrect Release Manager Data";

            $t2->addRow(linkRelease($_, $pvid)) foreach ( @$iusers );
            push @{$BadByProject{$_}{indirect}}, $pvid foreach ( @$iusers );
        }
        $t->addRow( anchor("BadVcs_$pvid",linkPvid($pvid)), $t2->getTable );
    }
 
    $t->setColClass (1, 'listTitle' );
    print HTML $t->getTable;
 
    #
    #   Bad package vesrions by project
    #
Message("Bad Package Versions by Project");
    print HTML header('BadPackageVersionsByProject', 'Bad Package Versions By Project');
    $t = new HTML::Table( -border=>1 );
    $t->addRow( 'Release','Package');
    $t->setRowHead(1,1);
    $last_proj_id = 0;
 
    sub sortReleases
    {
        my $rv = ( lc($ScmReleases{$a}{pName}) cmp lc($ScmReleases{$b}{pName}));
        unless ($rv )

                $t2->addRow( linkPvid($pvid, $rtag_id) , $ScmPackages{$pvid}{'vcstag'} );
            }
        }
        $t->addRow(linkRelease($rtag_id, undef, 1), $t2->getTable  );
    }
 
    $t->setColClass (1, 'listTitle' );
    $t->setColHead(1,1);
    print HTML $t->getTable;
 
 
Message("Repo Index");
    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'  );

    print HTML $t->getTable;
 
    #
    #   Releases that have multiple instances of the same package in them
    #
Message("Multiple Packages");
    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->setColClass (1, 'listTitle' );
    $t->setColHead(1,1);
    print HTML $t->getTable;
    
 
Message("Repo Index");
    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'  );

#DebugDumpData("Repos", \%Repos);
    
    #
    #   Repo back reference
    #
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 and Original Vob Path(s)' );

    print HTML $t->getTable;
    
    #
    #   Highlight packages that have not been mapped to a Repo
    #
Message("Not Mapped");
    print HTML header('NotMapped', 'Unmapped Packages');
    print HTML "Packages that have not been mapped to a Repository\n";
    $t = new HTML::Table( -border=>1 );
    foreach my $pkgid ( @{$Repos{UNKNOWN}} )
    {

    print HTML $t->getTable;
    
    #
    #   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 anchor("Repo_SVN",'SVN');
 
    $t = new HTML::Table( -border=>1 );

Rev 1451	Rev 2016
Line 730...	Line 730...
730	`my $repo = $PackageData{$pkgid}{mappedRepo};`	730	`my $repo = $PackageData{$pkgid}{mappedRepo};`
731	`$t->addRow("Repo:", hRef("#Repo_$repo", $repo) );`	731	`$t->addRow("Repo:", hRef("#Repo_$repo", $repo) );`
732	`}`	732	`}`
733	`$t->setColClass (1, 'listTitle' );`	733	`$t->setColClass (1, 'listTitle' );`
734	`print HTML $t->getTable;`	734	`print HTML $t->getTable;`
735		-
736	`#`	735	`#`
737	`# Bad Package information`	736	`# Bad Package information`
738	`#`	737	`#`
-		738	`Message("Bad Package Versions");`
739	`my %BadByProject;`	739	`my %BadByProject;`
-		740	`my $last_proj_id = 0;`
740		741
741	`print HTML header('BadPackageVersions', 'Bad Package Versions');`	742	`print HTML header('BadPackageVersions', 'Bad Package Versions');`
742	`print HTML "These package-versions cannot be reproduced from ClearCase. This may be due to\n";`	743	`print HTML "These package-versions cannot be reproduced from ClearCase. This may be due to\n";`
743	`print HTML "<dl><dd>Invalid Release Manager information";`	744	`print HTML "<dl><dd>Invalid Release Manager information";`
744	`print HTML "<dd>Incorrect Release Manager Data";`	745	`print HTML "<dd>Incorrect Release Manager Data";`
Line 768...	Line 769...
768	`$t2->addRow(linkRelease($_, $pvid)) foreach ( @$iusers );`	769	`$t2->addRow(linkRelease($_, $pvid)) foreach ( @$iusers );`
769	`push @{$BadByProject{$_}{indirect}}, $pvid foreach ( @$iusers );`	770	`push @{$BadByProject{$_}{indirect}}, $pvid foreach ( @$iusers );`
770	`}`	771	`}`
771	`$t->addRow( anchor("BadVcs_$pvid",linkPvid($pvid)), $t2->getTable );`	772	`$t->addRow( anchor("BadVcs_$pvid",linkPvid($pvid)), $t2->getTable );`
772	`}`	773	`}`
773		-
774	`$t->setColClass (1, 'listTitle' );`	774	`$t->setColClass (1, 'listTitle' );`
775	`print HTML $t->getTable;`	775	`print HTML $t->getTable;`
776		776
777	`#`	777	`#`
778	`# Bad package vesrions by project`	778	`# Bad package vesrions by project`
779	`#`	779	`#`
-		780	`Message("Bad Package Versions by Project");`
780	`print HTML header('BadPackageVersionsByProject', 'Bad Package Versions By Project');`	781	`print HTML header('BadPackageVersionsByProject', 'Bad Package Versions By Project');`
781	`$t = new HTML::Table( -border=>1 );`	782	`$t = new HTML::Table( -border=>1 );`
782	`$t->addRow( 'Release','Package');`	783	`$t->addRow( 'Release','Package');`
783	`$t->setRowHead(1,1);`	784	`$t->setRowHead(1,1);`
784	`my $last_proj_id = 0;`	785	`$last_proj_id = 0;`
785		786
786	`sub sortReleases`	787	`sub sortReleases`
787	`{`	788	`{`
788	`my $rv = ( lc($ScmReleases{$a}{pName}) cmp lc($ScmReleases{$b}{pName}));`	789	`my $rv = ( lc($ScmReleases{$a}{pName}) cmp lc($ScmReleases{$b}{pName}));`
789	`unless ($rv )`	790	`unless ($rv )`
Line 821...	Line 822...
821	`$t2->addRow( linkPvid($pvid, $rtag_id) , $ScmPackages{$pvid}{'vcstag'} );`	822	`$t2->addRow( linkPvid($pvid, $rtag_id) , $ScmPackages{$pvid}{'vcstag'} );`
822	`}`	823	`}`
823	`}`	824	`}`
824	`$t->addRow(linkRelease($rtag_id, undef, 1), $t2->getTable );`	825	`$t->addRow(linkRelease($rtag_id, undef, 1), $t2->getTable );`
825	`}`	826	`}`
-		827
826	`$t->setColClass (1, 'listTitle' );`	828	`$t->setColClass (1, 'listTitle' );`
827	`$t->setColHead(1,1);`	829	`$t->setColHead(1,1);`
828	`print HTML $t->getTable;`	830	`print HTML $t->getTable;`
829		-
830		831
-		832	`Message("Repo Index");`
831	`print HTML header('RepoIndex', 'Repository Index');`	833	`print HTML header('RepoIndex', 'Repository Index');`
832	`print HTML "A summary of proposed Repostories and Paths\n";`	834	`print HTML "A summary of proposed Repostories and Paths\n";`
833		835
834	`$t = new HTML::Table( -border=>0, -padding=>0, -spacing=>0, -class=>'paddedTable' );`	836	`$t = new HTML::Table( -border=>0, -padding=>0, -spacing=>0, -class=>'paddedTable' );`
835	`$t->addRow( 'Name','', 'Count', 'Warnings' );`	837	`$t->addRow( 'Name','', 'Count', 'Warnings' );`
Line 862...	Line 864...
862	`print HTML $t->getTable;`	864	`print HTML $t->getTable;`
863		865
864	`#`	866	`#`
865	`# Releases that have multiple instances of the same package in them`	867	`# Releases that have multiple instances of the same package in them`
866	`#`	868	`#`
-		869	`Message("Multiple Packages");`
867	`print HTML header('MultiplePackages', 'Releases with duplicated packages');`	870	`print HTML header('MultiplePackages', 'Releases with duplicated packages');`
868	`print HTML "Releases that have multiple instances of the same package\n";`	871	`print HTML "Releases that have multiple instances of the same package\n";`
869	`#DebugDumpData("ReleasePackages", \%ReleasePackages );`	872	`#DebugDumpData("ReleasePackages", \%ReleasePackages );`
870		873
871	`$t = new HTML::Table( -border=>1 );`	874	`$t = new HTML::Table( -border=>1 );`
Line 909...	Line 912...
909	`$t->setColClass (1, 'listTitle' );`	912	`$t->setColClass (1, 'listTitle' );`
910	`$t->setColHead(1,1);`	913	`$t->setColHead(1,1);`
911	`print HTML $t->getTable;`	914	`print HTML $t->getTable;`
912		915
913		916
-		917	`Message("Repo Index");`
914	`print HTML header('RepoIndex', 'Repository Index');`	918	`print HTML header('RepoIndex', 'Repository Index');`
915	`print HTML "A summary of proposed Repostories and Paths\n";`	919	`print HTML "A summary of proposed Repostories and Paths\n";`
916		920
917	`$t = new HTML::Table( -border=>0, -padding=>0, -spacing=>0, -class=>'paddedTable' );`	921	`$t = new HTML::Table( -border=>0, -padding=>0, -spacing=>0, -class=>'paddedTable' );`
918	`$t->addRow( 'Name','', 'Count', 'Warnings' );`	922	`$t->addRow( 'Name','', 'Count', 'Warnings' );`
Line 950...	Line 954...
950	`#DebugDumpData("Repos", \%Repos);`	954	`#DebugDumpData("Repos", \%Repos);`
951		955
952	`#`	956	`#`
953	`# Repo back reference`	957	`# Repo back reference`
954	`#`	958	`#`
-		959	`Message("Repo Map");`
955	`print HTML header('RepoMap', 'Repository Mapping');`	960	`print HTML header('RepoMap', 'Repository Mapping');`
956	`print HTML "Proposed Repostories and Paths with package mapping and ClearCase Path\n";`	961	`print HTML "Proposed Repostories and Paths with package mapping and ClearCase Path\n";`
957		962
958	`$t = new HTML::Table( -border=>1 );`	963	`$t = new HTML::Table( -border=>1 );`
959	`$t->addRow( 'Repository Path', 'Package Name and Original Vob Path(s)' );`	964	`$t->addRow( 'Repository Path', 'Package Name and Original Vob Path(s)' );`
Line 991...	Line 996...
991	`print HTML $t->getTable;`	996	`print HTML $t->getTable;`
992		997
993	`#`	998	`#`
994	`# Highlight packages that have not been mapped to a Repo`	999	`# Highlight packages that have not been mapped to a Repo`
995	`#`	1000	`#`
-		1001	`Message("Not Mapped");`
996	`print HTML header('NotMapped', 'Unmapped Packages');`	1002	`print HTML header('NotMapped', 'Unmapped Packages');`
997	`print HTML "Packages that have not been mapped to a Repository\n";`	1003	`print HTML "Packages that have not been mapped to a Repository\n";`
998	`$t = new HTML::Table( -border=>1 );`	1004	`$t = new HTML::Table( -border=>1 );`
999	`foreach my $pkgid ( @{$Repos{UNKNOWN}} )`	1005	`foreach my $pkgid ( @{$Repos{UNKNOWN}} )`
1000	`{`	1006	`{`
Line 1023...	Line 1029...
1023	`print HTML $t->getTable;`	1029	`print HTML $t->getTable;`
1024		1030
1025	`#`	1031	`#`
1026	`# Packages already under Subversion`	1032	`# Packages already under Subversion`
1027	`#`	1033	`#`
-		1034	`Message("In Subversion");`
1028	`print HTML header('InSvn', 'Packages in Subversion');`	1035	`print HTML header('InSvn', 'Packages in Subversion');`
1029	`print HTML "Packages that are currently in Subversion\n";`	1036	`print HTML "Packages that are currently in Subversion\n";`
1030	`print HTML anchor("Repo_SVN",'SVN');`	1037	`print HTML anchor("Repo_SVN",'SVN');`
1031		1038
1032	`$t = new HTML::Table( -border=>1 );`	1039	`$t = new HTML::Table( -border=>1 );`

Subversion Repositories DevTools

(root)/core_devl/branches/dpurdie_devl/TOOLS/LOCAL/cc2svn_procdata.pl – Rev 1451 → 2016