Commit 98342dc8 authored by Leigh Stoller's avatar Leigh Stoller

Add method for setting the "hosed" bit.

parent 52292e36
#!/usr/bin/perl -wT
#
# Copyright (c) 2008-2013 University of Utah and the Flux Group.
# Copyright (c) 2008-2014 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -1177,6 +1177,27 @@ sub SetName($$)
return 0;
}
#
# Set the hosed field.
#
sub SetHosedFlag($$)
{
my ($self, $hosed) = @_;
my $uuid = $self->uuid();
$hosed = ($hosed ? 1 : 0);
my $query_result =
DBQueryWarn("update geni_slices set hosed='$hosed' " .
"where uuid='$uuid'");
return -1
if (!$query_result);
$self->{'SLICE'}->{'hosed'} = $hosed;
return 0;
}
#
# Set the registered field.
#
......
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