Commit 7ac2f405 authored by Leigh B Stoller's avatar Leigh B Stoller

Add IsLocalCluster() predicate.

parent 08d5fd36
......@@ -43,6 +43,7 @@ use overload ('""' => 'Stringify');
my $TB = "@prefix@";
my $TBOPS = "@TBOPSEMAIL@";
my $OURDOMAIN = "@OURDOMAIN@";
my $MYURN = "urn:publicid:IDN+${OURDOMAIN}+authority+cm";
# Protos
sub STATUS($$;$);
......@@ -124,6 +125,13 @@ sub DESTROY {
$self->{'AGGREGATE'} = undef;
}
sub IsLocalCluster($)
{
my ($self) = @_;
return ($self->urn() eq $MYURN ? 1 : 0);
}
#
# Refresh a class instance by reloading from the DB.
#
......
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