Changeset 158

Timestamp:

07/30/07 22:37:26 (2 years ago)

Author:

bradfitz

Message:

+ - Amazon list_backups and delete backups (and delete for filesystem
+ target too), from Alessandro Ranellucci <aar@…>

Location:

trunk

Files:

• Changes (modified) (1 diff)
• brackup-target (modified) (2 diffs)
• lib/Brackup/Target/Amazon.pm (modified) (1 diff)
• lib/Brackup/Target/Filesystem.pm (modified) (1 diff)

trunk/Changes

@@ +1 @@
+  - Amazon list_backups and delete backups (and delete for filesystem
+    target too), from Alessandro Ranellucci <aar@cpan.org>
+
   - make tests pass on OS X (Jesse Vincent)
 

trunk/brackup-target

@@ -107 +107 @@
     my $name = shift @ARGV or
         die "get_backup requires a filename to download";
-    $target->get_backup($name);
+    $target->get_backup($name)
+                or die "Failed to retrieve backup $name\n";
 }
 
@@ -122 +123 @@
         $target->get_backup($si->filename);
     }
+}
+
+sub CMD_delete_backup {
+    my $name = shift @ARGV or
+        die "delete_backup requires a filename to download";
+    $target->delete_backup($name)
+                or die "Failed to delete backup $name\n";
 }
 

trunk/lib/Brackup/Target/Amazon.pm

@@ -143 +143 @@
 }
 
+sub backups {
+    my $self = shift;
+
+    my @ret;
+    my $backups = $self->{s3}->list_bucket_all({ bucket => $self->{backup_bucket} });
+    foreach my $backup (@{ $backups->{keys} }) {
+        push @ret, Brackup::TargetBackupStatInfo->new($self, $backup->{key},
+                                                      time => $backup->{last_modified},
+                                                      size => $backup->{size});
+    }
+    return @ret;
+}
+
+sub get_backup {
+    my $self = shift;
+    my $name = shift;
+        
+    my $bucket = $self->{s3}->bucket($self->{backup_bucket});
+    my $val = $bucket->get_key($name)
+        or return 0;
+        
+    open(my $out, ">$name.brackup") or die "Failed to open $name.brackup: $!\n";
+    my $outv = syswrite($out, $val->{value});
+    die "download/write error" unless $outv == do { use bytes; length $val->{value} };
+    close $out;
+    return 1;
+}
+
+sub delete_backup {
+    my $self = shift;
+    my $name = shift;
+        
+    my $bucket = $self->{s3}->bucket($self->{backup_bucket});
+    return $bucket->delete_key($name);
+}
+
 1;
 

trunk/lib/Brackup/Target/Filesystem.pm

@@ -152 +152 @@
 }
 
+sub delete_backup {
+    my $self = shift;
+    my $name = shift;
+
+    my $file = sprintf '%s/%s.brackup', $self->_metafile_dir, $name;
+    die "File doesn't exist: $file" unless -e $file;
+    unlink $file;
+    return 1;
+}
+
 1;