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

 our %ScmSuffixes;
 our %ScmAllPackages;
 our %ScmAllBomProjects;
 our %ScmSboms;
+################################################################################
+#   Data structure to help create links in all the files
+#       BadVcs_$pvid
+#       Repo_$repo
+#       Package_$name
+#
+my $currentSection;
+my %htmlData = (
+    S0 =>  {file => 'PackageConversion.html'                  , title => 'Master Index'                     , tag => '', 'noHeader' => 0 },
+    S1 =>  {file => 'PackageConversion_IR.html'               , title => 'Inlcuded Releases'                , tag => '' },
+    S2 =>  {file => 'PackageConversion_ER.html'               , title => 'Excluded Releases'                , tag => '' },
+    S3 =>  {file => 'PackageConversion_PkgIndex.html'         , title => 'Complete Package Index'           , tag => '' },
+    S4 =>  {file => 'PackageConversion_PkgDetails.html'       , title => 'Package Conversion Details'       , tag => 'Package' },
+    S5 =>  {file => 'PackageConversion_BadVersions.html'      , title => 'Bad Package Versions'             , tag => 'BadVcs' },
+    S6 =>  {file => 'PackageConversion_BadVersionsPrj.html'   , title => 'Bad Package Versions By Project'  , tag => '' },
+    S7 =>  {file => 'PackageConversion_MultiplePackages.html' , title => 'MultiplePackages'                 , tag => '' },
+    S8 =>  {file => 'PackageConversion_RepoIndex.html'        , title => 'Repository Index'                 , tag => '' },
+    S9 =>  {file => 'PackageConversion_RepoMap.html'          , title => 'Repository Mapping'               , tag => 'Repo' },
+    SA =>  {file => 'PackageConversion_unMapped.html'         , title => 'Unmapped Packages'                , tag => '' },
+    SB =>  {file => 'PackageConversion_SvnPkgs.html'          , title => 'Packages in Subversion'           , tag => '' },
+);
 #-------------------------------------------------------------------------------
 # Function        : Main Entry
+#
 # Description     :
+        }
+    }
+    #
     #   Find youngest package
+    #       - Most recently modified
+    #       - Not a ripple
+    #       - Not created by buildadm (3768)
+    #
     if ( (! exists $PackageData{$pkgid}{youngAge} ) || ( $ScmPackages{$_}{Age} < $PackageData{$pkgid}{youngAge} ) )
+    {
         $PackageData{$pkgid}{youngAge} = $ScmPackages{$_}{Age};
+    }
     if ( (! exists $PackageData{$pkgid}{youngAgeNonRipple} ) || ( $ScmPackages{$_}{Age} < $PackageData{$pkgid}{youngAgeNonRipple} ) )
+    {
         unless ( $ScmPackages{$_}{isaRipple} )
+        {
             $PackageData{$pkgid}{youngAgeNonRipple} = $ScmPackages{$_}{Age};
+        }
+    }
+    if ( (! exists $PackageData{$pkgid}{nonBuildadm} ) || ( $ScmPackages{$_}{Age} < $PackageData{$pkgid}{nonBuildadm} ) )
+    {
+        unless ( $ScmPackages{$_}{Creator} == '3768' )
+        {
+            $PackageData{$pkgid}{nonBuildadm} = $ScmPackages{$_}{Age};
+        }
+    }
     $PackageData{$pkgid}{name} = $ScmPackages{$_}{name} ;
+    #
     #   Accumulate Release data
+    #
         "ScmRepoMap", \%Data );
     $fh->Close();
+}
 #-------------------------------------------------------------------------------
-# Function        : generateHTML
+# Function        : generateHTMLHeader
+#
-# Description     :
-#                   Create per package data
+# Description     : Create an HTML Header
-#                   Create a nice HTML file so that it can be hyperlinked
+#
-# Inputs          :
+# Inputs          : $section        - Section tag
+#
-# Returns         :
+# Returns         : Handle to use
+#
-sub generateHTML
+sub generateHTMLHeader
+{
-    my @PackageOrder;
+    my ($section) = @_;
-    EnvImport('GBE_RM_URL');
-    EnvImport('GBE_DM_URL');
-    my $t;
+    my $handle;
-    Message("Generate HTML");
+    Error ("Bad HTML section id: $section") unless ( exists $htmlData{$section} );
+    $currentSection = $section;
+    my $fname = $htmlData{$section}{file};
+    my $title = $htmlData{$section}{title};
-    open (HTML, '>', 'PackageConversion.html') || Error ("Cannot create HTML");
+    open ($handle, '>', $fname) || Error ("Cannot create HTML: $fname");
-    print HTML <<'HEADER';
+    print $handle <<"HEADER";
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
+<!DOCTYPE $handle PUBLIC "-//W3C//DTD $handle 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
 <html>
 <head>
-<title>Package Conversion Details</title>
+<title>$title</title>
 <script type="text/javascript">
 function click_expandingMenuHeader(obj,sectionName)
+{
 var x=document.getElementById("cssprop_" + sectionName).parentNode.className;
 if (x.indexOf("expandingMenuNotSelected")>-1)
+}
 </style>
 </head>
 HEADER
-    print HTML "<body>\n";
+    print $handle "<body>\n";
-    print HTML "<p>Generated: " . localtime() . "\n";
+    print $handle "<p>Generated: " . localtime() . "\n";
+    #
     #   Generate an index
+    #
-    print HTML htmlH1(anchor("Index", 'Index'));
+    print $handle htmlH1(anchor("Index", 'Index'));
-    print HTML "<dl>";
+    print $handle "<dl>";
-#    print HTML "<dd>" . hRef("#BOMIndex"                ,'Included BOM Projects');
+    foreach my $section ( sort keys %htmlData )
+    {
-    print HTML "<dd>" . hRef("#ReleaseIndex"            ,'Included Releases');
+        my $fname = $htmlData{$section}{file};
-    print HTML "<dd>" . hRef("#ReleaseIndexExcluded"    ,'Excluded Releases');
+        my $title = $htmlData{$section}{title};
-    print HTML "<dd>" . hRef("#CompletePackageIndex"    ,'Complete Package Index');
+        print $handle "<dd>" . hRef("$fname"            ,$title);
+    }
+    print $handle "</dl>\n";
-    print HTML "<dd>" . hRef("#PackageDetails"          ,'Package Conversion Details');
+    unless ( $htmlData{$section}{noHeader} )
+    {
-    print HTML "<dd>" . hRef("#BadPackageVersions"      ,'Bad Package Versions');
+        print $handle htmlH1('<hr>' . $title);
+    }
+    return $handle;
+}
-    print HTML "<dd>" . hRef("#BadPackageVersionsByProject",'Bad Package Versions By Project');
+#-------------------------------------------------------------------------------
-    print HTML "<dd>" . hRef("#MultiplePackages"        ,'Releases with duplicated packages');
+# Function        : generateHTMLTail
+#
+# Description     :
+#
+# Inputs          :
+#
+# Returns         :
+#
+sub generateHTMLTail
+{
+    my ($handle) = @_;
-    print HTML "<dd>" . hRef("#RepoIndex"               ,'Repository Index');
+    print $handle "</body>\n";
+    print $handle "</html>\n";
+    close $handle;
+    $currentSection = '';
+}
-    print HTML "<dd>" . hRef("#RepoMap"                 ,'Repository Mapping');
+#-------------------------------------------------------------------------------
+# Function        : generateHTML
+#
+# Description     :
-    print HTML "<dd>" . hRef("#NotMapped"               ,'Unmapped Packages');
+#                   Create per package data
-    print HTML "<dd>" . hRef("#InSvn"                   ,'Packages in Subversion');
+#                   Create a nice HTML file so that it can be hyperlinked
+#
+# Inputs          :
+#
+# Returns         :
+#
+sub generateHTML
+{
-    print HTML "</dl>\n";
+    my @PackageOrder;
+    EnvImport('GBE_RM_URL');
+    EnvImport('GBE_DM_URL');
+    my $t;
+    Message("Generate HTML");
+    my $HTML = generateHTMLHeader ('S0');
+    print $HTML "This page is a simple index into the other pages that contain the Clearcase to Subversion converstion details.\n";
+    #
     #   BOM Projects
+    #
 #    {
-#        print HTML header('BOMIndex', 'Included BOM Projects');
+#        print $HTML header('BOMIndex', 'Included BOM Projects');
-#        print HTML "BOM Projects included in processing. All branches and and SBOMS scanned for essential packages and versions\n";
+#        print $HTML "BOM Projects included in processing. All branches and and SBOMS scanned for essential packages and versions\n";
+#
-#        print HTML "<dl>\n";
+#        print $HTML "<dl>\n";
 #        foreach my $project_id ( sort {$ScmAllBomProjects{$a}{project_name} cmp $ScmAllBomProjects{$b}{project_name} } keys %ScmAllBomProjects )
 #        {
-#            print HTML "<dd>" . linkBomProject($project_id,$ScmAllBomProjects{$project_id}{project_name});
+#            print $HTML "<dd>" . linkBomProject($project_id,$ScmAllBomProjects{$project_id}{project_name});
 #        }
-#        print HTML "</dl>\n";
+#        print $HTML "</dl>\n";
 #    }
+    #
     #   Release List
+    #
     my %Projects;
     push @{$Projects{$ScmReleases{$_}{'pName'}}}, $_ foreach ( keys %ScmReleases );
-    print HTML header('ReleaseIndex', 'Included Releases');
+    $HTML = generateHTMLHeader ('S1');
-    print HTML "Releases that will be considered in the conversion process.\n";
+    print $HTML "Releases that will be considered in the conversion process.\n";
-    print HTML "<br>Releases are scanned for packages and versions that are used.\n";
+    print $HTML "<br>Releases are scanned for packages and versions that are used.\n";
-    print HTML "<dl>\n";
+    print $HTML "<dl>\n";
     foreach ( sort keys %Projects )
+    {
         foreach my $rtagid ( sort {$ScmReleases{$a}{name} cmp $ScmReleases{$b}{name}} @{$Projects{$_}} )
+        {
             next if ( $ScmReleases{$rtagid}{'excluded'} );
-            print HTML "<dd>" . linkRelease($rtagid);
+            print $HTML "<dd>" . linkRelease($rtagid);
+        }
+    }
-    print HTML "</dl>\n";
+    print $HTML "</dl>\n";
+    generateHTMLTail($HTML);
-    print HTML header('ReleaseIndexExcluded', 'Excluded Releases');
+    $HTML = generateHTMLHeader ('S2');
-    print HTML "Releases that will NOT be considered in the conversion process. These are releases that have been specificly excluded.\n";
+    print $HTML "Releases that will NOT be considered in the conversion process. These are releases that have been specificly excluded.\n";
-    print HTML "<dl>\n";
+    print $HTML "<dl>\n";
     foreach ( sort keys %Projects )
+    {
         foreach my $rtagid ( sort {$ScmReleases{$a}{name} cmp $ScmReleases{$b}{name}} @{$Projects{$_}} )
+        {
             next unless ( $ScmReleases{$rtagid}{'excluded'} );
-            print HTML "<dd>" . linkRelease($rtagid);
+            print $HTML "<dd>" . linkRelease($rtagid);
+        }
+    }
-    print HTML "</dl>\n";
+    print $HTML "</dl>\n";
+    generateHTMLTail($HTML);
     my $currentChar = '';
     undef $t;
     @PackageOrder = ();
-    print HTML header('CompletePackageIndex', 'Complete Package Index');
+    $HTML = generateHTMLHeader ('S3');
-    print HTML "Complete list of packages. This includes 'Essential Packages' and packages that ";
+    print $HTML "Complete list of packages. This includes 'Essential Packages' and packages that ";
-    print HTML "are present in Release Manager, but are not currently used.";
+    print $HTML "are present in Release Manager, but are not currently used.";
-    print HTML "<br><button type=\"button\" onclick=\"flipStyleByName('.nonessential', 'display', 'none', '')\" >Show/Hide non Essential</button>";
+    print $HTML "<br><button type=\"button\" onclick=\"flipStyleByName('.nonessential', 'display', 'none', '')\" >Show/Hide non Essential</button>";
-    print HTML "<button type=\"button\" onclick=\"flipStyleByName('.essential', 'display', 'none', '')\" >Show/Hide Essential</button>";
+    print $HTML "<button type=\"button\" onclick=\"flipStyleByName('.essential', 'display', 'none', '')\" >Show/Hide Essential</button>";
     foreach my $pkgid ( sort {lc($ScmAllPackages{$a}) cmp lc($ScmAllPackages{$b}) } keys %ScmAllPackages )
+    {
         my $thisChar = uc(substr($ScmAllPackages{$pkgid}, 0, 1 ));
         if ( $thisChar ne $currentChar )
+        {
-            print HTML $t->getTable if ( $t );
+            print $HTML $t->getTable if ( $t );
             $t = new HTML::Table();
-            endExpander() if ($currentChar);
+            endExpander($HTML) if ($currentChar);
-            startExpander("Letter2$thisChar", $thisChar);
+            startExpander($HTML, "Letter2$thisChar", $thisChar);
             $currentChar = $thisChar;
+        }
         my $packageRef;
         my $version_tree = '';
         my $import_log = '';
             $class = 'essential';
+        }
         $t->addRow($packageRef, linkPkg($pkgid, '(Release Manager)'),$version_tree, $import_log, $marker);
         $t->setRowClass  (-1, $class);
+    }
-    print HTML $t->getTable if ( $t );
+    print $HTML $t->getTable if ( $t );
-    endExpander() if ($currentChar);
+    endExpander($HTML) if ($currentChar);
+    generateHTMLTail($HTML);
+    #
     #   Package Details
