Changeset 28953 for trunk/ippToPsps/perl/removeFromDatastore.pl

Timestamp:

Aug 18, 2010, 12:16:27 PM (16 years ago)

Author:

rhenders

Message:

Now printing success or failure

File:

• trunk/ippToPsps/perl/removeFromDatastore.pl (modified) (1 diff)

trunk/ippToPsps/perl/removeFromDatastore.pl

@@ -48 +48 @@
 
     my $name = sprintf("B%08d", $i);
-    $datastore->remove($name);
+    if ($datastore->remove($name)) {
+        print "* Successfully removed $name from datastore\n";
+    }
+    else {
+        print "* Unable to remove $name from datastore\n";
+    }
 }