$category, %catval, %short_category,
$short_date, $list_min_age, $dbbase, @curr_time,
$build_priority, %new_vers, $binNMUver, %merge_srcvers, %merge_binsrc,
- $lock_for_pid, $transactional);
+ $lock_for_pid, $transactional, $read_only);
# global vars
$ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin:/org/wanna-build/bin/";
$| = 1;
$lock_for_pid = -1; # -1 means normal procedure
$transactional = 0; # 0 means: work on main copy
+$read_only = 0; # 1 means: do not set or check lock, do never write
# map program invocation names to operation modes
my %prognames = ( "uploaded-build" => "set-uploaded",
"start-transaction" => { mode => "start-transaction" },
"commit-transaction" => { mode => "commit-transaction" },
"transactional" => { flag => \$transactional },
+ "read-only" => { flag => \$read_only },
"manual-edit" => { mode => "manual-edit" },
"create-maintenance-lock" => { mode => "maintlock-create" },
"remove-maintenance-lock" => { mode => "maintlock-remove" },
print "wanna-build $version for $distribution on $conf::dbbase\n";
}
+if ($read_only && !isin( $op_mode, qw(list export info))) {
+ warn "Invalid operation with --read-only. You can only use --list, --export or --info.\n";
+ exit 1;
+}
+
if (!@ARGV && !isin( $op_mode, qw(list merge-quinn merge-partial-quinn import export
merge-packages manual-edit maintlock-create lock-for unlock-for
start-transaction commit-transaction
exit 0;
}
-lock_db( $distribution );
+if (!$read_only) {
+ lock_db( $distribution );
+}
if ($op_mode eq "start-transaction") {
copy ( db_filename_master( $distribution ), db_filename_transaction( $distribution ))
}
END {
- untie %db;
- if ($lock_for_pid == -1) {
- unlock_db( $distribution );
- }
- foreach (keys %conf::distributions) {
- untie %{$otherdb{$_}} if tied(%{$otherdb{$_}});
- unlock_db( $_ ) if $otherdb_lock{$_};
+ if (!$read_only) {
+ untie %db;
+ if ($lock_for_pid == -1) {
+ unlock_db( $distribution );
+ }
+ foreach (keys %conf::distributions) {
+ untie %{$otherdb{$_}} if tied(%{$otherdb{$_}});
+ unlock_db( $_ ) if $otherdb_lock{$_};
+ }
}
}
-tie %db, 'MLDBM', db_filename( $distribution ), GDBM_WRCREAT, 0664
+tie %db, 'MLDBM', db_filename( $distribution ), $read_only ? GDBM_READER : GDBM_WRCREAT, 0664
or die "FATAL: Cannot open database\n";
process();
log_ta( $pkg, "--give-back" );
$db{$name} = $pkg;
print "$name: given back\n" if $verbose;
+ return;
}
else {
print "$name: has uninstallable build-dependencies. Skipping\n",
"Skipping.\n";
return;
}
- change_state( \$pkg, 'BD-Uninstallable' );
- $pkg->{'BD-Problem'} = "Installability of build dependencies not tested yet";
+ if ($distribution eq "unstable") {
+ change_state( \$pkg, 'BD-Uninstallable' );
+ $pkg->{'BD-Problem'} = "Installability of build dependencies not tested yet";
+ } else {
+ change_state( \$pkg, 'Needs-Build' );
+ }
delete $pkg->{'Builder'};
delete $pkg->{'Depends'};
log_ta( $pkg, "--give-back" );
if $pkg->{'State'} =~ /^Failed/;
print " Dependencies: $pkg->{'Depends'}\n"
if $pkg->{'State'} eq "Dep-Wait";
- print " Reason: $pkg->{'BD-Problem'}\n"
+ print " Reasons for BD-Uninstallable:\n ",
+ join("\n ",split("\n",$pkg->{'BD-Problem'})), "\n"
if $pkg->{'State'} eq "BD-Uninstallable";
print " Previous state was $pkg->{'Previous-State'} until ",
"$pkg->{'State-Change'}\n"
if $verbose && $pkg->{'Previous-State'};
+ print " No previous state recorded\n"
+ if $verbose && !$pkg->{'Previous-State'};
print " Previous failing reasons:\n ",
join("\n ",split("\n",$pkg->{'Old-Failed'})), "\n"
if $verbose && $pkg->{'Old-Failed'};
my $val = $ui->{$key};
$val =~ s/\n*$//;
$val =~ s/^/ /mg;
- $val =~ s/^ $/ ./mg;
+ $val =~ s/^ +$/ ./mg;
print F "$key: $val\n";
}
print F "\n";
my $val = $pkg->{$key};
$val =~ s/\n*$//;
$val =~ s/^/ /mg;
- $val =~ s/^ $/ ./mg;
+ $val =~ s/^ +$/ ./mg;
print F "$key: $val\n";
}
print F "\n";
my $change =
(defined $interesting_packages{$key} and $pkg->{'State'} eq 'Needs-Build') ||
(not defined $interesting_packages{$key} and $pkg->{'State'} eq 'BD-Uninstallable');
+ my $problemchange = $interesting_packages{$key} ne $pkg->{'BD-Problem'};
if ($change) {
if (defined $interesting_packages{$key}) {
change_state( \$pkg, 'BD-Uninstallable' );
} else {
change_state( \$pkg, 'Needs-Build' );
}
+ }
+ if ($problemchange) {
+ if (defined $interesting_packages{$key}) {
+ $pkg->{'BD-Problem'} = $interesting_packages{$key};
+ }
+ }
+ if ($change) {
log_ta( $pkg, "--merge-all" );
- $db{$key} = $pkg;
print "edos-builddebchange changed state of ${key}_$pkg->{'Version'} to $pkg->{'State'}\n" if $verbose;
}
+ if ($change || $problemchange) {
+ $db{$key} = $pkg;
+ }
}
}
a new version number (source-version + "+b<num>")
--give-back: Mark a package as ready to build that is in state Building,
Built or Build-Attempted. To give back a package in state Failed, use
- --override
+ --override. This command will actually put the package in state
+ BD-Uninstallable, until the installability of its Build-Dependencies
+ were verified. This happens at each call of --merge-all, usually
+ every 15 minutes.
--merge-quinn: Merge quinn-diff output into database.
--merge-packages: Merge Packages files into database.
--pretend-avail: Pretend that given packages are available now and give
--export FILE: Export database to a ASCII file FILE
--lock-for PID: Locks the database for the process with this pid
--unlock-for PID: Unlocks the database for the process with this pid
- --act-on-behalf-of PID: Ignores the log (if it is held by this pid)
+ --act-on-behalf-of PID: Ignores the lock (if it is held by this pid)
--start-transaction: Creates a copy of the state of the database, for
use with --transactional. This overrides any previous uncommited
transaction. Should only be used after --lock-for
projects / wannabuild.git / blobdiff