Commit 30892a11 authored by Leigh B Stoller's avatar Leigh B Stoller

Add nonfsmounts flag to experiments table.

parent 1eb3e0c0
......@@ -3028,6 +3028,25 @@ sub SetCancelFlag($$)
return $self->Refresh();
}
#
# No NFS Mounts.
#
sub NoNFSMounts($)
{
my ($self) = @_;
# Must be a real reference.
return -1
if (! ref($self));
my $idx = $self->idx();
return -1
if (!DBQueryWarn("update experiments set nonfsmounts=1 ".
"where idx='$idx'"));
return 0;
}
#
# Clear the panic bit.
#
......
......@@ -1434,6 +1434,7 @@ CREATE TABLE `experiments` (
`nonlocal_id` varchar(128) default NULL,
`nonlocal_user_id` varchar(128) default NULL,
`nonlocal_type` tinytext,
`nonfsmounts` tinyint(1) NOT NULL default '0',
PRIMARY KEY (`idx`),
UNIQUE KEY `pideid` (`pid`,`eid`),
UNIQUE KEY `pididxeid` (`pid_idx`,`eid`),
......
#
# Add nonfsmounts to experiments.
#
use strict;
use libdb;
my $impotent = 0;
sub DoUpdate($$$)
{
my ($dbhandle, $dbname, $version) = @_;
if (!DBSlotExists("experiments", "nonfsmounts")) {
DBQueryFatal("alter table experiments add ".
" `nonfsmounts` tinyint(1) NOT NULL default '0'");
}
return 0;
}
# Local Variables:
# mode:perl
# End:
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment