Subversion Repositories DevTools

Rev

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

Rev 404 Rev 1197
Line 489... Line 489...
489 
    #
 489 
    #
490 
    #   Generate an index
 490 
    #   Generate an index
491 
    #
 491 
    #
492 
    print HTML htmlH1(anchor("Index", 'Index'));
 492 
    print HTML htmlH1(anchor("Index", 'Index'));
493 
    print HTML "<dl>";
 493 
    print HTML "<dl>";
494 
    print HTML "<dd>" . hRef("#BOMIndex"                ,'Included BOM Projects');
 494 
#    print HTML "<dd>" . hRef("#BOMIndex"                ,'Included BOM Projects');
495 
    print HTML "<dd>" . hRef("#ReleaseIndex"            ,'Included Releases');
 495 
    print HTML "<dd>" . hRef("#ReleaseIndex"            ,'Included Releases');
496 
    print HTML "<dd>" . hRef("#ReleaseIndexExcluded"    ,'Excluded Releases');
 496 
    print HTML "<dd>" . hRef("#ReleaseIndexExcluded"    ,'Excluded Releases');
497 
    print HTML "<dd>" . hRef("#CompletePackageIndex"    ,'Complete Package Index');
 497 
    print HTML "<dd>" . hRef("#CompletePackageIndex"    ,'Complete Package Index');
498 
    print HTML "<dd>" . hRef("#PackageDetails"          ,'Package Conversion Details');
 498 
    print HTML "<dd>" . hRef("#PackageDetails"          ,'Package Conversion Details');
499 
    print HTML "<dd>" . hRef("#BadPackageVersions"      ,'Bad Package Versions');
 499 
    print HTML "<dd>" . hRef("#BadPackageVersions"      ,'Bad Package Versions');
Line 505... Line 505...
505 
    print HTML "</dl>\n";
 505 
    print HTML "</dl>\n";
506 
 
 506 
 
507 
    #
 507 
    #
508 
    #   BOM Projects
 508 
    #   BOM Projects
509 
    #
 509 
    #
- 
 
 510 
#    {
510 
    print HTML header('BOMIndex', 'Included BOM Projects');
 511 
#        print HTML header('BOMIndex', 'Included BOM Projects');
511 
    print HTML "BOM Projects included in processing. All branches and and SBOMS scanned for essential packages and versions\n";
 512 
#        print HTML "BOM Projects included in processing. All branches and and SBOMS scanned for essential packages and versions\n";
512 
 
 513 
#
513 
    print HTML "<dl>\n";
 514 
#        print HTML "<dl>\n";
514 
    foreach my $project_id ( sort {$ScmAllBomProjects{$a}{project_name} cmp $ScmAllBomProjects{$b}{project_name} } keys %ScmAllBomProjects )
 515 
#        foreach my $project_id ( sort {$ScmAllBomProjects{$a}{project_name} cmp $ScmAllBomProjects{$b}{project_name} } keys %ScmAllBomProjects )
515 
    {
 516 
#        {
516 
        print HTML "<dd>" . linkBomProject($project_id,$ScmAllBomProjects{$project_id}{project_name});
 517 
#            print HTML "<dd>" . linkBomProject($project_id,$ScmAllBomProjects{$project_id}{project_name});
517 
    }
 518 
#        }
518 
    print HTML "</dl>\n";
 519 
#        print HTML "</dl>\n";
519 
 
 520 
#    }
520 
 
 521 
 
521 
    #
 522 
    #
522 
    #   Release List
 523 
    #   Release List
523 
    #
 524 
    #
524 
    my %Projects;
 525 
    my %Projects;
Line 554... Line 555...
554 
 
 555 
 
555 
    my $currentChar = '';
 556 
    my $currentChar = '';
556 
    undef $t;
 557 
    undef $t;
557 
    @PackageOrder = ();
 558 
    @PackageOrder = ();
558 
    print HTML header('CompletePackageIndex', 'Complete Package Index');
 559 
    print HTML header('CompletePackageIndex', 'Complete Package Index');