+    #
-    print HTML header('PackageDetails', 'Package Conversion Details');
+    $HTML = generateHTMLHeader ('S4');
     $t = new HTML::Table( -border=>1 );
     foreach my $pkgid ( @PackageOrder )
+    {
         my @badVobs;
         $t->addRow('&nbsp;');
         $t->setRowClass  (-1, 'packageTitle');
         $t->setCellColSpan(-1, 1, 2);
-        $t->addRow( anchor("Package_$PackageData{$pkgid}{name}", 'Name:'), linkPkg($pkgid) . linkImage($pkgid, ' (Version Tree)') . linkImportLog( $pkgid, ' (Import Log)' ) );
+        $t->addRow( anchor("$PackageData{$pkgid}{name}", 'Name:'), linkPkg($pkgid) . linkImage($pkgid, ' (Version Tree)') . linkImportLog( $pkgid, ' (Import Log)' ) );
 #        $t->setRowHead(-1,1);
         my $t2 = new HTML::Table( -border=>0, -padding=>0, -spacing=>0 );
         foreach my $pvid ( sort {$ScmPackages{$a}{fullVersion} cmp $ScmPackages{$b}{fullVersion} } @{$PackageSet{$pkgid}} )
+        {
         $t->addRow("Versions used:", $t2->getTable);
         $t->addRow("Type:", $PackageData{$pkgid}{type});
         $t->addRow("Projects:",join (',', @{$PackageData{$pkgid}{suffixes}} ));
         my $youngest = $PackageData{$pkgid}{youngAge};
-        my $youngestNonRipple = $PackageData{$pkgid}{youngAgeNonRipple} || $youngest;
+        my $youngestNonRipple = $PackageData{$pkgid}{youngAgeNonRipple} || 0;
+        my $youngestNonBuildadm = $PackageData{$pkgid}{nonBuildadm} || 0;
+        $youngest = int($youngest);
+        $youngestNonRipple = int($youngestNonRipple) || '-';
+        $youngestNonBuildadm = int($youngestNonBuildadm) || '-';
-        $t->addRow("Youngest:", int($youngestNonRipple) . " Days (NonRipple). " . int($youngest) . " Days (Any)" );
+        $t->addRow("Youngest:", "$youngestNonRipple Days (NonRipple). $youngestNonBuildadm Days (NonBuildadm). $youngest Days (any Build)" );
         $t->addRow("Views:", join (',', keys %{$PackageData{$pkgid}{view}}));
         if ( $PackageData{$pkgid}{MultiVob} )
+        {
             my $t2 = new HTML::Table( -border=>0, -padding=>0, -spacing=>0, -class=>'paddedTable' );
         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;
+    print $HTML $t->getTable;
+    generateHTMLTail($HTML);
+    #
     #   Bad Package information
+    #
 Message("Bad Package Versions");
     my %BadByProject;
     my $last_proj_id = 0;
-    print HTML header('BadPackageVersions', 'Bad Package Versions');
+    $HTML = generateHTMLHeader ('S5');
-    print HTML "These package-versions cannot be reproduced from ClearCase. This may be due to\n";
+    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 "<dl><dd>Invalid Release Manager information";
-    print HTML "<dd>Incorrect Release Manager Data";
+    print $HTML "<dd>Incorrect Release Manager Data";
-    print HTML "<dd>ClearCase label and Path do not result in a view with files";
+    print $HTML "<dd>ClearCase label and Path do not result in a view with files";
-    print HTML "</dl>";
+    print $HTML "</dl>";
     $t = new HTML::Table( -border=>1 );
     $t->addRow( 'Package Version','VCS Tag' );
     $t->setRowHead(1,1);
     foreach my $pvid ( sort {lc($ScmPackages{$a}{name}) cmp lc($ScmPackages{$b}{name}) } keys %ScmPackages )
+    {
+        {
             $t2->addRow("Used Indirectly by:");
             $t2->addRow(linkRelease($_, $pvid)) foreach ( @$iusers );
             push @{$BadByProject{$_}{indirect}}, $pvid foreach ( @$iusers );
+        }
-        $t->addRow( anchor("BadVcs_$pvid",linkPvid($pvid)), $t2->getTable );
+        $t->addRow( anchor("$pvid",linkPvid($pvid)), $t2->getTable );
+    }
     $t->setColClass (1, 'listTitle' );
-    print HTML $t->getTable;
+    print $HTML $t->getTable;
+    generateHTMLTail($HTML);
+    #
     #   Bad package vesrions by project
+    #
 Message("Bad Package Versions by Project");
-    print HTML header('BadPackageVersionsByProject', 'Bad Package Versions By Project');
+    $HTML = generateHTMLHeader ('S6');
     $t = new HTML::Table( -border=>1 );
     $t->addRow( 'Release','Package');
     $t->setRowHead(1,1);
     $last_proj_id = 0;
         $t->addRow(linkRelease($rtag_id, undef, 1), $t2->getTable  );
+    }
     $t->setColClass (1, 'listTitle' );
     $t->setColHead(1,1);
-    print HTML $t->getTable;
+    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'  );
-    $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( '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;', hRef("#Repo_$repo/$path", $path), $count, $warn);
-            }
-    }
-    print HTML $t->getTable;
+    generateHTMLTail($HTML);
+    #
     #   Releases that have multiple instances of the same package in them
