$lock_for_pid, $transactional);
# global vars
-$ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin";
+$ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin:/org/wanna-build/bin/";
$verbose = 0;
$mail_logs = "";
@curr_time = gmtime;
if !isin( $list_state, qw(needs-build building uploaded
built build-attempted failed installed dep-wait
not-for-us all failed-removed
- install-wait reupload-wait));} },
+ install-wait reupload-wait bd-uninstallable));} },
# options with args
dist =>
{ short => "d", arg => \$distribution,
if (exists $interesting_packages{$key}) {
$interesting_packages{$key} = $reason;
} else {
- print "TODO: edos reported a package we do not care about now" if $verbose;
+ #print "TODO: edos reported a package we do not care about now\n" if $verbose;
}
}
close EDOS;
for my $key (keys %interesting_packages) {
my $pkg = $db{$key};
my $change =
- (defined $interesting_packages{$key} && $pkg->{'State'} eq 'Needs-Build') ||
- (not defined $interesting_packages{$key} && $pkg->{'State'} eq 'BD-Uninstallable');
+ (defined $interesting_packages{$key} and $pkg->{'State'} eq 'Needs-Build') ||
+ (not defined $interesting_packages{$key} and $pkg->{'State'} eq 'BD-Uninstallable');
if ($change) {
if (defined $interesting_packages{$key}) {
change_state( \$pkg, 'BD-Uninstallable' );