Changeset 19788 for trunk/ippScripts/scripts/summit_copy.pl

Timestamp:

Sep 30, 2008, 10:21:10 AM (18 years ago)

Author:

bills

Message:

added --copies paramater to pass to dsget

File:

• trunk/ippScripts/scripts/summit_copy.pl (modified) (3 diffs)

trunk/ippScripts/scripts/summit_copy.pl

@@ -23 +23 @@
 # Parse the command-line arguments
 my ( $uri, $filename, $compress, $bytes, $md5, $nebulous, $exp_name, $inst, $telescope, $class, $class_id, $end_stage, $workdir,
-     $dbname, $verbose, $no_update, $no_op, $timeout );
+     $dbname, $verbose, $no_update, $no_op, $timeout, $copies );
 GetOptions(
        'uri=s'          => \$uri,       # source location of file on data store
@@ -43 +43 @@
        'no-op'          => \$no_op,     # Don't do any operations?
        'timeout=s'      => \$timeout,   # passed through to dsget
+       'copies=i'       => \$copies,    # passed through to dsget
 ) or pod2usage( 2 );
 
@@ -76 +77 @@
 $command .= " --md5 $md5"           if defined $md5;
 $command .= " --timeout $timeout"   if defined $timeout;
+$command .= " --copies $copies"     if defined $copies;
 
 # run command