...
 
Commits (2)
......@@ -7714,6 +7714,9 @@ sub CleanupDeadSlice($;$)
my $experiment = $slice->GetExperiment();
if (defined($experiment)) {
# Make sure the cancel flag is cleared.
$experiment->SetCancelFlag(0);
#
# Do not allow a paniced slice to be terminated until the panic
# is cleared.
......
......@@ -503,6 +503,7 @@ CREATE TABLE `apt_instances` (
`rspec` mediumtext,
`script` mediumtext,
`params` mediumtext,
`paramdefs` mediumtext,
`manifest` mediumtext,
`openstack_utilization` mediumtext,
PRIMARY KEY (`uuid`)
......
use strict;
use libdb;
sub DoUpdate($$$)
{
my ($dbhandle, $dbname, $version) = @_;
if (!DBSlotExists("apt_instances", "paramdefs")) {
DBQueryFatal("alter table apt_instances add ".
" `paramdefs` mediumtext after params");
}
return 0;
}
1;
# Local Variables:
# mode:perl
# End: