Changeset 11288

Timestamp:

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

Author:

jhoblitt

Message:

add --overwrite option to dsleech

Location:

trunk/DataStore

Files:

• Changes (modified) (1 diff)
• lib/DataStore.pm (modified) (2 diffs)
• scripts/dsleech (modified) (8 diffs)

trunk/DataStore/Changes

@@ -4 +4 @@
     - fix dsleech to handle valid but empty filesets
     - change dsfilesetls to output "extra" fields
+    - add --overwrite option to dsleech
 
 0.05 Fri Sep  1 11:28:13 HST 2006

trunk/DataStore/lib/DataStore.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: DataStore.pm,v 1.8 2006-09-01 21:19:04 jhoblitt Exp $
+# $Id: DataStore.pm,v 1.9 2007-01-25 03:39:31 jhoblitt Exp $
 
 package DataStore;
@@ -9 +9 @@
 
 use vars qw($VERSION);
-$VERSION = '0.05';
+$VERSION = '0.06';
 
 =pod

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