Subversion Repositories DevTools

Rev

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

Rev 2429 Rev 2439
Line 414... Line 414...
414 
sub generateImportData
 414 
sub generateImportData
415 
{
 415 
{
416 
    my %Data;
 416 
    my %Data;
417 
    Message("Generate Data for utilties");
 417 
    Message("Generate Data for utilties");
418
418
419 
    foreach my $pkgid ( keys %PackageData )
 - 
 
420 
    {
 - 
 
421 
        my $repo = $PackageData{$pkgid}{mappedRepo};
 - 
 
422 
        my $name = $PackageData{$pkgid}{name};
 - 
 
423 
        $Data{$name}{repo} = $repo;
 - 
 
424 
#        $Data{$pkgid}{name} = $PackageData{$pkgid}{name};
 - 
 
425 
    }
 - 
 
426 
 
 - 
 
427 
    {
 419 
    {
428 
        my $file = "cc2svn.repo.txt";
 420 
        my $file = "cc2svn.repo.txt";
429 
        Message ("Create: $file");
 421 
        Message ("Create: $file");
430 
        my $fh = ConfigurationFile::New( $file );
 422 
        my $fh = ConfigurationFile::New( $file );
431 
 
 423 
 
Line 444... Line 436...
444 
            $youngestNonBuildadm = int($youngestNonBuildadm) || '9999';
 436 
            $youngestNonBuildadm = int($youngestNonBuildadm) || '9999';
445 
 
 437 
 
446 
            my $txt = sprintf ("Last:%5d, User:%5d, NonR:%5d, $svn", $youngest, $youngestNonBuildadm, $youngestNonRipple);
 438 
            my $txt = sprintf ("Last:%5d, User:%5d, NonR:%5d, $svn", $youngest, $youngestNonBuildadm, $youngestNonRipple);
447 
           $txt .= sprintf (" :: %40s -repo=%s", $name, $repo );
 439 
           $txt .= sprintf (" :: %40s -repo=%s", $name, $repo );
448 
            $fh->WriteLn($txt);
 440 
            $fh->WriteLn($txt);
- 
 
 441 
 
- 
 
 442 
            #
- 
 
 443 
            #   Save in a readable form too
- 
 
 444 
            #
- 
 
 445 
            $Data{$name}{repo} = $repo;
- 
 
 446 
            $Data{$name}{SVN} = 1 if $PackageData{$pkgid}{isSVN};
- 
 
 447 
            $Data{$name}{youngest} = $youngest;
- 
 
 448 
            $Data{$name}{ynr} = $youngestNonRipple;
- 
 
 449 
            $Data{$name}{ynb} = $youngestNonBuildadm;
- 
 
 450 
 
449 
        }
 451 
        }
450 
        $fh->Close();
 452 
        $fh->Close();
451 
    }
 453 
    }
452 
 
 454 
 
453 
    my $file = "cc2svn.repo.dat";
 455 
    my $file = "cc2svn.repo.dat";