2 # This is a hack, which takes a Digikam album, finds all photos
3 # possessing a "web" tag and imports them to UCW::Gallery.
11 if (@ARGV && $ARGV[0] eq '--help') {
13 Usage: gal mj-digikam [<album>]
17 my $photos_root = $ENV{HOME} . '/photos';
20 if (!defined $album) {
22 $cwd =~ m{/photos/(.*)} or die "Cannot identify album from current directory, need to specify maunally.\n";
26 if (! -f "gallery.cf") {
27 system 'gal', 'mj-init'; die if $?;
30 my $dbfile = "$photos_root/digikam4.db";
31 my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "") or die "Cannot access $dbfile\n";
34 for my $r (@{$dbh->selectall_arrayref(
35 'SELECT a.id AS id, r.label AS label, a.relativePath AS rpath FROM Albums a JOIN AlbumRoots r ON (r.id = a.albumRoot)',
37 my $name = $r->{label} . $r->{rpath};
39 $alba{$name} = $r->{id};
42 my $album_id = $alba{$album} // die "Unknown album $album\n";
43 print "## Album $album: id=$album_id\n";
45 my ($tag_id) = $dbh->selectrow_array('SELECT id FROM Tags WHERE pid=0 AND name="web"');
46 $tag_id // die "Cannot find web tag\n";
47 print "## Tag ID: $tag_id\n";
49 my $res = $dbh->selectall_arrayref( <<AMEN, { Slice => {} },
52 p.latitudeNumber AS lat,
53 p.longitudeNumber AS lon,
55 inf.creationDate AS cdate
57 JOIN ImageTags t ON (i.id = t.imageid)
58 LEFT JOIN ImagePositions p ON (i.id = p.imageid)
59 LEFT JOIN ImageInformation inf ON (i.id = inf.imageid)
60 WHERE i.album=? AND t.tagid=?
61 ORDER BY cdate, i.modificationDate
67 open OUT, '|-', $ENV{GALLERY_ROOT} . '/bin/gal-scan' or die "Cannot feed gal scan\n";
69 print OUT "$photos_root/$album/" . $r->{name}, "\n";
70 for my $k (qw(lat lon alt)) {
71 print OUT "\t$k=", $r->{$k}, "\n" if defined $r->{$k};