use warnings;
use 5.010;
+die "wanna-build disabled" if -f "/org/wanna-build/NO-WANNA-BUILD";
+
package conf;
use vars qw< $basedir $dbbase $transactlog $mailprog $buildd_domain >;
# a proper error.
if ($verbose) {
- my $version = '$Revision: db181a534e9d $ $Date: 2008/03/26 06:20:22 $ $Author: rmurray $';
- $version =~ s/(^\$| \$ .*$)//g;
- print "wanna-build $version for $distribution on $arch\n";
+ my $version = '$Id$';
+ $version =~ s/^.* ([a-f0-9]+) .*$/$1/g;
+ print "wanna-build $version for ".($distribution//"sid")." on $arch\n";
}
if (!@ARGV && !isin( $op_mode, qw(list merge-quinn merge-partial-quinn import export
sub filterarch {
return "" unless $_[0];
- return Dpkg::Deps::parse($_[0], ("reduce_arch" => 1, "host_arch" => $_[1]))->dump();
+ return Dpkg::Deps::deps_parse($_[0], ("reduce_arch" => 1, "host_arch" => $_[1]))->output();
}
sub wb_edos_builddebcheck {
}
}
- print "calling: edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @$packagefiles)."\n";
+ print "calling: edos-debcheck $edosoptions < $sourcesfile ".join('', map {" -I ".$_ } @$packagefiles)."\n";
open(my $result_cmd, '-|',
- "edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @$packagefiles));
+ "edos-debcheck $edosoptions < $sourcesfile ".join('', map {" -I ".$_ } @$packagefiles));
my $explanation="";
my $result={};
Usage: $prgname <options...> <package_version...>
Options:
-v, --verbose: Verbose execution.
- -A arch: Architecture this operation is for.
+ --simulate: Do not actually execute the action.
+ (Not yet implemented for all operations. Check the source.)
+ -A arch: Architecture this operation is for. (REQUIRED)
+ -d dist: Distribution/suite this operation is for. (REQUIRED)
--take: Take package for building [default operation]
-f, --failed: Record in database that a build failed due to
deficiencies in the package (that aren't fixable without a new
BD-Uninstallable, until the installability of its Build-Dependencies
were verified. This happens at each call of --merge-all, usually
every 15 minutes.
+ --build-priority=VALUE: Adjust the build priority of the currently
+ queued build.
+ --permanent-build-priority=VALUE: Adjust the permanent build
+ priority of a source package in a given distribution.
+ --extra-depends=BUILD-DEPENDS: Specify additional build-dependencies
+ used for the build.
+ --extra-conflicts=BUILD-DEPENDS: Specify additional build-conflicts
+ used for the build.
-i SRC_PKG, --info SRC_PKG: Show information for source package
-l STATE, --list=STATE: List all packages in state STATE; can be
combined with -U to restrict to a specific user; STATE can
also be 'all'
+ --min-age=VALUE, --max-age=VALUE: Filter the output of --list
+ by the age of the builds.
-m MESSAGE, --message=MESSAGE: Give reason why package failed or
source dependency list
(used with -f, --dep-wait, and --binNMU)
sub lock_table {
return if $simulate;
- $dbh->do('LOCK TABLE ' . table_name() .
- ' IN EXCLUSIVE MODE', undef) or die $dbh->errstr;
+ $dbh->do('SELECT 1 FROM ' . table_name() .
+ ' WHERE distribution = ? FOR UPDATE', undef, $distribution) or die $dbh->errstr;
}
sub parse_argv {