projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Various changes for 3.0.0beta1
[BackupPC.git]
/
lib
/
BackupPC
/
View.pm
diff --git
a/lib/BackupPC/View.pm
b/lib/BackupPC/View.pm
index
d879de2
..
f550b00
100644
(file)
--- a/
lib/BackupPC/View.pm
+++ b/
lib/BackupPC/View.pm
@@
-31,7
+31,7
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version 3.0.0beta
0, released 11
Jul 2006.
+# Version 3.0.0beta
1, released 30
Jul 2006.
#
# See http://backuppc.sourceforge.net.
#
#
# See http://backuppc.sourceforge.net.
#
@@
-140,7
+140,7
@@
sub dirCache
}
}
foreach my $file ( @dir ) {
}
}
foreach my $file ( @dir ) {
- $file = $1 if ( $file =~ /(.*)/ );
+ $file = $1 if ( $file =~ /(.*)/
s
);
my $fileUM = $file;
$fileUM = $m->{bpc}->fileNameUnmangle($fileUM) if ( $mangle );
#print(STDERR "Doing $fileUM\n");
my $fileUM = $file;
$fileUM = $m->{bpc}->fileNameUnmangle($fileUM) if ( $mangle );
#print(STDERR "Doing $fileUM\n");
@@
-249,7
+249,7
@@
sub shareList
my @dir = readdir(DIR);
closedir(DIR);
foreach my $file ( @dir ) {
my @dir = readdir(DIR);
closedir(DIR);
foreach my $file ( @dir ) {
- $file = $1 if ( $file =~ /(.*)/ );
+ $file = $1 if ( $file =~ /(.*)/
s
);
next if ( $file eq "attrib" && $mangle
|| $file eq "."
|| $file eq ".."
next if ( $file eq "attrib" && $mangle
|| $file eq "."
|| $file eq ".."
@@
-289,7
+289,7
@@
sub fileAttrib
my($m, $backupNum, $share, $path) = @_;
#print(STDERR "fileAttrib($backupNum, $share, $path)\n");
my($m, $backupNum, $share, $path) = @_;
#print(STDERR "fileAttrib($backupNum, $share, $path)\n");
- if ( $path =~ s{(.*)/+(.+)}{$1} ) {
+ if ( $path =~ s{(.*)/+(.+)}{$1}
s
) {
my $file = $2;
$m->dirCache($backupNum, $share, $path);
return $m->{files}{$file};
my $file = $2;
$m->dirCache($backupNum, $share, $path);
return $m->{files}{$file};
@@
-401,7
+401,7
@@
sub dirHistory
}
}
foreach my $file ( @dir ) {
}
}
foreach my $file ( @dir ) {
- $file = $1 if ( $file =~ /(.*)/ );
+ $file = $1 if ( $file =~ /(.*)/
s
);
my $fileUM = $file;
$fileUM = $m->{bpc}->fileNameUnmangle($fileUM) if ( $mangle );
#print(STDERR "Doing $fileUM\n");
my $fileUM = $file;
$fileUM = $m->{bpc}->fileNameUnmangle($fileUM) if ( $mangle );
#print(STDERR "Doing $fileUM\n");