gal2/bin/gal-mj-upgrade

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