Add a check command to the wallet server to determine whether an object

already exists.

1 files changed, 23 insertions, 1 deletions

diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm
index b5b76fe..b52f1aa 100644
--- a/perl/Wallet/Server.pm
+++ b/perl/Wallet/Server.pm
@@ -24,7 +24,7 @@ use Wallet::Schema;
 # This version should be increased on any code change to this module.  Always
 # use two digits for the minor version with a leading zero if necessary so
 # that it will sort properly.
-$VERSION = '0.06';
+$VERSION = '0.07';
 
 ##############################################################################
 # Utility methods
@@ -384,6 +384,22 @@ sub owner {
     return $result;
 }
 
+# Checks for the existence of an object.  Returns 1 if it does, 0 if it
+# doesn't, and undef if there was an error in checking the existence of the
+# object.
+sub check {
+    my ($self, $type, $name) = @_;
+    my $object = $self->retrieve ($type, $name);
+    if (not defined $object) {
+        if ($self->error =~ /^cannot find/) {
+            return 0;
+        } else {
+            return;
+        }
+    }
+    return 1;
+}
+
 # Retrieve the information associated with an object, or returns undef and
 # sets the internal error if the retrieval fails or if the user isn't
 # authorized.  If the object doesn't exist, attempts dynamic creation of the
@@ -826,6 +842,12 @@ attribute values.  Returns true on success and false on failure.  To set an
 attribute value, the user must be authorized by the ADMIN ACL, the store ACL
 if set, or the owner ACL if the store ACL is not set.
 
+=item check(TYPE, NAME)
+
+Check whether an object of type TYPE and name NAME exists.  Returns 1 if
+it does, 0 if it doesn't, and undef if some error occurred while checking
+for the existence of the object.
+
 =item create(TYPE, NAME)
 
 Creates a new object of type TYPE and name NAME.  TYPE must be a recognized