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~ );