"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "bin/BackupPC_poolCntPrint" between
BackupPC-4.3.2.tar.gz and BackupPC-4.4.0.tar.gz

About: BackupPC is a high-performance, enterprise-grade system for backing up Linux and WinXX PCs and laptops to a server’s disk (http/cgi user interface).

BackupPC_poolCntPrint  (BackupPC-4.3.2):BackupPC_poolCntPrint  (BackupPC-4.4.0)
skipping to change at line 32 skipping to change at line 32
# This program is distributed in the hope that it will be useful, # This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of # but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details. # GNU General Public License for more details.
# #
# You should have received a copy of the GNU General Public License # You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. # along with this program. If not, see <http://www.gnu.org/licenses/>.
# #
#======================================================================== #========================================================================
# #
# Version 4.3.2, released 17 Feb 2020. # Version 4.4.0, released 20 Jun 2020.
# #
# See http://backuppc.sourceforge.net. # See http://backuppc.sourceforge.net.
# #
#======================================================================== #========================================================================
use strict; use strict;
no utf8; no utf8;
use lib "__INSTALLDIR__/lib"; use lib "__INSTALLDIR__/lib";
use BackupPC::Lib; use BackupPC::Lib;
use BackupPC::XS; use BackupPC::XS;
use Data::Dumper; use Data::Dumper;
die("BackupPC::Lib->new failed\n") if ( !(my $bpc = BackupPC::Lib->new) ); die("BackupPC::Lib->new failed\n") if ( !(my $bpc = BackupPC::Lib->new) );
my $TopDir = $bpc->TopDir(); my $TopDir = $bpc->TopDir();
my $BinDir = $bpc->BinDir(); my $BinDir = $bpc->BinDir();
my %Conf = $bpc->Conf(); my %Conf = $bpc->Conf();
my $s = $bpc->{storage}; my $s = $bpc->{storage};
my $digest; my $digest;
if ( @ARGV == 0 ) { if ( @ARGV == 0 ) {
print STDERR "Usage: $0 [poolCntFilePath|hexDigest]...\n"; print STDERR "Usage: $0 [poolCntFilePath|hexDigest]...\n";
exit(1); exit(1);
} }
while ( my $poolCntFile = shift(@ARGV) ) { while ( my $poolCntFile = shift(@ARGV) ) {
if ( !-f $poolCntFile ) { if ( !-f $poolCntFile ) {
if ( $poolCntFile =~ /^[\da-f]{16,}$/i ) { if ( $poolCntFile =~ /^[\da-f]{16,}$/i ) {
# #
# Print a specific digest count instead # Print a specific digest count instead
# #
$digest = pack("H*", $poolCntFile); $digest = pack("H*", $poolCntFile);
$poolCntFile = sprintf("%s/%02x/poolCnt", $poolCntFile = sprintf("%s/%02x/poolCnt",
$Conf{CompressLevel} ? $bpc->{CPoolDir} : $bpc $Conf{CompressLevel} ? $bpc->{CPoolDir} : $bpc->{PoolDir},
->{PoolDir}, vec($digest, 0, 8) & 0xfe);
vec($digest, 0, 8) & 0xfe);
} }
if ( !-f $poolCntFile ) { if ( !-f $poolCntFile ) {
print STDERR "$poolCntFile does not exist\n"; print STDERR "$poolCntFile does not exist\n";
exit(1); exit(1);
} }
} }
my $count = BackupPC::XS::PoolRefCnt::new(); my $count = BackupPC::XS::PoolRefCnt::new();
if ( $count->read($poolCntFile) ) { if ( $count->read($poolCntFile) ) {
 End of changes. 5 change blocks. 
6 lines changed or deleted 6 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)