}
our %CF;
-our $th;
BEGIN {
+ # FIXME: Check config
$CF{'Title'} = 'An Unnamed Gallery',
$CF{'HeadExtras'} = "",
$CF{'TopExtras'} = "",
$CF{'ThumbUrlPrefix'} = "",
$CF{'MetaDataDir'} = '.',
$CF{'PhotoDir'} = '.',
+ # FIXME: Who sets GalDir?
$CF{'ScanDefaultTransform'} = 's';
$CF{'OrigDir'} = '.';
$CF{'CacheDir'} = 'cache',
$CF{'PhotoMaxWidth'} = 1024,
$CF{'PhotoMaxHeight'} = 1024,
- # FIXME: ThumbSizes should be set by themes
- $CF{'ThumbSizes'} = [ [114,94], [256,256] ],
+ $CF{'ThumbFormats'} = {},
}
sub LoadConfig() {
$CF{$o} = $v;
if ($o eq "Theme") {
require $CF{"GalDir"} . "/$v/theme.pm";
- Gallery::Theme::Init($CF{"GalURL"} . "/$v");
+ UCW::Gallery::Theme::Init($CF{"GalURL"} . "/$v");
}
}
}
+sub RequireThumbnails($$) {
+ my ($w, $h) = @_;
+ my $fmt = "${w}x${h}";
+ $CF{'ThumbFormats'}->{$fmt} = 1;
+}
+
sub WriteList($$) {
my ($file, $images) = @_;
open LIST, '>', "$file.new" or die "Cannot create $file.new: $!\n";