Subversion Repositories DevTools

Rev

Rev 7367 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7367 Rev 7510
Line 80... Line 80...
80 
#   qdirAge = 0 => No local quarantine
 80 
#   qdirAge = 0 => No local quarantine
81 
#
 81 
#
82 
my %config = (
 82 
my %config = (
83 
    'retain'        => '31',
 83 
    'retain'        => '31',
84 
    'qdirAge'       => '90',
 84 
    'qdirAge'       => '90',
- 
 
 85 
    'snapAge'       => '10',
85 
    'retainNoRm'    => '31',
 86 
    'retainNoRm'    => '31',
86 
    'quarantine'    => '/export/devl/quarantine',
 87 
    'quarantine'    => '/export/devl/quarantine',
87 
    'dpkg_archive'  => '/export/devl/dpkg_archive',
 88 
    'dpkg_archive'  => '/export/devl/dpkg_archive',
88 
    'logBase'       => '/export/devl/dpkg_archive/.dpkg_archive/quarantinelog',
 89 
    'logBase'       => '/export/devl/dpkg_archive/.dpkg_archive/quarantinelog',
89 
    'verbose'       => '0',
 90 
    'verbose'       => '0',
Line 314... Line 315...
314 
                {
 315 
                {
315 
                    my $rtag_id =$row[3];
 316 
                    my $rtag_id =$row[3];
316 
                    my $proj_id = $row[2];
 317 
                    my $proj_id = $row[2];
317 
                    my $official = $row[4];
 318 
                    my $official = $row[4];
318 
                    my $age = defined($row[5]) ? $row[5] : $row[6];
 319 
                    my $age = defined($row[5]) ? $row[5] : $row[6];
- 
 
 320 
 
- 
 
 321 
                    # Only retain recent snapshot
- 
 
 322 
                    if ($official eq 'S' && $age > $config{snapAge}) {
- 
 
 323 
                        next;
- 
 
 324 
                    }
319
325
320 
#if ( $official eq 'Y' ) {
 326 
#if ( $official eq 'Y' ) {
321 
#    Information("Closed Age ($proj_id) : $age : $row[0], $row[1]");
 327 
#    Information("Closed Age ($proj_id) : $age : $row[0], $row[1]");
322 
#}
 328 
#}
323 
#                    if ( $official eq 'Y' && $age && $age > 300 )
 329 
#                    if ( $official eq 'Y' && $age && $age > 300 )
Line 468... Line 474...
468 
 
 474 
 
469 
    my $limit = $opt_limit ? " AND rownum <= $opt_limit" : '';
 475 
    my $limit = $opt_limit ? " AND rownum <= $opt_limit" : '';
470 
    my $m_sqlstr = "SELECT DISTINCT " .
 476 
    my $m_sqlstr = "SELECT DISTINCT " .
471 
                        "rc.PV_ID, " .                                          #[0]
 477 
                        "rc.PV_ID, " .                                          #[0]
472 
                        "rt.RTAG_ID, " .                                        #[1]
 478 
                        "rt.RTAG_ID, " .                                        #[1]
473 
                        "prj.PROJ_ID " .                                        #[2]
 479 
                        "prj.PROJ_ID, " .                                       #[2]
- 
 
 480 
                        "rt.official, " .                                       #[3]
- 
 
 481 
                        "TRUNC (SYSDATE - rt.official_stamp),".                 #[4]
- 
 
 482 
                        "TRUNC (SYSDATE - rt.created_stamp)" .                  #[5]
474 
                   " FROM RELEASE_MANAGER.RELEASE_CONTENT rc, ".
 483 
                   " FROM RELEASE_MANAGER.RELEASE_CONTENT rc, ".
475 
                         "release_manager.release_tags rt,".
 484 
                         "release_manager.release_tags rt,".
476 
                         "release_manager.projects prj" .
 485 
                         "release_manager.projects prj" .
477 
                   " WHERE prj.PROJ_ID = rt.PROJ_ID" .
 486 
                   " WHERE prj.PROJ_ID = rt.PROJ_ID" .
478 
                   "   and rt.RTAG_ID = rc.RTAG_ID" .
 487 
                   "   and rt.RTAG_ID = rc.RTAG_ID" .
Line 488... Line 497...
488 
        {
 497 
        {
489 
            if ( $sth->rows )
 498 
            if ( $sth->rows )
490 
            {
 499 
            {
491 
                while ( @row = $sth->fetchrow_array )
 500 
                while ( @row = $sth->fetchrow_array )
492 
                {
 501 
                {
- 
 
 502 
                    my $pvid = $row[0];
- 
 
 503 
                    my $rtag_id = $row[1];
- 
 
 504 
                    my $proj_id = $row[2];
- 
 
 505 
                    my $official = $row[3];
- 
 
 506 
                    my $age = defined($row[4]) ? $row[4] : $row[6];
- 
 
 507 
 
- 
 
 508 
                    # Only retain recent snapshot
- 
 
 509 
                    if ($official eq 'S' && $age > $config{snapAge}) {
- 
 
 510 
                        next;
- 
 
 511 
                    }
- 
 
 512 
 
493 
                    $count++;
 513 
                    $count++;
494 
                    print join (',',@row), "\n" if ($opt_verbose > 2);
 514 
                    print join (',',@row), "\n" if ($opt_verbose > 2);
495 
                    my $pvid = $row[0];
 - 
 
496 
                    $Packages{$pvid}{tlp} = 1;
 515 
                    $Packages{$pvid}{tlp} = 1;
497 
                    push @StrayPackages, $pvid;
 516 
                    push @StrayPackages, $pvid;
498
517
499 
 
 518 
 
500 
                    my $rtag_id = $row[1];
 - 
 
501 
                    push @{$Packages{$pvid}{release}}, $rtag_id;
 519 
                    push @{$Packages{$pvid}{release}}, $rtag_id;
502 
 
 520 
 
503 
                    my $proj_id = $row[2];
 - 
 
504 
                    push @{$Packages{$pvid}{projects}}, $proj_id
 521 
                    push @{$Packages{$pvid}{projects}}, $proj_id
505 
                        unless (grep {$_ eq $proj_id} @{$Packages{$pvid}{projects}});
 522 
                        unless (grep {$_ eq $proj_id} @{$Packages{$pvid}{projects}});
506 
 
 523 
 
507 
                    if ( $opt_limit )
 524 
                    if ( $opt_limit )
508 
                    {
 525 
                    {