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