|
Revision 136, 0.8 kB
(checked in by bradfitz, 3 years ago)
|
|
Checking in changes prior to tagging of version 1.02. Changelog diff is:
Index: Changes
===================================================================
--- Changes (revision 135)
+++ Changes (working copy)
@@ -1,3 +1,5 @@
+1.02 (may 22, 2007)
+
- support for merging little files together into big chunks
on the backup target. aka "tail packing". requires no changes
to target drivers. this should speed backups, as less network
|
-
Property svn:executable set to
*
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | |
|---|
| 3 | use strict; |
|---|
| 4 | |
|---|
| 5 | my $base = "/home/lj/htdocs/dev/brackup/"; |
|---|
| 6 | my $pshb = Goats->new; |
|---|
| 7 | $pshb->batch_convert([qw(brackup brackup-restore lib)], $base); |
|---|
| 8 | |
|---|
| 9 | package Goats; |
|---|
| 10 | |
|---|
| 11 | use strict; |
|---|
| 12 | use base 'Pod::Simple::HTMLBatch'; |
|---|
| 13 | |
|---|
| 14 | sub modnames2paths { |
|---|
| 15 | my ($self, $dirs) = @_; |
|---|
| 16 | |
|---|
| 17 | my @files; |
|---|
| 18 | my @dirs; |
|---|
| 19 | |
|---|
| 20 | foreach my $path (@{$dirs || []}) { |
|---|
| 21 | if (-f $path) { |
|---|
| 22 | push @files, $path; |
|---|
| 23 | } else { |
|---|
| 24 | push @dirs, $path; |
|---|
| 25 | } |
|---|
| 26 | } |
|---|
| 27 | |
|---|
| 28 | my $m2p = $self->SUPER::modnames2paths(\@dirs); |
|---|
| 29 | |
|---|
| 30 | foreach my $file (@files) { |
|---|
| 31 | my ($tail) = $file =~ m!([^/]+)\z!; |
|---|
| 32 | $m2p->{$tail} = $file; |
|---|
| 33 | } |
|---|
| 34 | |
|---|
| 35 | # these are symlinks in brad's lib |
|---|
| 36 | foreach my $k (keys %$m2p) { |
|---|
| 37 | delete $m2p->{$k} if $k eq "Danga::blib::lib::Danga::Socket" || $k eq "Danga::Socket"; |
|---|
| 38 | } |
|---|
| 39 | |
|---|
| 40 | return $m2p; |
|---|
| 41 | } |
|---|
