Annotation of /trunk/bin/BackupPC_checkArchiveConsistency

#!/usr/local/bin/perl
use strict;
no utf8;

use lib "/data/backuppc-agi//lib";
use DBI;
use BackupPC::Lib;

my $bpc = BackupPC::Lib->new || die "can't create BackupPC::Lib";
my %Conf = $bpc->Conf();

my $dsn = $Conf{SearchDSN} || die "need searchdsn in config.pl\n";
my $user = $Conf{SearchUser} || '';
my $dbh = DBI->connect($dsn, $user, "", { raiseerror => 1, autocommit => 0 });
my $tar_dir = $Conf{InstallDir}.'/'.$Conf{GzipTempDir};
my $dvd_nr = $ARGV[0];

if (!defined($dvd_nr)) {
        print q{
        No dvd_nr parameter! 
        Usage:
                $0 <dvd_nr>
        };
        exit(0);
}

my $sql = q{
        SELECT * 
        FROM backups_on_dvds
        WHERE dvd_nr = ?
};
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;
        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...";
        if ($fs_size != $row->{gzip_size}) {
                print "INVALID: fs_size: $fs_size, db_size: ".$row->{gzip_size}."\n";
        } else {
                print "ok\n";
        }

}
$sth->finish();
$dbh->disconnect();


1	iklaric	381	#!/usr/local/bin/perl
2	iklaric	375	use strict;
3			no utf8;
4
5	iklaric	381	use lib "/data/backuppc-agi//lib";
6	iklaric	375	use DBI;
7	iklaric	381	use BackupPC::Lib;
8	iklaric	375
9			my $bpc = BackupPC::Lib->new \|\| die "can't create BackupPC::Lib";
10			my %Conf = $bpc->Conf();
11
12	iklaric	381	my $dsn = $Conf{SearchDSN} \|\| die "need searchdsn in config.pl\n";
13			my $user = $Conf{SearchUser} \|\| '';
14			my $dbh = DBI->connect($dsn, $user, "", { raiseerror => 1, autocommit => 0 });
15	iklaric	375	my $tar_dir = $Conf{InstallDir}.'/'.$Conf{GzipTempDir};
16			my $dvd_nr = $ARGV[0];
17
18			if (!defined($dvd_nr)) {
19			print q{
20			No dvd_nr parameter!
21			Usage:
22			$0 <dvd_nr>
23			};
24			exit(0);
25			}
26
27			my $sql = q{
28			SELECT *
29			FROM backups_on_dvds
30			WHERE dvd_nr = ?
31			};
32			my $sth = $dbh->prepare($sql);
33			$sth->execute($dvd_nr);
34			while (my $row = $sth->fetchrow_hashref()) {
35			my $host_share = $row->{share};
36	iklaric	381	$host_share =~ s/(.?):(.)/$1_$2_/gi;
37			my $filename = $tar_dir."/".$host_share . $row->{num}.".tar.gz";
38	iklaric	375	my (undef, undef, undef, undef, undef, undef, undef, $fs_size, undef, undef, undef, undef, undef) = stat($filename);
39			print "checking $filename...";
40			if ($fs_size != $row->{gzip_size}) {
41			print "INVALID: fs_size: $fs_size, db_size: ".$row->{gzip_size}."\n";
42			} else {
43			print "ok\n";
44			}
45
46			}
47			$sth->finish();
48			$dbh->disconnect();
49
50