Subversion Repositories DevTools

Rev

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

Rev 3413 Rev 3423
Line 476... Line 476...
476 
                {
 476 
                {
477 
                    my $pvid = $row[0];
 477 
                    my $pvid = $row[0];
478 
                    my $dpvid = $row[1];
 478 
                    my $dpvid = $row[1];
479 
                    push @StrayPackages, $dpvid;
 479 
                    push @StrayPackages, $dpvid;
480 
                    push @{$Packages{$dpvid}{usedBy}}, $pvid;
 480 
                    push @{$Packages{$dpvid}{usedBy}}, $pvid;
481 
                    $Packages{$pvid}{slp} = 1 unless exists $Packages{$pvid}{tlp};
 481 
                    $Packages{$dpvid}{slp} = 1 unless exists $Packages{$dpvid}{tlp};
482 
 
 482 
 
483 
                    print join (',','GetDepends',@row), "\n" if ($opt_verbose > 2);
 483 
                    print join (',','GetDepends',@row), "\n" if ($opt_verbose > 2);
484 
                }
 484 
                }
485 
            }
 485 
            }
486 
            $sth->finish();
 486 
            $sth->finish();
Line 610... Line 610...
610 
 
 610 
 
611 
    #
 611 
    #
612 
    #   Start the log file
 612 
    #   Start the log file
613 
    Log ("TEST Mode Enabled") if $opt_test;
 613 
    Log ("TEST Mode Enabled") if $opt_test;
614 
    Log ("QuarantinePath: $quarantineInstance");
 614 
    Log ("QuarantinePath: $quarantineInstance");
615 
    Log ("Config: $_ = $config{$_}") foreach ( keys %config );
 615 
    Log ("Config: $_ = $config{$_}") foreach ( sort keys %config );
616 
    Log ("Ignore: $_") foreach ( keys %retainPkgs );
 616 
    Log ("Ignore: $_") foreach ( sort keys %retainPkgs );
617 
 
 617 
 
618 
    #
 618 
    #
619 
    # Create a 'nice' symlink to the latest log file
 619 
    # Create a 'nice' symlink to the latest log file
620 
    my $logLatest = join('/', $config{logBase}, 'latest');
 620 
    my $logLatest = join('/', $config{logBase}, 'latest');
621 
    unlink ( $logLatest );
 621 
    unlink ( $logLatest );