559 
    print HTML "Complete list of packages. This includes 'Essential Packages' and packages that";
 560 
    print HTML "Complete list of packages. This includes 'Essential Packages' and packages that ";
560 
    print HTML "are present in Release Manager, but are not currently used.";
 561 
    print HTML "are present in Release Manager, but are not currently used.";
561 
    print HTML "<br><button type=\"button\" onclick=\"flipStyleByName('.nonessential', 'display', 'none', '')\" >Show/Hide non Essential</button>";
 562 
    print HTML "<br><button type=\"button\" onclick=\"flipStyleByName('.nonessential', 'display', 'none', '')\" >Show/Hide non Essential</button>";
562 
    print HTML "<button type=\"button\" onclick=\"flipStyleByName('.essential', 'display', 'none', '')\" >Show/Hide Essential</button>";
 563 
    print HTML "<button type=\"button\" onclick=\"flipStyleByName('.essential', 'display', 'none', '')\" >Show/Hide Essential</button>";
563
564
564 
    foreach my $pkgid ( sort {lc($ScmAllPackages{$a}) cmp lc($ScmAllPackages{$b}) } keys %ScmAllPackages )
 565 
    foreach my $pkgid ( sort {lc($ScmAllPackages{$a}) cmp lc($ScmAllPackages{$b}) } keys %ScmAllPackages )
Line 579... Line 580...
579 
        my $marker = '';
 580 
        my $marker = '';
580 
        my $class;
 581 
        my $class;
581 
        unless ( exists $PackageData{$pkgid} )
 582 
        unless ( exists $PackageData{$pkgid} )
582 
        {
 583 
        {
583 
            $packageRef = $ScmAllPackages{$pkgid};
 584 
            $packageRef = $ScmAllPackages{$pkgid};
584 
            $marker = 'Not being converted';
 585 
            $marker = 'Not being converted at this time';
585 
            $class = 'nonEssential';
 586 
            $class = 'nonEssential';
586 
        }
 587 
        }
587 
        else
 588 
        else
588 
        {
 589 
        {
589 
            push @PackageOrder, $pkgid;
 590 
            push @PackageOrder, $pkgid;
Line 1367... Line 1368...
1367 
        'tp5700_Manifest'                       => 'MREF_Package',
 1368 
        'tp5700_Manifest'                       => 'MREF_Package',
1368 
        'TRACS'                                 => 'TRACS',
 1369 
        'TRACS'                                 => 'TRACS',
1369 
 
 1370 
 
1370 
        'jboss_config'                          => 'MASS_Dev_Bus/Business' ,
 1371 
        'jboss_config'                          => 'MASS_Dev_Bus/Business' ,
1371 
        'jboss_service'                         => 'MASS_Dev_Bus/Business' ,
 1372 
        'jboss_service'                         => 'MASS_Dev_Bus/Business' ,
1372 
        'pgres'                                 => 'GMPTE2005/DataManagement' ,
 1373 
        'pgres'                                 => 'ITSO_TRACS/DataManagement' ,
1373 
        'ERGcda_imports'                        => 'MREF_Package',
 1374 
        'ERGcda_imports'                        => 'MREF_Package',
1374 
 
 1375 
 
1375 
    );
 1376 
    );
1376 
 
 1377 
 
1377 
    my %VobRename = (
 1378 
    my %VobRename = (
Line 1379... Line 1380...
1379 
        'MANUFACTURING'     => 'Manufacturing',
 1380 
        'MANUFACTURING'     => 'Manufacturing',
1380 
        'MREF_Package'      => 'MREF_Package',
 1381 
        'MREF_Package'      => 'MREF_Package',
1381 
        'MASS_Dev'          => 'MASS_Dev_Bus',
 1382 
        'MASS_Dev'          => 'MASS_Dev_Bus',
1382 
        's4k_tracs'         => 'TRACS',
 1383 
        's4k_tracs'         => 'TRACS',
1383 
        'MASS_Dev_Tools'    => 'DevTools',
 1384 
        'MASS_Dev_Tools'    => 'DevTools',
- 
 
 1385 
 
- 
 
 1386 
        'GMPTE2005'             => 'ITSO_TRACS',
- 
 
 1387 
        'GMPTE2005_obe'         => 'ITSO_TRACS',
- 
 
 1388 
        'UK_ITSO_COMPLIANT'     => 'ITSO_TRACS',
1384 
    );
 1389 
    );
