8 system "gal", "mj-init";
11 my $photos_root = $ENV{HOME} . '/photos';
14 if (!defined $album) {
16 $cwd =~ m{/photos/(.*)} or die "Cannot identify album from current directory, need to specify maunally.\n";
20 open I, "index.cgi" or die;
21 open S, "|-", "gal scan" or die;
24 /# .*(IMG_.*\.JPG) / or die;
25 print S "$photos_root/$album/$1\n";