Contents 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	#!/usr/local/bin/perl
2	use strict;
3	no utf8;
4
5	use lib "/data/backuppc-agi//lib";
6	use DBI;
7	use BackupPC::Lib;
8
9	my $bpc = BackupPC::Lib->new \|\| die "can't create BackupPC::Lib";
10	my %Conf = $bpc->Conf();
11
12	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	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	$host_share =~ s/(.?):(.)/$1_$2_/gi;
37	my $filename = $tar_dir."/".$host_share . $row->{num}.".tar.gz";
38	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