Changeset 31385 for branches/czw_branch/20110406/Nebulous/bin/neb-shift

Timestamp:

Apr 26, 2011, 6:38:11 PM (15 years ago)

Author:

watersc1

Message:

First draft of 'complete' large area processing code.

File:

• branches/czw_branch/20110406/Nebulous/bin/neb-shift (modified) (3 diffs)

branches/czw_branch/20110406/Nebulous/bin/neb-shift

@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($volume, $server);
+my ($volume, $server, $nocull, $cull);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -23 +23 @@
     'volume=s'      => \$volume,
     'server|s=s'    => \$server,
+    'nocull'        => \$nocull,
+    'cull'          => \$cull,
 ) || pod2usage( 2 );
 
 my $src = shift;
 my $abandon_vol = shift;
+my $do_cull = 0;
 
+if ($nocull) {
+    $do_cull = 0;
+}
+if ($cull) {
+    $do_cull = 1;
+}
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage( -msg => "Required options: --server <source key> <source volume>",
@@ -54 +63 @@
 die "Replicate phase failed for $src ($abandon_vol) ($volume)" unless $status;
 
-$status = $neb->cull($src,$abandon_vol);
+if ($do_cull) {
+    $status = $neb->cull($src,$abandon_vol);
 
-warn "Cull phase failed for $src from $abandon_vol" unless $status;
+    warn "Cull phase failed for $src from $abandon_vol" unless $status;
+}
+
+
 
 __END__