+    #
 Message("Multiple Packages");
-    print HTML header('MultiplePackages', 'Releases with duplicated packages');
+    $HTML = generateHTMLHeader ('S7');
-    print HTML "Releases that have multiple instances of the same package\n";
+    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);
         $t->addRow(linkRelease($rtag_id, undef, 1), $t2->getTable  );
+    }
     $t->setColClass (1, 'listTitle' );
     $t->setColHead(1,1);
-    print HTML $t->getTable;
+    print $HTML $t->getTable;
+    generateHTMLTail($HTML);
 Message("Repo Index");
-    print HTML header('RepoIndex', 'Repository Index');
+    $HTML = generateHTMLHeader ('S8');
-    print HTML "A summary of proposed Repostories and Paths\n";
+    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 )
                     $t->addRow( '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;', hRef("#Repo_$repo/$path", $path), $count, $warn);
+            }
+    }
-    print HTML $t->getTable;
+    print $HTML $t->getTable;
+    generateHTMLTail($HTML);
 #DebugDumpData("RepoSubIndex", \%RepoSubIndex);
 #DebugDumpData("Repos", \%Repos);
+    #
     #   Repo back reference
+    #
 Message("Repo Map");
-    print HTML header('RepoMap', 'Repository Mapping');
+    $HTML = generateHTMLHeader ('S9');
-    print HTML "Proposed Repostories and Paths with package mapping and ClearCase Path\n";
+    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]' );
+    $t->addRow( 'Repository Path', 'Package Name,Original Vob Path(s),Last Build NonBuildadm [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;
+            my $youngestNonRipple = $PackageData{$pkgid}{youngAgeNonRipple} || 0;
+            my $youngestNonBuildadm = $PackageData{$pkgid}{nonBuildadm} || 0;
+            $youngest =  int($youngest);
+            $youngestNonRipple =  int($youngestNonRipple) || '-';
+            $youngestNonBuildadm = int($youngestNonBuildadm) || '-';
             $t1->addRow( linkPackageDetails($pkgid),
-                         $t2->getTable(),
-                         int($youngestNonRipple) . " [" . int($youngest) . "]"  );
+                         $t2->getTable(), "$youngestNonBuildadm [$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->addRow( anchor("$repo",$repo), $t1->getTable() );
+    }
     $t->setColClass (1, 'listTitle' );
     $t->setColHead(1,1);
