Changeset 31964
- Timestamp:
- Aug 1, 2011, 3:36:53 PM (15 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous/bin/neb-shift (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous/bin/neb-shift
r28446 r31964 29 29 30 30 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; 31 pod2usage( -msg => "Required options: --server <source key> <source volume>",31 pod2usage( -msg => "Required options: --server --volume <source key> <source volume>", 32 32 -exitval => 2 ) 33 unless defined $server and defined $src and defined $abandon_vol ;33 unless defined $server and defined $src and defined $abandon_vol and defined $volume; 34 34 35 35 my $neb = Nebulous::Client->new( … … 45 45 } 46 46 47 my $all_uris = $neb->find_instances($src); 48 47 49 my $status; 48 if ($volume) { 49 $status = $neb->replicate( $src, $volume); 50 $status = $neb->replicate( $src, $volume); 51 die "Replicate phase failed for $src ($abandon_vol) ($volume)" unless $status; 52 53 $uris = $neb->find_instances($src, "~$volume"); 54 unless (defined $uris) { 55 die "Replicate phase failed for $src ($abandon_vol) ($volume)"; 50 56 } 51 else {52 $status = $neb->replicate($src);53 }54 die "Replicate phase failed for $src ($abandon_vol) ($volume)" unless $status;55 57 56 58 $status = $neb->cull($src,$abandon_vol);
Note:
See TracChangeset
for help on using the changeset viewer.
