Changeset 42802

Timestamp:

May 4, 2025, 11:30:14 AM (15 months ago)

Author:

eugene

Message:

add method to return an array of instances for a nebulous file

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (1 diff)

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1368 +1368 @@
 
 
+# Return array of the instances for this nebulous file
+sub find_instances
+{
+    my $self = shift;
+    my $file = shift;
+
+    my $scheme = file_scheme($file);
+    if (!$scheme or ($scheme ne 'neb')) {
+        # if not nebulous, the instance is the file
+        my @result;
+        push @result, $file;
+        return (\@result);
+    }
+
+    my $neb = $self->nebulous;
+    my $uris;
+    eval { $uris = $neb->find_instances($file); };
+    if ($@) { 
+        carp "failed to set user.copies for $file";
+        return 0;
+    }
+    return $uris;
+}
+
 # Return catdir for tessellation, from TESSELLATIONS within the site configuration
 sub tessellation_catdir