use warnings;
use lib '/home/mj/web/gal2';
-use UCW::Gallery;
+use UCW::Gallery qw(%CF);
use File::Spec;
use Image::EXIF;
my @p = ();
while (my $e = readdir D) {
my $f = File::Spec->canonpath(File::Spec->catfile($in, $e));
- if ($f =~ m{\.jpe?g$}i) {
+ if ($f =~ m{\.(jpe?g|png)$}i) {
push @p, $f;
}
}
}
UCW::Gallery::LoadConfig;
-my $orig_prefix = $UCW::Gallery::CF{'OrigDir'};
+my $orig_prefix = $CF{'OrigDir'};
$orig_prefix =~ m{/$} or $orig_prefix .= '/';
print "Scanning photos\n";
file => $rel_name,
id => $id,
orientation => $o,
- xfrm => $UCW::Gallery::CF{'ScanDefaultTransform'},
+ xfrm => $CF{'ScanDefaultTransform'},
title => '',
};
print "ori=$o\n";