projects
/
BackupPC.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8028b56
)
fix shares which start with slash /
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 4 Jan 2011 15:41:24 +0000
(15:41 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 4 Jan 2011 15:41:24 +0000
(15:41 +0000)
bin/BackupPC_checkArchiveConsistency
patch
|
blob
|
history
diff --git
a/bin/BackupPC_checkArchiveConsistency
b/bin/BackupPC_checkArchiveConsistency
index
eb202e1
..
169d0d3
100755
(executable)
--- a/
bin/BackupPC_checkArchiveConsistency
+++ b/
bin/BackupPC_checkArchiveConsistency
@@
-33,7
+33,7
@@
my $sth = $dbh->prepare($sql);
$sth->execute($dvd_nr);
while (my $row = $sth->fetchrow_hashref()) {
my $host_share = $row->{share};
- $host_share =~ s/(.*?):(.*)/$1_$2_/gi;
+ $host_share =~ s/(.*?):
\/?
(.*)/$1_$2_/gi;
my $filename = $tar_dir."/".$host_share . $row->{num}.".tar.gz";
my (undef, undef, undef, undef, undef, undef, undef, $fs_size, undef, undef, undef, undef, undef) = stat($filename);
print "checking $filename...";