projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
numeric_padding values are used in range search, and muse be sortable
[BackupPC.git]
/
bin
/
BackupPC_removeBurnedArchives
diff --git
a/bin/BackupPC_removeBurnedArchives
b/bin/BackupPC_removeBurnedArchives
index
da45dad
..
19faadd
100755
(executable)
--- a/
bin/BackupPC_removeBurnedArchives
+++ b/
bin/BackupPC_removeBurnedArchives
@@
-2,15
+2,15
@@
use strict;
no utf8;
use strict;
no utf8;
-use lib "
__INSTALLDIR__
/lib";
+use lib "
/usr/local/BackupPC
/lib";
use DBI;
use BackupPC::Lib;
use DBI;
use BackupPC::Lib;
-use BackupPC::Search
Lib
;
+use BackupPC::Search;
use Data::Dumper;
my $bpc = BackupPC::Lib->new || die "can't create BackupPC::Lib";
my %Conf = $bpc->Conf();
my $tar_dir = $Conf{InstallDir}."/".$Conf{GzipTempDir};
use Data::Dumper;
my $bpc = BackupPC::Lib->new || die "can't create BackupPC::Lib";
my %Conf = $bpc->Conf();
my $tar_dir = $Conf{InstallDir}."/".$Conf{GzipTempDir};
-%BackupPC::Search
Lib
::Conf = %Conf;
+%BackupPC::Search::Conf = %Conf;
#die(Dumper(\%Conf));
my $dsn = $Conf{SearchDSN} || die "need searchdsn in config.pl\n";
my $user = $Conf{SearchUser} || '';
#die(Dumper(\%Conf));
my $dsn = $Conf{SearchDSN} || die "need searchdsn in config.pl\n";
my $user = $Conf{SearchUser} || '';
@@
-31,11
+31,11
@@
my $totalRemoved = 0;
$sth->execute();
while (my $row = $sth->fetchrow_hashref()) {
$sth->execute();
while (my $row = $sth->fetchrow_hashref()) {
- my $filename = BackupPC::Search
Lib
::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
+ my $filename = BackupPC::Search::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'});
$filename .= ".tar.gz";
$filename = $tar_dir . "/" . $filename;
$filename .= ".tar.gz";
$filename = $tar_dir . "/" . $filename;
- my $fs_size =
stat($filename
)[7];
+ my $fs_size =
(stat($filename)
)[7];
$totalRemoved += $fs_size;
print "removing $filename... size: $fs_size\n";
# if (system("rm $filename") != 0) {
$totalRemoved += $fs_size;
print "removing $filename... size: $fs_size\n";
# if (system("rm $filename") != 0) {