use File::Copy;
use DBI;
use lib '/org/wanna-build/bin';
+use lib '/org/wanna-build/lib';
use WannaBuild;
use YAML::Tiny;
use Data::Dumper;
use String::Format;
use Date::Parse;
use List::Util qw[max];
+use Dpkg::Version qw(vercmp); # TODO: change this for running with squeeze dpkg
our ($verbose, $mail_logs, $list_order, $list_state,
$curr_date, $op_mode, $user, $real_user, $distribution,
$build_priority, %new_vers, $binNMUver, %merge_srcvers, %merge_binsrc,
$printformat, $ownprintformat, $privmode
);
+our $Pas = '/org/buildd.debian.org/etc/packages-arch-specific/Packages-arch-specific';
+our $simulate = 0;
# global vars
$ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin:/org/wanna-build/bin/";
my %options =
(# flags
+ simulate => { flag => \$simulate }, # this is not supported by all operations (yet)!
verbose => { short => "v", flag => \$verbose },
override => { short => "o", flag => \$opt_override },
"create-db" => { flag => \$opt_create_db },
"pretend-avail" => { short => "p", mode => "pretend-avail" },
"merge-all" => { mode => "merge-all" },
"merge-all-secondary" => { mode => "merge-all-secondary" },
+ "merge-v3" => { mode => "merge-v3" },
info => { short => "i", mode => "info" },
'binNMU' => { mode => 'set-binary-nmu', arg => \$binNMUver,
code => sub { die "Invalid binNMU version: $binNMUver\n"
} },
"format" => { arg => \$printformat },
"own-format" => { arg => \$ownprintformat },
+ "Pas" => { arg => \$Pas },
# special actions
export => { arg => \$export_to, mode => "export" },
import => { arg => \$import_from, mode => "import" },
parse_quinn_diff(0);
@ARGV = ( $ARGS[2] );
my $srcs = parse_sources(1);
- call_edos_depcheck( $ARGS[0], $srcs );
+ call_edos_depcheck( {'arch' => $arch, 'pkgs' => ($ARGS[0]), 'srcs' => $srcs });
last SWITCH;
};
/^merge-all-secondary/ && do {
parse_quinn_diff(0);
@ARGV = ( $ARGS[2] );
my $srcs = parse_sources(1);
- call_edos_depcheck( $ARGS[3], $srcs );
+ call_edos_depcheck( {'arch' => $arch, 'pkgs' => ($ARGS[3]), 'srcs' => $srcs });
last SWITCH;
};
+ /^merge-v3/ && do {
+ die "This operation is restricted to admin users\n"
+ if (defined @conf::admin_users and !isin( $real_user, @conf::admin_users) and !$simulate);
+ # call with installed-packages+ . installed-sources+ [ . available-for-build-packages+ ]
+ # in case available-for-build-packages is not specified, installed-packages are used
+ lock_table() unless $simulate;
+ my $replacemap = { '%ARCH%' => $arch, '%SUITE%' => $distribution };
+ map { my $k = $_; grep { $k =~ s,$_,$replacemap->{$_}, } keys %{$replacemap}; $_ = $k; } @ARGV;
+ my @ipkgs = &parse_argv( \@ARGV, '.');
+ my @isrcs = &parse_argv( \@ARGV, '.');
+ my @bpkgs = &parse_argv( \@ARGV, '.');
+ use WB::QD;
+ my $srcs = WB::QD::readsourcebins($arch, $Pas, \@isrcs, \@ipkgs);
+ parse_all_v3($$srcs);
+ @bpkgs = @ipkgs unless @bpkgs;
+ call_edos_depcheck( {'arch' => $arch, 'pkgs' => @bpkgs, 'srcs' => $$srcs, 'depwait' => 1 });
+ last SWITCH;
+ };
/^import/ && do {
die "This operation is restricted to admin users\n"
if (defined @conf::admin_users and
S Package state
s Time in this state in full seconds since epoch
t time of state change
+T time since state change
u Builder (e.g. buildd_mipsel-rem)
v Package version
V full Package version (i.e. with +b.., = %v%{+b}B%B
'B' => make_fmt( sub { return $pkg->{'binary_nmu_version'} if defined $pkg->{'binary_nmu_version'}; }, $pkg, $var),
'd' => make_fmt( $pkg->{'distribution'}, $pkg, $var),
't' => make_fmt( $pkg->{'state_change'}, $pkg, $var),
+ 'T' => make_fmt( sub { return seconds2time(time() - floor(str2time($pkg->{'state_change'}))); }, $pkg, $var),
'o' => make_fmt( $pkg->{'successtime'}, $pkg, $var),
'O' => make_fmt( sub { return seconds2time ( $pkg->{'successtime'}); }, $pkg, $var),
'q' => make_fmt( $pkg->{'anytime'}, $pkg, $var),
return $result;
}
+
+sub greparch {
+ my ($gapkglong, $gaarch) = @_;
+ my ($gapkg, $gaarchs) = split(/ \[/, $gapkglong);
+ if ($gaarchs) {
+ $_ = $gapkg;
+ chop($gaarchs); # take away the ]
+ my @gaarches = split(/ /, $gaarchs);
+ if (substr($gaarches[0], 0, 1) eq '!') {
+ return 0 if grep /^!$gaarch$/, @gaarches;
+ } else { # positive case
+ return 0 unless grep /^$gaarch$/, @gaarches;
+ }
+ };
+ return 1;
+}
+sub filterarch {
+ my $faarch = $_[1];
+ return join(', ', grep { &greparch($_, $faarch) } split(/, ?/, $_[0]));
+}
+
+sub wb_edos_builddebcheck {
+# Copyright (C) 2008 Ralf Treinen <treinen@debian.org>
+# This program is free software: you can redistribute it and/or modify it under
+# the terms of the GNU General Public License as published by the Free Software
+# Foundation, version 2 of the License.
+# integrated into wanna-builds code by Andreas Barth 2010
+
+ my $args = shift;
+ my $sourceprefix="source---";
+ my $architecture=$args->{'arch'};
+ my $edosoptions = "-failures -explain -quiet";
+ my @packagefiles = $args->{'pkgs'};
+ my $sourcesfile = $args->{'src'};
+
+ my $packagearch="";
+ foreach my $packagefile (@packagefiles) {
+ open(P,$packagefile);
+ while (<P>) {
+ next unless /^Architecture/;
+ next if /^Architecture:\s*all/;
+ /Architecture:\s*([^\s]*)/;
+ if ($packagearch eq "") {
+ $packagearch = $1;
+ } elsif ( $packagearch ne $1) {
+ return "Package file contains different architectures: $packagearch, $1";
+ }
+ }
+ close P;
+ }
+
+ if ( $architecture eq "" ) {
+ if ( $packagearch eq "" ) {
+ return "No architecture option given, " .
+ "and no non-all architecture found in the Packages file";
+ } else {
+ $architecture = $packagearch;
+ }
+ } else {
+ if ( $packagearch ne "" & $architecture ne $packagearch) {
+ return "Architecture option is $architecture ".
+ "but the package file contains architecture $packagearch";
+ }
+ }
+
+ print "calling: edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @packagefiles)."\n";
+ open(RESULT, '-|',
+ "edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @packagefiles));
+
+ my $explanation="";
+ my $result={};
+ my $binpkg="";
+
+ while (<RESULT>) {
+# source---pulseaudio (= 0.9.15-4.1~bpo50+1): FAILED
+# source---pulseaudio (= 0.9.15-4.1~bpo50+1) depends on missing:
+# - libltdl-dev (>= 2.2.6a-2)
+# source---libcanberra (= 0.22-1~bpo50+1): FAILED
+# source---libcanberra (= 0.22-1~bpo50+1) depends on missing:
+# - libltdl-dev
+# - libltdl7-dev (>= 2.2.6)
+
+ if (/^\s+/) {
+ s/^(\s*)$sourceprefix(.*)depends on/$1$2build-depends on/o;
+ s/^(\s*)$sourceprefix(.*) and (.*) conflict/$1$2 build-conflicts with $3/o;
+ $explanation .= $_;
+ } else {
+ if (/^$sourceprefix(.*) \(.*\): FAILED/o) {
+ $result->{$binpkg} = $explanation if $binpkg;
+ $explanation = "";
+ $binpkg = $1;
+ } elsif (/^(depwait---.*) \(.*\): FAILED/o) {
+ $result->{$binpkg} = $explanation if $binpkg;
+ $explanation = "";
+ $binpkg = $1;
+ } else { # else something broken is happening
+ #print "ignoring $_\n";
+ 1;
+ }
+ }
+ }
+
+ close RESULT;
+ $result->{$binpkg} = $explanation if $binpkg;
+ return $result;
+
+}
+
+
sub call_edos_depcheck {
- my $packagesfile = shift;
- my $srcs = shift;
+ my $args = shift;
+ my $srcs = $args->{'srcs'};
my $key;
- return if defined ($conf::distributions{$distribution}{noadw});
+ return if defined ($conf::distributions{$distribution}{noadw}) && not defined $args->{'depwait'};
# We need to check all of needs-build, as any new upload could make
# something in needs-build have uninstallable deps
# We also check everything in bd-uninstallable, as any new upload could
# make that work again
- my %interesting_packages;
+ my (%interesting_packages, %interesting_packages_depwait);
my $db = get_all_source_info();
foreach $key (keys %$db) {
my $pkg = $db->{$key};
- if (defined $pkg and isin($pkg->{'state'}, qw/Needs-Build BD-Uninstallable/)) {
+ if (defined $pkg and isin($pkg->{'state'}, qw/Needs-Build BD-Uninstallable/) and not defined ($conf::distributions{$distribution}{noadw})) {
$interesting_packages{$key} = undef;
}
+ if (defined $pkg and isin($pkg->{'state'}, qw/Dep-Wait/) and defined $args->{'depwait'}) {
+ $interesting_packages_depwait{$key} = undef;
+ # we always check for BD-Uninstallability in depwait - could be that depwait is satisfied but package is uninstallable
+ $interesting_packages{$key} = undef unless defined ($conf::distributions{$distribution}{noadw});
+ }
}
#print "I would look at these sources with edos-depcheck:\n";
#print join " ", keys %interesting_packages,"\n";
+ return unless %interesting_packages || %interesting_packages_depwait;
- my $tmpfile_pattern = "/tmp/wanna-build-interesting-sources-$distribution.$$-";
- my ($tmpfile, $i);
- for( $i = 0;; ++$i ) {
- $tmpfile = $tmpfile_pattern . $i;
- last if ! -e $tmpfile;
- }
-
- open SOURCES, '>', $tmpfile or die "Could not open temporary file $tmpfile\n";
+ my $tmpfile_pattern = "/tmp/wanna-build-interesting-sources-$distribution.$$-XXXXX";
+ use File::Temp qw/ tempfile /;
+ my ($SOURCES, $tmpfile) = tempfile( $tmpfile_pattern, UNLINK => 1 );
for my $key (keys %interesting_packages) {
my $pkg = $db->{$key};
- print SOURCES "Package: $key\n";
- print SOURCES "Version: $pkg->{'version'}\n";
- print SOURCES "Build-Depends: $srcs->{$key}{'dep'}\n" if $srcs->{$key}{'dep'};
- print SOURCES "Build-Conflicts: $srcs->{$key}{'conf'}\n" if $srcs->{$key}{'conf'};
- print SOURCES "Architecture: all\n";
- print SOURCES "\n";
+ # we print the source files as binary ones (with "source---"-prefixed),
+ # so we can try if these "binary" packages are installable.
+ # If such a "binary" package is installable, the corresponding source package is buildable.
+ print $SOURCES "Package: source---$key\n";
+ print $SOURCES "Version: $pkg->{'version'}\n";
+ my $t = &filterarch($srcs->{$key}{'dep'} || $srcs->{$key}{'depends'}, $arch);
+ print $SOURCES "Depends: $t\n" if $t;
+ my $u = &filterarch($srcs->{$key}{'conf'} || $srcs->{$key}{'conflicts'}, $arch);
+ print $SOURCES "Conflicts: $u\n" if $u;
+ print $SOURCES "Architecture: all\n";
+ print $SOURCES "\n";
}
- close SOURCES;
-
- if (open(EDOS,"-|","wb-edos-builddebcheck", "-a", $arch, $packagesfile, $tmpfile))
- {
- local($/) = ""; # read in paragraph mode
- while( <EDOS> ) {
- my( $key, $reason ) ;
- s/\s*$//m;
- /^Package:\s*(\S+)$/mi and $key = $1;
- /^Failed-Why:(([^\n]|\n ([^\n]|\.))*)$/msi and $reason = $1;
- $reason =~ s/^\s*//mg;
- $reason ||= 'No reason given by edos-debcheck';
+ for my $key (keys %interesting_packages_depwait) {
+ my $pkg = $db->{$key};
+ # we print the source files as binary ones (with "depwait---"-prefixed),
+ # so we can try if these "binary" packages are installable.
+ # If such a "binary" package is installable, the corresponding source package goes out of depwait
+ print $SOURCES "Package: depwait---$key\n";
+ print $SOURCES "Version: $pkg->{'version'}\n";
+ print $SOURCES "Depends: $pkg->{'depends'}\n";
+ print $SOURCES "Architecture: all\n";
+ print $SOURCES "\n";
+ }
+ close $SOURCES;
+ my $edosresults = wb_edos_builddebcheck({'arch' => $args->{'arch'}, 'pkgs' => $args->{'pkgs'}, 'src' => $tmpfile});
+ if (ref($edosresults) eq 'HASH') {
+ foreach my $key (grep { $_ !~ /^depwait---/ } keys %$edosresults) {
if (exists $interesting_packages{$key}) {
- $interesting_packages{$key} = $reason;
+ $interesting_packages{$key} = $edosresults->{$key};
} else {
#print "TODO: edos reported a package we do not care about now\n" if $verbose;
}
- }
- close EDOS;
+ }
+ foreach my $key (grep { $_ =~ /^depwait---/ } keys %$edosresults) {
+ $key =~ /^depwait---(.*)/ and $key = $1;
+ if (exists $interesting_packages_depwait{$key}) {
+ $interesting_packages_depwait{$key} = $edosresults->{"depwait---".$key};
+ } else {
+ #print "TODO: edos reported a package we do not care about now\n" if $verbose;
+ }
+ }
} else {
- print "ERROR: Could not run wb-edos-builddebcheck. I am continuing, assuming\n" .
- "all packages have installable build-dependencies."
+ # if $edosresults isn't an hash, then something went wrong and the string is the error message
+ print "ERROR: Could not run wb-edos-builddebcheck. I am continuing, assuming\n" .
+ "all packages have installable build-dependencies."
}
unlink( $tmpfile );
for my $key (keys %interesting_packages) {
+ next if defined $interesting_packages_depwait{$key};
my $pkg = $db->{$key};
my $change =
(defined $interesting_packages{$key} and $pkg->{'state'} eq 'Needs-Build') ||
}
}
if ($change) {
- log_ta( $pkg, "--merge-all" );
- print "edos-builddebchange changed state of ${key}_$pkg->{'version'} to $pkg->{'state'}\n" if $verbose;
+ log_ta( $pkg, "--merge-all (edos)" ) unless $simulate;
+ print "edos-builddebchange changed state of ${key}_$pkg->{'version'} to $pkg->{'state'}\n" if $verbose || $simulate;
}
if ($change || $problemchange) {
- update_source_info($pkg);
+ update_source_info($pkg) unless $simulate;
}
}
+
+ for my $key (keys %interesting_packages_depwait) {
+ if ($interesting_packages_depwait{$key}) {
+ print "dependency on $key not fullfiled yet\n" if $verbose || $simulate;
+ next;
+ }
+ my $pkg = $db->{$key};
+ if (defined $interesting_packages{$key}) {
+ change_state( \$pkg, 'BD-Uninstallable' );
+ $pkg->{'bd_problem'} = $interesting_packages{$key};
+ } else {
+ change_state( \$pkg, 'Needs-Build' );
+ }
+ log_ta( $pkg, "edos_depcheck: depwait" ) unless $simulate;
+ update_source_info($pkg) unless $simulate;
+ print "edos-builddebchange changed state of ${key}_$pkg->{'version'} to $pkg->{'state'}\n" if $verbose || $simulate;
+ }
}
sub usage {
sub get_readonly_source_info {
my $name = shift;
# SELECT FLOOR(EXTRACT('epoch' FROM age(localtimestamp, '2010-01-22 23:45')) / 86400) -- change to that?
- my $q = 'SELECT rel, priority, state_change, permbuildpri, section, buildpri, failed, state, binary_nmu_changelog, bd_problem, version, package, distribution, installed_version, notes, failed_category, builder, old_failed, previous_state, binary_nmu_version, depends, extract(days from date_trunc(\'days\', now() - state_change)) as state_days, successtime.build_time as successtime, anytime.build_time as anytime FROM ' .
- table_name() .
- ' left join ( '.
- 'select distinct on (package, distribution) build_time, package, distribution from '.pkg_history_table_name().' where result = \'successful\' order by package, distribution, timestamp desc '.
- ' ) as successtime using (package, distribution) '.
- ' left join ( '.
- 'select distinct on (package, distribution) build_time, package, distribution from '.pkg_history_table_name().' order by package, distribution, timestamp desc'.
- ' ) as anytime using (package, distribution) '.
- ' WHERE package = ? AND distribution = ?';
+ my $q = "SELECT rel, priority, state_change, permbuildpri, section, buildpri, failed, state, binary_nmu_changelog, bd_problem, version, package, distribution, installed_version, notes, failed_category, builder, old_failed, previous_state, binary_nmu_version, depends, extract(days from date_trunc('days', now() - state_change)) as state_days"
+ . ", (SELECT max(build_time) FROM ".pkg_history_table_name()." WHERE pkg_history.package = packages.package AND pkg_history.distribution = packages.distribution AND result = 'successful') AS successtime"
+ . ", (SELECT max(build_time) FROM ".pkg_history_table_name()." WHERE pkg_history.package = packages.package AND pkg_history.distribution = packages.distribution ) AS anytime"
+ . " FROM " . table_name()
+ . ' WHERE package = ? AND distribution = ?';
my $pkg = $dbh->selectrow_hashref( $q,
undef, $name, $distribution);
return $pkg;
sub get_all_source_info {
my %options = @_;
- my $q = 'SELECT rel, priority, state_change, permbuildpri, section, buildpri, failed, state, binary_nmu_changelog, bd_problem, version, package, distribution, installed_version, notes, failed_category, builder, old_failed, previous_state, binary_nmu_version, depends, extract(days from date_trunc(\'days\', now() - state_change)) as state_days, successtime.build_time as successtime, anytime.build_time as anytime FROM ' .
- table_name() .
- ' left join ( '.
- 'select distinct on (package, distribution) build_time, package, distribution from '.pkg_history_table_name().' where result = \'successful\' order by package, distribution, timestamp desc '.
- ' ) as successtime using (package, distribution) '.
- ' left join ( '.
- 'select distinct on (package, distribution) build_time, package, distribution from '.pkg_history_table_name().' order by package, distribution, timestamp desc'.
- ' ) as anytime using (package, distribution) '
- . ' WHERE 1=1 ';
+ my $q = "SELECT rel, priority, state_change, permbuildpri, section, buildpri, failed, state, binary_nmu_changelog, bd_problem, version, package, distribution, installed_version, notes, failed_category, builder, old_failed, previous_state, binary_nmu_version, depends, extract(days from date_trunc('days', now() - state_change)) as state_days"
+# . ", (SELECT max(build_time) FROM ".pkg_history_table_name()." WHERE pkg_history.package = packages.package AND pkg_history.distribution = packages.distribution AND result = 'successful') AS successtime"
+# . ", (SELECT max(build_time) FROM ".pkg_history_table_name()." WHERE pkg_history.package = packages.package AND pkg_history.distribution = packages.distribution ) AS anytime"
+ . ", successtime.build_time as successtime, anytime.build_time as anytime"
+ . " FROM " . table_name()
+ . " left join ( "
+ . "select distinct on (package, distribution) build_time, package, distribution from ".pkg_history_table_name()." where result = 'successful' order by package, distribution, timestamp "
+ . " ) as successtime using (package, distribution) "
+ . " left join ( "
+ . "select distinct on (package, distribution) build_time, package, distribution from ".pkg_history_table_name()." order by package, distribution, timestamp desc"
+ . " ) as anytime using (package, distribution) "
+ . " WHERE TRUE ";
my @args = ();
if ($distribution) {
my @dists = split(/[, ]+/, $distribution);
push @args, uc($options{state});
}
- if ($options{user}) {
+ if ($options{user} && uc($options{state}) ne "NEEDS-BUILD") { # if it's NEEDS-BUILD, we don't look at users
#this basically means "this user, or no user at all":
- $q .= ' AND (builder = ? OR upper(state) = ?)';
+ $q .= " AND (builder = ? OR upper(state) = 'NEEDS-BUILD')";
push @args, $options{user};
- push @args, "NEEDS-BUILD";
}
if ($options{category}) {
' IN EXCLUSIVE MODE', undef) or die $dbh->errstr;
}
+sub parse_argv() {
+# parts the array $_[0] and $_[1] and returns the sub-array (modifies the original one)
+ my @ret = ();
+ my $args = shift;
+ my $separator = shift;
+ while($args->[0] && $args->[0] ne $separator) {
+ push @ret, shift @$args;
+ }
+ shift @$args if @$args;
+ return @ret;
+}
+
+sub parse_all_v3() {
+ my $srcs = shift;
+ my $db = get_all_source_info();
+ my $binary = $srcs->{'_binary'};
+
+ SRCS:
+ foreach my $name (keys %$srcs) {
+ next if $name eq '_binaries';
+
+ # state = installed, out-of-date, uncompiled, not-for-us
+ my $pkgs = $srcs->{$name};
+ my $pkg = $db->{$name};
+
+ unless ($pkg) {
+ next SRCS if $pkgs->{'status'} eq 'not-for-us';
+
+ # does at least one binary exist in the database and is more recent - if so, we're probably just outdated, ignore the source package
+ for my $bin (@{$pkgs->{'binary'}}) {
+ if ($binary->{$bin} and vercmp($pkgs->{'version'}, $binary->{$bin}) < 0) {
+ print "merge-v3: skiping $name ($arch)\n" if $verbose || $simulate;
+ next SRCS;
+ }
+ }
+ $pkg->{'package'} = $name;
+ }
+
+ if ($pkgs->{'status'} eq 'installed' && $pkg->{'binary_nmu_version'} && $pkgs->{'binnmu'} < $pkg->{'binary_nmu_version'}) {
+ $pkgs->{'status'} = 'out-of-date';
+ }
+ if ($pkgs->{'status'} eq 'installed') {
+ if ($pkg->{'state'} ne 'Installed') {
+ change_state( \$pkg, 'Installed');
+ $pkg->{'version'} = $pkgs->{'version'};
+ $pkg->{'installed_version'} = $pkgs->{'version'};
+ $pkg->{'binary_nmu_version'} = $pkgs->{'binnmu'};
+ $pkg->{'section'} = $pkgs->{'section'};
+ $pkg->{'priority'} = $pkgs->{'priority'};
+ print "merge-v3: set $name ($arch) to installed\n" if $verbose || $simulate;
+ log_ta( $pkg, "--merge-v3: installed" ) unless $simulate;
+ update_source_info($pkg) unless $simulate;
+ }
+ next;
+ }
+
+ if ($pkgs->{'status'} eq 'not-for-us') {
+ next if isin( $pkg->{'state'}, qw(Not-For-Us Installed Failed-Removed));
+
+ if (isin( $pkg->{'state'}, qw(Failed Build-Attempted Built))) {
+ change_state( \$pkg, "Failed-Removed" );
+ log_ta( $pkg, "--merge-v3: Failed-Removed" ) unless $simulate;
+ update_source_info($pkg) unless $simulate;
+ print "$name ($pkg->{'version'}): (virtually) deleted from database\n" if $verbose || $simulate;
+ next;
+ }
+
+ print "should delete $name (not-for-us)\n" if $verbose || $simulate || 1; # not implemented yet on purpose
+ next;
+ }
+
+ # only uncompiled / out-of-date are left, so check if anything new
+ next if $pkgs->{'version'} eq $pkg->{'version'};
+
+ print "should set $name to needs-builds\n" if $simulate;
+ if (defined( $pkg->{'state'} ) && isin( $pkg->{'state'}, qw(Building Built Build-Attempted))) {
+ send_mail( $pkg->{'builder'},
+ "new version of $name (dist=$distribution)",
+ "As far as I'm informed, you're currently building the package $name\n".
+ "in version $pkg->{'version'}.\n\n".
+ "Now there's a new source version $pkgs->{'version'}. If you haven't finished\n".
+ "compiling $name yet, you can stop it to save some work.\n".
+ "Just to inform you...\n".
+ "(This is an automated message)\n" ) unless $simulate;
+ print "$name: new version ($pkgs->{'version'}) while building $pkg->{'version'} -- sending mail to builder ($pkg->{'builder'})\n"
+ if $verbose || $simulate;
+ }
+ change_state( \$pkg, 'Needs-Build');
+ $pkg->{'notes'} = $pkgs->{'status'};
+ $pkg->{'version'} = $pkgs->{'version'};
+ $pkg->{'section'} = $pkgs->{'section'};
+ $pkg->{'priority'} = $pkgs->{'priority'};
+ $pkg->{'dep'} = $pkgs->{'depends'};
+ $pkg->{'conf'} = $pkgs->{'conflicts'};
+ delete $pkg->{'builder'};
+ delete $pkg->{'binary_nmu_version'};
+ delete $pkg->{'binary_nmu_changelog'};
+ log_ta( $pkg, "--merge-v3: needs-build" ) unless $simulate;
+ update_source_info($pkg) unless $simulate;
+ print "$name ($pkgs->{'version'} / $arch) needs rebuilding now.\n" if $verbose || $simulate;
+ }
+
+ foreach my $name (keys %$db) {
+ next if $srcs->{$name};
+ my $pkg = $db->{$name};
+ # package disappeared - delete
+ change_state( \$pkg, 'deleted' );
+ log_ta( $pkg, "--merge-v3: deleted" ) unless $simulate;
+ print "$name ($pkg->{'version'} / $arch) deleted from database\n" if $verbose || $simulate;
+ del_source_info($name) unless $simulate;
+ delete $db->{$name};
+ }
+}