Subversion Repositories DevTools

Rev

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

Rev 1042 Rev 1044
Line 189... Line 189...
189 
# Returns         : Nothing
 189 
# Returns         : Nothing
190 
#
 190 
#
191 
sub processReleaseList
 191 
sub processReleaseList
192 
{
 192 
{
193 
    #
 193 
    #
- 
 
 194 
    #   Is Release List Processing active
- 
 
 195 
    #   Can configure blat to disable release sync
- 
 
 196 
    #   This will then allow 'new' packages to be sent
- 
 
 197 
    #
- 
 
 198 
    if ( $conf->{maxpackages} == 0 || $conf->{'synctime'} <= 0)
- 
 
 199 
    {
- 
 
 200 
        $logger->verbose2("processReleaseList disabled");
- 
 
 201 
        return;
- 
 
 202 
    }
- 
 
 203 
 
- 
 
 204 
    #
194 
    #   Time to perform the scan
 205 
    #   Time to perform the scan
195 
    #   Will do at startup and every time period there after
 206 
    #   Will do at startup and every time period there after
196 
    #
 207 
    #
197 
    my $wtime = $releaseScanMode ? $conf->{'syncretry'} : $conf->{'synctime'};
 208 
    my $wtime = $releaseScanMode ? $conf->{'syncretry'} : $conf->{'synctime'};
198 
    return unless ( $now > ($lastReleaseScan + $wtime ));
 209 
    return unless ( $now > ($lastReleaseScan + $wtime ));
Line 459... Line 470...
459 
    send_pkgs:
 470 
    send_pkgs:
460 
    while ( (my ($pname, $pvers)) = each %{$needPkgList} )
 471 
    while ( (my ($pname, $pvers)) = each %{$needPkgList} )
461 
    {
 472 
    {
462 
        while ( (my ($pver, $pdata) ) = each %{$pvers} )
 473 
        while ( (my ($pver, $pdata) ) = each %{$pvers} )
463 
        {
 474 
        {
464 
            transferPackage ($pname, $pver, $pdata);
 - 
 
465 
            if ( --$txcount <= 0 )
 475 
            if ( --$txcount <= 0 )
466 
            {
 476 
            {
467 
                $logger->warn("Max transfer count exceeded");
 477 
                $logger->warn("Max transfer count exceeded");
468 
                $lastReleaseScan = 0;
 478 
                $lastReleaseScan = 0;
469 
                last send_pkgs;
 479 
                last send_pkgs;
470 
            }
 480 
            }
- 
 
 481 
            transferPackage ($pname, $pver, $pdata);
471 
        }
 482 
        }
472 
    }
 483 
    }
473 
 
 484 
 
474 
    #
 485 
    #
475 
    #   Delete packages that have been identified as excess
 486 
    #   Delete packages that have been identified as excess
Line 477... Line 488...
477 
    delete_pkgs:
 488 
    delete_pkgs:
478 
    while ( (my ($pname, $pvers)) = each %{$excessPkgList} )
 489 
    while ( (my ($pname, $pvers)) = each %{$excessPkgList} )
479 
    {
 490 
    {
480 
        while ( (my ($pver, $pdata) ) = each %{$pvers} )
 491 
        while ( (my ($pver, $pdata) ) = each %{$pvers} )
481 
        {
 492 
        {
482 
            deletePackage ($pname, $pver, $pdata);
 - 
 
483 
            if ( --$txcount <= 0 )
 493 
            if ( --$txcount <= 0 )
484 
            {
 494 
            {
485 
                $logger->warn("Max transfer count exceeded");
 495 
                $logger->warn("Max transfer count exceeded");
486 
                $lastReleaseScan = 0;
 496 
                $lastReleaseScan = 0;
487 
                last delete_pkgs;
 497 
                last delete_pkgs;
488 
            }
 498 
            }
- 
 
 499 
            deletePackage ($pname, $pver, $pdata);
489 
        }
 500 
        }
490 
    }
 501 
    }
491 
 
 502 
 
492 
    #
 503 
    #
493 
    #   Send package list to the target
 504 
    #   Send package list to the target