1385 
 
 1390 
 
1386 
    # default is 1
 1391 
    # default is 1
1387 
    my %VobDepth = (
 1392 
    my %VobDepth = (
1388 
        'DPG_SWBase'                => 2,
 1393 
        'DPG_SWBase'                => 2,
1389 
        'GMPTE2005'                 => 2,
 1394 
        'ITSO_TRACS'                => 2,
1390 
        'LinuxDevices'               => 2,
 1395 
        'LinuxDevices'              => 2,
1391 
        'MASS_Dev_Bus'              => 2,
 1396 
        'MASS_Dev_Bus'              => 2,
1392 
        'MASS_Dev_Infra'            => 2,
 1397 
        'MASS_Dev_Infra'            => 2,
1393 
        'MPR'                       => 2,
 1398 
        'MPR'                       => 2,
1394 
        'ProjectCD'                 => 2,
 1399 
        'ProjectCD'                 => 2,
1395 
        'TRACS'                     => 2,
 1400 
        'TRACS'                     => 2,
1396 
        'VIX-PAYMENTS'              => 2,
 1401 
        'VIX-PAYMENTS'              => 2,
1397 
        'WINCE500'                  => 2,
 1402 
        'WINCE500'                  => 2,
1398 
        'LinuxDevices/linux'         => 3,
 1403 
        'LinuxDevices/linux'        => 3,
1399 
        'DAMS_mos_diag'             => 2,
 1404 
        'DAMS_mos_diag'             => 2,
1400 
        'MASS_Dev_Bus/Financial'    => 3,
 1405 
        'MASS_Dev_Bus/Financial'    => 3,
1401 
    );
 1406 
    );
1402 
 
 1407 
 
1403 
    return ('SVN') if ( $PackageData{$pkgid}{isSVN} );
 1408 
    return ('SVN') if ( $PackageData{$pkgid}{isSVN} );
Line 1406... Line 1411...
1406 
    # If only one VOB
 1411 
    # If only one VOB
1407 
    #
 1412 
    #
1408 
    my $path = '';
 1413 
    my $path = '';
1409 
    unless ( $PackageData{$pkgid}{BadVob} || $PackageData{$pkgid}{MultiVob} )
 1414 
    unless ( $PackageData{$pkgid}{BadVob} || $PackageData{$pkgid}{MultiVob} )
1410 
    {
 1415 
    {
1411 
        my @paths = keys %{$PackageData{$pkgid}{vobPath}};
 1416 
        my @paths = reverse sort keys %{$PackageData{$pkgid}{vobPath}};
1412 
        $path = $paths[0] if exists $paths[0];
 1417 
        $path = $paths[0] if exists $paths[0];
1413 
    }
 1418 
    }
1414 
 
 1419 
 
1415 
    #
 1420 
    #
1416 
    #   Some path cleanup
 1421 
    #   Some path cleanup
Line 1429... Line 1434...
1429 
    #
 1434 
    #
1430 
    foreach my $name ( keys %VobRename  )
 1435 
    foreach my $name ( keys %VobRename  )
1431 
    {
 1436 
    {
1432 
        my $newName = $VobRename{$name};
 1437 
        my $newName = $VobRename{$name};
1433 
        $path =~ s~^/$name/~/$newName/~i;
 1438 
        $path =~ s~^/$name/~/$newName/~i;
- 
 
 1439 
        $path =~ s~^/$name$~/$newName~i;
1434 
    }
 1440 
    }
1435 
 
 1441 
 
1436 
    return $Named{$name}  if ( exists $Named{$name} );
 1442 
    return $Named{$name}  if ( exists $Named{$name} );
1437 
 
 1443 
 
1438 
    return 'DevTools/ant'  if ( $name =~ m~^ant~ );
 1444 
    return 'DevTools/ant'  if ( $name =~ m~^ant~ );