-    print HTML $t->getTable;
+    print $HTML $t->getTable;
+    generateHTMLTail($HTML);
+    #
     #   Highlight packages that have not been mapped to a Repo
+    #
 Message("Not Mapped");
-    print HTML header('NotMapped', 'Unmapped Packages');
+    $HTML = generateHTMLHeader ('SA');
-    print HTML "Packages that have not been mapped to a Repository\n";
+    print $HTML "Packages that have not been mapped to a Repository\n";
     $t = new HTML::Table( -border=>1 );
     foreach my $pkgid ( @{$Repos{UNKNOWN}} )
+    {
         my $flag_badCC;
         my $flag_multi;
         push @data, "Bad VcsTag" if $flag_badVob;
         $t->addRow( linkPackageDetails($pkgid), join( '<br>', @data) );
+    }
     $t->setColClass (1, 'listTitle' );
-    print HTML $t->getTable;
+    print $HTML $t->getTable;
+    generateHTMLTail($HTML);
+    #
     #   Packages already under Subversion
+    #
 Message("In Subversion");
-    print HTML header('InSvn', 'Packages in Subversion');
+    $HTML = generateHTMLHeader ('SB');
-    print HTML "Packages that are currently in Subversion\n";
+    print $HTML "Packages that are currently in Subversion\n";
-    print HTML "<br>Packages in Subversion: ". scalar @{$Repos{SVN}} ."\n";
+    print $HTML "<br>Packages in Subversion: ". scalar @{$Repos{SVN}} ."\n";
-    print HTML anchor("Repo_SVN",'SVN');
+    print $HTML anchor("SVN",'SVN');
     $t = new HTML::Table( -border=>1 );
     foreach my $pkgid ( @{$Repos{SVN}} )
