From 7ac2f405073aff68aeb40713e13018d61f7b41c4 Mon Sep 17 00:00:00 2001
From: Leigh B Stoller <stoller@flux.utah.edu>
Date: Mon, 17 Sep 2018 06:58:19 -0600
Subject: [PATCH] Add IsLocalCluster() predicate.

---
 apt/APT_Aggregate.pm.in | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/apt/APT_Aggregate.pm.in b/apt/APT_Aggregate.pm.in
index 1da2f1e18..74c3a65e5 100644
--- a/apt/APT_Aggregate.pm.in
+++ b/apt/APT_Aggregate.pm.in
@@ -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.
 #
-- 
GitLab