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 $simulate = 0;
# global vars
$ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin:/org/wanna-build/bin/";
"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"
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 @ipkgs = &parse_argv( \@ARGV, '.');
+ my @isrcs = &parse_argv( \@ARGV, '.');
+ my @bpkgs = &parse_argv( \@ARGV, '.');
+ use WB::QD;
+ my $srcs = WB::QD::readsourcebins($arch, '/org/buildd.debian.org/etc/packages-arch-specific/Packages-arch-specific', \@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
}
}
- print "calling: edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @packagefiles);
+ print "calling: edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @packagefiles)."\n";
open(RESULT, '-|',
"edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @packagefiles));
$result->{$binpkg} = $explanation if $binpkg;
$explanation = "";
$binpkg = $1;
- } # else something broken is happening
+ } elsif (/^(depwait---.*) \(.*\): FAILED/o) {
+ $result->{$binpkg} = $explanation if $binpkg;
+ $explanation = "";
+ $binpkg = $1;
+ } else { # else something broken is happening
+ #print "ignoring $_\n";
+ 1;
+ }
}
}
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;
+ return unless %interesting_packages || %interesting_packages_depwait;
my $tmpfile_pattern = "/tmp/wanna-build-interesting-sources-$distribution.$$-XXXXX";
use File::Temp qw/ tempfile /;
# 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'}, $arch);
+ my $t = &filterarch($srcs->{$key}{'dep'} || $srcs->{$key}{'depends'}, $arch);
print $SOURCES "Depends: $t\n" if $t;
- my $u = &filterarch($srcs->{$key}{'conf'}, $arch);
+ 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";
}
+ 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 (keys %$edosresults) {
+ foreach my $key (grep { $_ !~ /^depwait---/ } keys %$edosresults) {
if (exists $interesting_packages{$key}) {
$interesting_packages{$key} = $edosresults->{$key};
} else {
#print "TODO: edos reported a package we do not care about now\n" if $verbose;
}
}
+ 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 {
# 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" .
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 {
' 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\n" if $verbose;
+ next SRCS;
+ }
+ }
+ }
+
+ 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 "should set $name to installed\n" if $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'}) 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'}): deleted from database\n" if $verbose || $simulate;
+ del_source_info($name) unless $simulate;
+ delete $db->{$name};
+ }
+}
--- /dev/null
+package WB::QD;
+
+use strict;
+use IO::Uncompress::AnyInflate qw(anyinflate);
+use Dpkg::Version qw(vercmp);
+
+sub readsourcebins {
+ my $arch = shift;
+ my $pasfile = shift;
+ my $SRC = shift;
+ my $BIN = shift;
+ my $binary = {};
+
+ my $pas = {};
+ local($/) = "\n";
+ open(PAS, '<', $pasfile);
+ while(<PAS>) {
+ chomp;
+ s,\s*#.*,,;
+ next unless $_;
+ my ($p, $c) = split(/:\s*/);
+ $pas->{$p} = { arch => [ split(/\s+/, $c) ], mode => substr($c, 0, 1) ne '!' };
+ }
+ close PAS;
+
+ my $srcs = {};
+ local($/) = ""; # read in paragraph mode
+
+ foreach my $s (@$SRC) {
+ my $S = new IO::Uncompress::AnyInflate($s) || return "can't open $s";
+ while(<$S>) {
+ my $p={};
+ /^Package:\s*(\S+)$/mi and $p->{'name'} = $1;
+ /^Version:\s*(\S+)$/mi and $p->{'version'} = $1;
+ /^Binary:\s*(.*)$/mi and $p->{'binary'} = $1;
+ /^Architecture:\s*(.+)$/mi and $p->{'arch'} = $1;
+ /^Priority:\s*(\S+)$/mi and $p->{'priority'} = $1;
+ /^Section:\s*(\S+)$/mi and $p->{'section'} = $1;
+ /^Build-Depends:\s*(.*)$/mi and $p->{'depends'} = $1;
+ /^Build-Conflicts:\s*(.*)$/mi and $p->{'conflicts'} = $1;
+
+ next unless $p->{'name'} and $p->{'version'};
+ next if $p->{'arch'} eq 'all';
+ # TODO: respect the architecture - or not / we already respect it via P-a-s
+ delete $p->{'arch'};
+
+ # ignore if package already exists with higher version
+ if ($srcs->{$p->{'name'}}) {
+ next if (vercmp($srcs->{$p->{'name'}}->{'version'}, $p->{'version'}) > 0);
+ }
+ my @a = split(/,? /, $p->{'binary'}) if $p->{'binary'};
+ $p->{'binary'} = \@a;
+ $srcs->{$p->{'name'}} = $p;
+ }
+ close $S;
+ }
+
+ foreach my $p (@$BIN) {
+ my $P = new IO::Uncompress::AnyInflate($p) || return "can't open $p";
+ while(<$P>) {
+ my $p;
+ /^Version:\s*(\S+)$/mi and $p->{'version'} = $1;
+ /^Architecture:\s*(\S+)$/mi and $p->{'arch'} = $1;
+ /^Package:\s*(\S+)$/mi and $p->{'binary'} = $1;
+ /^Package:\s*(\S+)$/mi and $p->{'source'} = $1;
+ /^Source:\s*(\S+)$/mi and $p->{'source'} = $1;
+ /^Source:\s*(\S+)\s+\((\S+)\)$/mi and $p->{'source'} = $1 and $p->{'version'} = $2;
+ $p->{'version'} =~ /(\S+)\+b([0-9]+)/ and $p->{'version'} = $1 and $p->{'binnmu'} = $2;
+
+ $binary->{$p->{'binary'}} = { 'version' => $p->{'version'}, 'arch' => $p->{'arch'}} unless $binary->{$p->{'binary'}} and vercmp($binary->{$p->{'binary'}->{'version'}}, $p->{'version'}) < 0;
+
+ #next if $pas->{$p->{'binary'}} && pasignore($pas->{$p->{'binary'}}, $arch);
+ next if $p->{'arch'} eq 'all';
+ next unless $srcs->{$p->{'source'}};
+ $srcs->{$p->{'source'}}->{'compiled'} = 1;
+ next unless $srcs->{$p->{'source'}}->{'version'} eq $p->{'version'};
+ $srcs->{$p->{'source'}}->{'installed'} = 1;
+ next unless $p->{'binnmu'};
+ next if ($srcs->{$p->{'source'}}->{'binnmu'}) && ($srcs->{$p->{'source'}}->{'binnmu'} > $p->{'binnmu'});
+ $srcs->{$p->{'source'}}->{'binnmu'} = $p->{'binnmu'};
+ }
+ close $P;
+ }
+
+ SRCS:
+ for my $k (keys %$srcs) {
+ if ($srcs->{$k}->{'installed'}) {
+ $srcs->{$k}->{'status'} = 'installed';
+ delete $srcs->{$k}->{'installed'};
+ } elsif ($srcs->{$k}->{'compiled'}) {
+ $srcs->{$k}->{'status'} = 'out-of-date';
+ } else {
+ $srcs->{$k}->{'status'} = 'uncompiled';
+ }
+ delete $srcs->{$k}->{'compiled'};
+ $srcs->{$k}->{'status'} = 'installed' if $srcs->{$k}->{'arch'} && $srcs->{$k}->{'arch'} eq 'all';
+
+ #my $p = $pas->{$k};
+ #$p ||= $pas->{'%'.$k};
+ #$srcs->{$k}->{'status'} = 'not-for-us' if pasignore($p, $arch);
+ if (pasignore($pas->{'%'.$k}, $arch)) {
+ $srcs->{$k}->{'status'} = 'not-for-us';
+ next;
+ }
+ for my $bin (@{$srcs->{$k}->{'binary'}}) {
+ next if pasignore($pas->{$bin}, $arch);
+ next if $binary->{$bin} and $binary->{$bin}->{'arch'} eq 'all';
+ next SRCS;
+ }
+ $srcs->{$k}->{'status'} = 'not-for-us';
+ }
+ $srcs->{'_binary'} = $binary;
+ local($/) = "\n";
+
+ return \$srcs;
+}
+
+sub pasignore {
+ my $p = shift;
+ my $arch = shift;
+ if ($p && $p->{'mode'}) {
+ return 1 unless grep { $_ eq $arch } @{$p->{'arch'}};
+ }
+ if ($p && not $p->{'mode'}) {
+ return 1 if grep /^!$arch$/, @{$p->{'arch'}};
+ }
+ return 0;
+}
+
+1;
--- /dev/null
+#!/usr/bin/perl -w -I lib
+
+use Test::More tests => 1;
+
+$src = <<EOF
+Package: bash
+Binary: bash, bash-static, bash-builtins, bash-doc, bashdb
+Version: 4.1-3
+Priority: required
+Architecture: any
+Section: shell
+
+Package: test
+Binary: test
+Version: 4.1-3
+Priority: optional
+Architecture: any
+Section: shell
+
+Package: nfu
+Binary: nfu
+Version: 4.1-3
+Priority: optional
+Architecture: any
+Section: shell
+
+Package: all
+Binary: all
+Version: 4.1-3
+Priority: optional
+Architecture: all
+Section: shell
+
+Package: allbin
+Binary: allbin
+Version: 4.1-3
+Priority: optional
+Architecture: all
+Section: shell
+
+Package: e2fsprogs
+Binary: e2fsck-static
+Version: 1.41.12-1
+Priority: required
+Section: admin
+Architecture: any
+
+Package: e2fsprogs
+Binary: e2fsck-static
+Version: 1.41.11-1
+Priority: required
+Section: admin
+Architecture: any
+
+Package: base-files
+Binary: base-files
+Version: 5.7
+Priority: required
+Section: admin
+Architecture: i386 all
+Build-Depends: debhelper [i386 amd64], bash [!kfreebsd-i386], perl [!i386 !amd64]
+
+Package: pbuilder
+Binary: pbuilder, pbuilder-uml
+Version: 0.196
+Priority: extra
+Section: devel
+Build-Depends: debhelper (>= 7), docbook-xsl, ldp-docbook-xsl (>= 0.0.20040321-0.1), xsltproc, dpkg-dev (>= 1.13.19), dblatex, debconf | debconf-2.0, po-debconf, po4a
+Build-Conflicts: dash
+Architecture: all i386 amd64
+
+EOF
+;
+
+$bin = <<EOF
+Package: base-files
+Priority: required
+Section: admin
+Architecture: i386
+Version: 5.6
+
+Package: bash
+Priority: required
+Section: shells
+Architecture: i386
+Version: 4.1-3+b2
+
+Package: bash-static
+Priority: required
+Section: shells
+Architecture: i386
+Version: 4.1-3+b1
+
+Package: e2fsprogs
+Priority: required
+Section: admin
+Architecture: i386
+Version: 1.41.11-1
+
+Package: all
+Version: 4.1-3
+Priority: optional
+Architecture: all
+Section: shell
+
+Package: pbuilder
+Priority: extra
+Section: devel
+Architecture: all
+Version: 0.196
+
+EOF
+;
+
+$pas = <<EOF
+%nfu: amd64 # we fake to be i386 here
+e2fsprogs: i386
+pbuilder-uml: amd64 # depends on user-mode-linux
+EOF
+;
+
+use WB::QD;
+my $srcs = WB::QD::readsourcebins('i386', \$pas, [\$src], [\$bin]);
+use Data::Dumper;
+
+#print Dumper $srcs;
+is_deeply ($$srcs, {
+ 'e2fsprogs' => {
+ 'priority' => 'required',
+ 'status' => 'out-of-date',
+ 'version' => '1.41.12-1',
+ 'name' => 'e2fsprogs',
+ 'section' => 'admin',
+ 'binary' => ['e2fsck-static', ],
+ },
+ 'bash' => {
+ 'priority' => 'required',
+ 'status' => 'installed',
+ 'version' => '4.1-3',
+ 'name' => 'bash',
+ 'section' => 'shell',
+ 'binnmu' => '2',
+ 'binary' => ['bash', 'bash-static', 'bash-builtins', 'bash-doc', 'bashdb'],
+ },
+ 'base-files' => {
+ 'priority' => 'required',
+ 'status' => 'out-of-date',
+ 'version' => '5.7',
+ 'name' => 'base-files',
+ 'section' => 'admin',
+ 'depends' => 'debhelper [i386 amd64], bash [!kfreebsd-i386], perl [!i386 !amd64]',
+ 'binary' => ['base-files'],
+ },
+ 'test' => {
+ 'priority' => 'optional',
+ 'status' => 'uncompiled',
+ 'version' => '4.1-3',
+ 'name' => 'test',
+ 'section' => 'shell',
+ 'binary' => ['test'],
+ },
+ 'nfu' => {
+ 'priority' => 'optional',
+ 'status' => 'not-for-us',
+ 'version' => '4.1-3',
+ 'name' => 'nfu',
+ 'section' => 'shell',
+ 'binary' => ['nfu'],
+ },
+ 'pbuilder' => {
+ 'priority' => 'extra',
+ 'status' => 'not-for-us',
+ 'version' => '0.196',
+ 'binary' => [
+ 'pbuilder',
+ 'pbuilder-uml'
+ ],
+ 'name' => 'pbuilder',
+ 'section' => 'devel',
+ 'depends' => 'debhelper (>= 7), docbook-xsl, ldp-docbook-xsl (>= 0.0.20040321-0.1), xsltproc, dpkg-dev (>= 1.13.19), dblatex, debconf | debconf-2.0, po-debconf, po4a',
+ 'conflicts' => 'dash'
+ },
+ '_binary' => {
+ 'e2fsprogs' => {'version' => '1.41.11-1', 'arch' => 'i386'},
+ 'bash' => {'version' => '4.1-3', 'arch' => 'i386'},
+ 'base-files' => {'version' => '5.6', 'arch' => 'i386'},
+ 'bash-static' => {'version' => '4.1-3', 'arch' => 'i386'},
+ 'all' => {'version' => '4.1-3', 'arch' => 'all'},
+ 'pbuilder' => { 'arch' => 'all', 'version' => '0.196' },
+ },
+}, 'reading packages');