Changeset 161 for trunk/brackup-target

Timestamp:

08/02/07 20:54:41 (2 years ago)

Author:

bradfitz

Message:

'prune' and 'gc' commands commands for both Amazon
and Filesystem targets. from Alessandro Ranellucci <aar@…>.

Files:

• trunk/brackup-target (modified) (5 diffs)

trunk/brackup-target

@@ -11 +11 @@
  $ brackup-target [opts] <target_name> get_backups
  $ brackup-target [opts] <target_name> delete_backup <backup_file>
- $ brackup-target [opts] <target_name> gc   # run garbage collector
+ $ brackup-target [opts] <target_name> prune   # remove old backups
+ $ brackup-target [opts] <target_name> gc      # run garbage collector
 
 =head2 OPTIONS
@@ -24 +25 @@
 
 Be verbose with status.
+
+=item --dry-run
+
+Do not actually execute write operations.
+
+=item --keep-backups
+
+To be used in combination with the I<prune> command. This overrides the 
+I<keep_backups> option specified in the configuration file.
 
 =back
@@ -61 +71 @@
 my $opt_help;
 my $opt_verbose;
+my $opt_keep_backups;
+my $opt_dryrun;
 usage() unless
     GetOptions(
@@ -66 +78 @@
                'dest=s'   => \$destdir,
                'config=s' => \$config_file,
+               'keep-backups=i' => \$opt_keep_backups,
+               'dry-run'   => \$opt_dryrun,
                'help'     => \$opt_help,
                );
@@ -132 +146 @@
 }
 
+sub CMD_prune {
+    my $removed_count = $target->prune( keep_backups => $opt_keep_backups,
+                                        dryrun => $opt_dryrun);
+    debug("$removed_count backups removed from target");
+}
+
+sub CMD_gc {
+    my $removed_chunks = $target->gc(dryrun => $opt_dryrun);
+    debug("$removed_chunks chunks removed from target");
+}
+
 sub debug {
     my $msg = shift;