gal2/bin/gal-mj-upgrade

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Cwd;
   7
   8 system "gal", "mj-init";
   9 die if $?;
  10
  11 my $photos_root = $ENV{HOME} . '/photos';
  12
  13 my $album = $ARGV[0];
  14 if (!defined $album) {
  15         my $cwd = getcwd;
  16         $cwd =~ m{/photos/(.*)} or die "Cannot identify album from current directory, need to specify maunally.\n";
  17         $album = $1;
  18 }
  19
  20 open I, "index.cgi" or die;
  21 open S, "|-", "gal scan" or die;
  22 while (<I>) {
  23         /^img\(/ or next;
  24         /# .*(IMG_.*\.JPG) / or die;
  25         print S "$photos_root/$album/$1\n";
  26 }
  27 close S or die;
  28 close I;