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 call_edos_depcheck {
my $packagesfile = shift;
my $srcs = shift;
#print "I would look at these sources with edos-depcheck:\n";
#print join " ", keys %interesting_packages,"\n";
- 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'}, $arch);
+ print $SOURCES "Depends: $t\n" if $t;
+ my $u = &filterarch($srcs->{$key}{'conf'}, $arch);
+ print $SOURCES "Conflicts: $u\n" if $u;
+ print $SOURCES "Architecture: all\n";
+ print $SOURCES "\n";
}
- close SOURCES;
+ close $SOURCES;
if (open(EDOS,"-|","wb-edos-builddebcheck", "-a", $arch, $packagesfile, $tmpfile))
{
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}) {