Changeset 30447 for branches/eam_branches/ipp-20101205/Nebulous/bin/neb-cull

Timestamp:

Jan 31, 2011, 2:52:18 PM (15 years ago)

Author:

eugene

Message:

merging changes from trunk

File:

• branches/eam_branches/ipp-20101205/Nebulous/bin/neb-cull (modified) (5 diffs)

branches/eam_branches/ipp-20101205/Nebulous/bin/neb-cull

@@ -17 +17 @@
 
 my ($min_copies, $server, $volume, $one_only);
-
+my ($soft_volume);
 $server = $ENV{'NEB_SERVER'} unless $server;
 
@@ -25 +25 @@
     'volume|v=s'    => \$volume,
     'one_only|o'    => \$one_only,
+    'soft_volume'   => \$soft_volume,
 ) || pod2usage( 2 );
 
@@ -42 +43 @@
     unless defined $neb;
 
+if ($volume) {
+    unless (($soft_volume)) {
+        $volume = '~' . $volume;
+    }
+}
+
 $volume ||= "any";
 $min_copies ||= 2;
@@ -48 +55 @@
 push @cull_args, $key;
 push @cull_args, $volume;
+
+# print "$key $volume\n";
+# print "@cull_args\n";
+
 
 if ($one_only) {
@@ -95 +106 @@
 
 Symbolic name of the volume to create the new instance on.
+
+Optional.
+
+=item * --soft_volume
+
+Treat the specified volume name as soft, and allow an instance to be culled 
+from another volume if the specified volume does not have an instance.
 
 Optional.