Changeset 19742

Timestamp:

Sep 24, 2008, 11:58:03 AM (18 years ago)

Author:

jhoblitt

Message:

replicate to 'any' volume
attempt to remove storage object on failure

File:

• trunk/DataStore/scripts/dsget (modified) (5 diffs)

trunk/DataStore/scripts/dsget

@@ -3 +3 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsget,v 1.34 2008-09-23 02:27:29 jhoblitt Exp $
+# $Id: dsget,v 1.35 2008-09-24 21:58:03 jhoblitt Exp $
 
 use strict;
@@ -155 +155 @@
 # always be a rename operation instead of a copy and delete.
 
+my $neb;
 if ($nebulous) {
     require Nebulous::Client;
@@ -161 +162 @@
     import File::Copy;
 
-    my $neb = Nebulous::Client->new(
+    $neb = Nebulous::Client->new(
         proxy   => $server,
     );
@@ -199 +200 @@
     if (defined $copies and $copies > 1) {
         foreach (1 .. ($copies - 1)) {
-            $neb->replicate($filename, undef)
+            $neb->replicate($filename, 'any')
                 or die "failed to replicate $filename failed: $!";
         }
@@ -212 +213 @@
 DESTROY {
     unlink $tmpfilename if -e $tmpfilename;
+    if ($nebulous and $neb->stat($filename)) {
+        $neb->delete($filename)
+            or die "Nebulous can't delete key $filename";
+    }
 }