$ok = 1;
my $pkg = get_source_info($name);
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
if (defined($pkg)) {
if ($pkg->{'state'} eq "Not-For-Us") {
$ok = 0;
print "$name: not registered yet.\n";
return;
}
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
if (($pkg->{'state'} ne "Building") && ($pkg->{'state'} ne "Build-Attempted")) {
print "$name: not taken for building (state is $pkg->{'state'}). ",
print "$name: not registered yet.\n";
return;
}
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
if (($pkg->{'state'} ne "Building") && ($pkg->{'state'} ne "Build-Attempted")) {
print "$name: not taken for building (state is $pkg->{'state'}). ",
print "$name: not registered yet.\n";
return;
}
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
if ($pkg->{'state'} eq "Uploaded" &&
pkg_version_eq($pkg,$version)) {
print "$name: not registered yet.\n";
return;
}
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
$state = $pkg->{'state'};
if ($state eq "Not-For-Us") {
my $name = shift;
my $version = shift;
my $pkg = get_source_info($name);
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
if ($pkg->{'state'} eq 'Not-For-Us') {
# reset Not-For-Us state in case it's called twice; this is
print "$name: not registered; can't give back.\n";
return;
}
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
$state = $pkg->{'state'};
if ($state eq "BD-Uninstallable") {
print "$name: not registered; can't register for binNMU.\n";
return;
}
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
my $db_ver = $pkg->{'version'};
if (!version_eq($db_ver, $version)) {
print "$name: not registered; can't set priority.\n";
return;
}
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
$state = $pkg->{'state'};
if ($state eq "Not-For-Us") {
print "$name: not registered yet.\n";
return;
}
+ $pkg->{'version'} =~ s/\+b[0-9]+$//;
$state = $pkg->{'state'};
if ($state eq "Dep-Wait") {
my $db = get_all_source_info(state => $state, user => $user, category => $category, list_min_age => $list_min_age);
foreach $name (keys %$db) {
next if $name =~ /^_/;
+ $db->{$name}->{'version'} =~ s/\+b[0-9]+$//;
push @list, calculate_prio($db->{$name});
}