+    {
         my %RepoList;
                 $RepoList{$1} = svnLink($1) unless exists $RepoList{$1};
+            }
+        }
         $t->addRow( linkPackageDetails($pkgid), join( '<br>', values %RepoList) );
+    }
-    print HTML $t->getTable;
+    print $HTML $t->getTable;
-print HTML "</body>\n";
-print HTML "</html>\n";
+    generateHTMLTail($HTML);
-close HTML;
 Message ("Created: PackageConversion.html");
-#DebugDumpData("PackageData",\%PackageData );
-#DebugDumpData("Views", \%Views );
-#DebugDumpData("Vobs", \%Vobs );
-#DebugDumpData("Repos", \%Repos );
-    #
-    #   Generate VOB XREF too
-    #
-    open (HTML, '>', 'RepoMap.html') || Error ("Cannot create HTML");
-    print HTML <<'HEADER';
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
-<html>
-<head>
-<title>Repository Mapping</title>
-<style TYPE="text/css">
-.packageTitle {
-    background-color:#FFFF99;
-}
-.listTitle {
-    text-align:left;
-    vertical-align:top;
+}
-.paddedTable {
-    border-spacing: 10px 0px;
-}
-</style>
+sub hRef
-</head>
-HEADER
-    print HTML "<body>\n";
-    print HTML htmlH1('Clearcase VOB to Subversion Repository mapping');
-    print HTML "<p>Generated: " . localtime() . "\n";
-    #
-    #   Generate an index
-    #
-    print HTML htmlH1(anchor("Index", 'Index'));
-    print HTML "<dl>";
-    print HTML "<dd>" . hRef("#RepoIndex"               ,'Repository Index');
-    print HTML "<dd>" . hRef("#RepoMap"                 ,'Repository Mapping');
-    print HTML "<dd>" . hRef("#NotMapped"               ,'Unmapped Packages');
-    print HTML "</dl>\n";
-    print HTML header('RepoIndex', 'Repository Index');
-    print HTML "A summary of proposed Repostories and Paths\n";
-#DebugDumpData("RepoSubIndex", \%RepoSubIndex );
-#DebugDumpData("Repos", \%Repos );
+{
-    $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 ($url, $text, $target) = @_;
-            my $count = '';
+    my $ttext = '';
-            if ( exists $RepoSubIndex{$repo}{'-'}   )
-            {
-                $count = @{$RepoSubIndex{$repo}{'-'}};
-            }
-            $t->addRow( hRef("#Repo_$repo", $repo), '', $count  );
-            $t->setCellColSpan($t->getTableRows(), 1, 2);
-#            delete $RepoSubIndex{$repo}{'-'};
-            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( '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;', hRef("#Repo_$repo/$path", $path), $count, $warn);
-            }
-    }
-    print HTML $t->getTable;
-#DebugDumpData("RepoSubIndex", \%RepoSubIndex);
-#DebugDumpData("Repos", \%Repos);
-    #
-    #   Repo back reference
-    #
-    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 );
+    if ( $url =~ m~^#(.*?)_~ )
-    $t->addRow( 'Repository Path', 'Package Name and Original Vob Path(s)' );
-    foreach my $repo ( sort {uc($a) cmp uc($b) } keys %Repos )
+    {
-        next if ( $repo eq 'SVN' );
-        next if ( $repo eq 'UNKNOWN' );
-        my @data;
+        my $tag = $1;
-        my $t1 = new HTML::Table( -border=>1,-width=>'100%', -style=>"border-collapse:collapse" );
-        foreach my $pkgid ( @{$Repos{$repo}} )
+        foreach my $section ( keys %htmlData )
+        {
-            my $t2 = new HTML::Table(-border=>0, -padding=>0, -spacing=>0, -class=>'paddedTable' );
-            foreach my $vob ( keys %{$PackageData{$pkgid}{vobPath}} )
-            {
-                    $t2->addRow( $vob );
-            }
-            if ( $t2->getTableRows() )
+            if ( $htmlData{$section}{tag} eq $1 )
+            {
+                $url = $htmlData{$section}{file} . $url;
-                $t2->setColClass (1, 'listTitle' );
+                $target = '_Page'.$section unless ( $target );
+            }
-            $t1->addRow( linkPkg($pkgid), $t2->getTable() );
+        }
-        if ( $t1->getTableRows() )
-        {
-            $t1->setColWidth(1,'30%');
-            $t1->setColClass (1, 'listTitle' );
-        }
-        $t->addRow( anchor("Repo_$repo",$repo), $t1->getTable() );
+    }
-    $t->setColClass (1, 'listTitle' );
-    $t->setColHead(1,1);
-    print HTML $t->getTable;
-    #
-    #   Highlight packages that have not been mapped to a Repo
-    #
-    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}} )
-    {
-        my $flag_badCC;
-        my $flag_multi;
-        my $flag_badVob;
-        $flag_multi  = 1 if $PackageData{$pkgid}{MultiVob};
-        $flag_badVob = 1 if $PackageData{$pkgid}{BadVob};
-        foreach my $pvid ( @{$PackageSet{$pkgid}} )
-        {
-            $flag_badCC  = 1 if ( $ScmPackages{$pvid}{BadCCView} );
-            $flag_multi  = 1 if ( $ScmPackages{$pvid}{MultiVob} );
-            $flag_badVob = 1 if ( $ScmPackages{$pvid}{BadVob} );
-        }
-        my @data;
-        push @data, "Bad ClearCase View" if $flag_badCC;
-        push @data, "Multiple Vobs" if $flag_multi;
-        push @data, "Bad VcsTag" if $flag_badVob;
-        $t->addRow( linkPkg($pkgid), join( '<br>', @data) );
-    }
-    $t->setColClass (1, 'listTitle' );
-    print HTML $t->getTable;
-    print HTML "</body>\n";
-    print HTML "</html>\n";
-    close HTML;
-    Message ("Created: RepoMap.html");
-}
-sub hRef
-{
-    my ($url, $text, $target) = @_;
-    my $ttext = '';
     $ttext = ' TARGET="' . $target . '"' if ( defined $target );
     return ( '<a href="' . $url . '"' . $ttext . '>' . $text . '</a>' );
+}
 sub anchor
