Changeset 148

Timestamp:

05/23/07 16:27:23 (3 years ago)

Author:

bradfitz

Message:

commands to get brackup files from server

Location:

trunk

Files:

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

trunk/brackup-target

@@ -95 +95 @@
 
 sub CMD_list_backups {
-    use Data::Dumper;
     foreach my $si ($target->backups) {
         printf("%-35s %-20s %10d\n",
@@ -104 +103 @@
     return 1;
 }
-   
+
+sub CMD_get_backup {
+    my $name = shift @ARGV or
+        die "get_backup requires a filename to download";
+    $target->get_backup($name);
+}
+
+sub CMD_get_backups {
+    foreach my $si ($target->backups) {
+        debug("Fetching " . $si->filename);
+        $target->get_backup($si->filename);
+    }
+}
+
+sub debug {
+    my $msg = shift;
+    return unless $opt_verbose;
+    warn "$msg\n";
+}
 
 

trunk/lib/Brackup/Target.pm

@@ -68 +68 @@
 }
 
+# downloads the given backup name to the current directory (with
+# *.brackup extension)
+sub get_backup {
+    my ($self, $name) = @_;
+    die "ERROR: get_backup method not implemented in sub-class $self";
+}
+
 1;
 

trunk/lib/Brackup/Target/Filesystem.pm

@@ -123 +123 @@
     my @ret = ();
     while (my $fn = readdir($dh)) {
-        next unless $fn =~ /\.brackup$/;
-        my $stat = File::stat::stat("$dir/$fn");
+        next unless $fn =~ s/\.brackup$//;
+        my $stat = File::stat::stat("$dir/$fn.brackup");
         push @ret, Brackup::TargetBackupStatInfo->new($self, $fn,
                                                       time => $stat->mtime,
@@ -131 +131 @@
     closedir($dh);
     return @ret;
+}
+
+# downloads the given backup name to the current directory (with
+# *.brackup extension)
+sub get_backup {
+    my ($self, $name) = @_;
+    my $dir  = $self->_metafile_dir;
+    my $file = "$dir/$name.brackup";
+    die "File doesn't exist: $file" unless -e $file;
+    open(my $in,  $file)            or die "Failed to open $file: $!\n";
+    open(my $out, ">$name.brackup") or die "Failed to open $name.brackup: $!\n";
+    my $buf;
+    my $rv;
+    while ($rv = sysread($in, $buf, 128*1024)) {
+        my $outv = syswrite($out, $buf);
+        die "copy error" unless $outv == $rv;
+    }
+    die "copy error" unless defined $rv;
+    return 1;
 }