Changeset 18390 for trunk/Nebulous/bin/neb-replicate

Timestamp:

Jun 30, 2008, 2:35:11 PM (18 years ago)

Author:

jhoblitt

Message:

add neb-replicate --copies option

File:

• trunk/Nebulous/bin/neb-replicate (modified) (8 diffs)

trunk/Nebulous/bin/neb-replicate

@@ -3 +3 @@
 # Copyright (C) 2007-2008  Joshua Hoblitt
 #
-# $Id: neb-replicate,v 1.1 2008-01-22 22:10:27 jhoblitt Exp $
+# $Id: neb-replicate,v 1.2 2008-07-01 00:35:11 jhoblitt Exp $
 
 use strict;
@@ -9 +9 @@
 
 use vars qw( $VERSION );
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 use Nebulous::Client;
@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($server, $volume);
+my ($server, $volume, $copies);
+$copies = 1;  # default to making just one copy
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -23 +24 @@
     'server|s=s'    => \$server,
     'volume|v=s'    => \$volume,
+    'copies|c=i'    => \$copies,
 ) || pod2usage( 2 );
 
@@ -32 +34 @@
 pod2usage( -msg => "missing key", exitval => 2 )
     unless defined $key;
+pod2usage( -msg => "--copies must be > 0", exitval => 2 )
+    unless $copies > 0;
 
 my $neb = Nebulous::Client->new(
@@ -40 +44 @@
     unless defined $neb;
 
-if (defined $volume) {
-    $neb->replicate($key, $volume)
-        or die "failed to replicate Nebulous key: $key";
-} else {
-    $neb->replicate($key)
-        or die "failed to replicate Nebulous key: $key";
+for (my $i = 0; $i < $copies; $i++) {
+    if (defined $volume) {
+        $neb->replicate($key, $volume)
+            or die "failed to replicate Nebulous key: $key";
+    } else {
+        $neb->replicate($key)
+            or die "failed to replicate Nebulous key: $key";
+    }
 }
 
@@ -59 +65 @@
 =head1 SYNOPSIS
 
-    neb-replicate [--server <URL>] [--volume <volume name>] <key>
+    neb-replicate [--server <URL>] [--volume <volume name>]
+                  [--copies <n>] <key>
 
 =head1 DESCRIPTION
@@ -81 +88 @@
 
 Optional.
+
+=item * --copies|c <n>
+
+The number of new replications to create.
+
+Optional.  Defaults to 0.
 
 =back