7 use Encode
qw{encode_utf8 decode_utf8
};
10 BEGIN { binmode STDOUT
, ":utf8"; }
12 my $ROOT = "/mnt/dvd/archive";
13 my $DB = DBI
->connect("dbi:Pg:host=roadstar", "", "",
20 if (/\.iso$/ && ! -l
&& -f
) {
21 my $fn = decode_utf8
$File::Find
::name
;
29 my $st_set = $DB->prepare("SELECT id, name, n_disc FROM dvd_set");
30 my $st_disc = $DB->prepare
31 ("SELECT disc, path FROM dvd_disc WHERE set_id = ? ORDER BY disc");
34 while (my @r = $st_set->fetchrow_array) {
35 my ($id, $name, $ndisc) = @r;
38 $st_disc->execute($id);
39 while (my @r = $st_disc->fetchrow_array) {
40 my ($disc, $path) = @r;
41 $disc == @path or die "bad disc sequence for `$name'";
44 @path == $ndisc or die "wrong number of discs for `$name'";
45 $set_path{$name} = \
@path; $set_id{$name} = $id;
48 for my $name (keys %set_path) {
50 for my $path (@
{$set_path{$name}}) {
51 if (defined $path && exists $iso{$path}) { delete $iso{$path}; }
54 ##if ($allp) { delete $set_path{$name}; }
57 my @iso = sort keys %iso;
58 for my $name (sort { $set_path{$a}[0] cmp $set_path{$b}[0] }
60 my $paths = $set_path{$name};
62 while (@iso && $iso[0] lt $paths->[0]) { push @unk, shift @iso; }
65 for my $path (@unk) { print "\t", $path, "\n"; }
67 printf "[#%d: %d] %s\n", $set_id{$name}, scalar @
$paths, $name;
69 for my $path (@
$paths) {
72 printf "\t!! (disc %d)\n", $i;
74 my $fn = "$ROOT/$path";
75 if (-f
$fn && ! -l
$fn) { print "\t" . $path . "\n"; }
76 else { print "\t!! ". $path . "\n"; }
83 for my $path (@iso) { print "\t", $path, "\n"; }