+{
     my ($name, $text) = @_;
+    my $prefix = '';
+    if ( $currentSection )
+    {
+        $prefix = $htmlData{$currentSection}{tag};
+        $prefix = $prefix . '_' if ( $prefix );
+    }
-    return ( '<a name="' . $name . '">' . $text . '</a>' );
+    return ( '<a name="' . $prefix . $name . '">' . $text . '</a>' );
+}
 sub htmlH1
+{
     my ($text) = @_;
     return '<h1>' . $text . '</h1>';
+}
-my $headerCount = 0;
-sub header
-{
-    my ($name, $text) = @_;
-    $headerCount++;
-    return htmlH1('<hr>'
-                . anchor($name, $text)
-                . anchor("Section_" . $headerCount, '')
-                . hRef("#Index"                        ,'<sup><font size="2"> [Top]</font></sup>')
-                . hRef("#Section_" . ($headerCount - 1),'<sup><font size="2"> [Prev]</font></sup>')
-                . hRef("#Section_" . ($headerCount + 1),'<sup><font size="2"> [Next]</font></sup>')
-                );
-}
 sub linkBomProject
+{
     my ($projId, $text) = @_;
     my $ref = $GBE_DM_URL . "/Default.asp?proj_id=$projId";
+#
 # Returns         :
+#
 sub startExpander
+{
-    my ($name, $text) = @_;
+    my ($HTML, $name, $text) = @_;
-    print HTML <<EXPANDER;
+    print $HTML <<EXPANDER;
 <div class="expandingMenu expandingMenuNotSelected">
     <div onclick='click_expandingMenuHeader(this,"$name")' class="expandingMenuHeader" >$text</div>
 	<div id="cssprop_$name" class="expandingMenuGroup" style="display:none;">
 EXPANDER
+}
 sub endExpander
+{
+    my ($HTML) = @_;
-    print HTML "</div></div>\n";
+    print $HTML "</div></div>\n";
+}
 #    if ( 0 )
 #    {

Subversion Repositories DevTools

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