X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_incPartsUpdate;h=bed439f062e8164d7cea6f195bf606240c57244f;hp=21a27593f46115b2d8e5670e07e9872ca3f24769;hb=18add9ff73c8924a7c5acdcf57be9b4024da53c1;hpb=7a32113752f3f32255ee76bf1f28048af2b39827 diff --git a/bin/BackupPC_incPartsUpdate b/bin/BackupPC_incPartsUpdate index 21a2759..bed439f 100755 --- a/bin/BackupPC_incPartsUpdate +++ b/bin/BackupPC_incPartsUpdate @@ -1,7 +1,7 @@ #!/usr/local/bin/perl -w use strict; -use lib "__INSTALLDIR__/lib"; +use lib "/usr/local/BackupPC/lib"; use DBI; use BackupPC::Lib; @@ -72,8 +72,8 @@ $pidfile->write; my $bpc = BackupPC::Lib->new || die "can't create BackupPC::Lib"; my %Conf = $bpc->Conf(); -use BackupPC::SearchLib; -%BackupPC::SearchLib::Conf = %Conf; +use BackupPC::Search; +%BackupPC::Search::Conf = %Conf; my $path = abs_path($0); $path =~ s#/[^/]+$#/#; @@ -413,10 +413,10 @@ while (my $row = $sth->fetchrow_hashref) { $curr_backup++; - my $tar_file = BackupPC::SearchLib::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'}); + my $tar_file = BackupPC::Search::getGzipName($row->{'host'}, $row->{'share'}, $row->{'num'}); # this will return -1 if file doesn't exist - my $size = BackupPC::SearchLib::get_tgz_size_by_name($tar_file); + my $size = BackupPC::Search::get_tgz_size_by_name($tar_file); print "# host: ".$row->{host}.", share: ".$row->{'share'}.", backup_num:".$row->{num}." size: $size backup.size: ", $row->{inc_size},"\n" if ($opt{d});