Changeset 11288 for trunk/DataStore/scripts/dsleech

Timestamp:

Jan 24, 2007, 5:39:31 PM (19 years ago)

Author:

jhoblitt

Message:

add --overwrite option to dsleech

File:

• trunk/DataStore/scripts/dsleech (modified) (8 diffs)

trunk/DataStore/scripts/dsleech

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: dsleech,v 1.4 2006-11-02 03:15:08 jhoblitt Exp $
+# $Id: dsleech,v 1.5 2007-01-25 03:39:31 jhoblitt Exp $
 
 use strict;
@@ -24 +24 @@
     'uri|u=s'           => \$uri,
     'last_fileset|l=s'  => \$last_fileset,
+    'overwrite|o'       => \$overwrite,
     'recall'            => \$recall,
     'remember'          => \$remember,
@@ -71 +72 @@
 }
 
-process_filesets($filesets, $dir, $verbose) or die "failed to process filesets";
+process_filesets($filesets, $dir, $overwrite, $verbose) or die "failed to process filesets";
 
 # if we got this far we're assuming that the downloads completed and we can
@@ -86 +87 @@
 sub process_filesets
 {
-    my ($filsets, $dir, $verbose) = @_;
+    my ($filsets, $dir, $overwrite $verbose) = @_;
 
     foreach my $fileset (@$filesets) {
@@ -104 +105 @@
         }
 
-        if (!process_files($files, $dir, $verbose)) {
+        if (!process_files($files, $dir, $overwrite, $verbose)) {
             warn "failed to process files";
             return;
@@ -115 +116 @@
 sub process_files
 {
-    my ($files, $dir, $vebose) = @_;
+    my ($files, $dir, $overwrite, $vebose) = @_;
 
     foreach my $file (@$files) {
@@ -137 +138 @@
         # make sure that filename doesn't already exist
         if (-e $filename) {
-            warn "file $filename already exists, skipping...";
-            next;
+            if ($overwrite) {
+                warn "file $filename already exists, overwriting...";
+            } else {
+                warn "file $filename already exists, skipping...";
+                next;
+            }
         }
 
@@ -226 +231 @@
 This flag is optional.
 
+=item * --overwrite
+
+If a file already exists, overwrite it.
+
+This flag is optional.
+
 =item * --recall