Gallery2: Missing bits

[gallery.git] / gal2 / UCW / Gallery.pm

diff --git a/gal2/UCW/Gallery.pm b/gal2/UCW/Gallery.pm
index f13889d2d032f936dde83e04ac89ca51a8a54b1f..f0a1e97ccb01cd11f69f94793d4cf481ab6d084a 100644 (file)
--- a/gal2/UCW/Gallery.pm
+++ b/gal2/UCW/Gallery.pm
@@ -20,9 +20,9 @@ BEGIN {
 }
 
 our %CF;
-our $th;
 
 BEGIN {
+       # FIXME: Check config
        $CF{'Title'} = 'An Unnamed Gallery',
        $CF{'HeadExtras'} = "",
        $CF{'TopExtras'} = "",
@@ -36,13 +36,15 @@ BEGIN {
        $CF{'ThumbUrlPrefix'} = "",
        $CF{'MetaDataDir'} = '.',
        $CF{'PhotoDir'} = '.',
+       # FIXME: Who sets GalDir?
 
-       $CF{'ScanDefaultTransform'} = 'n';
+       $CF{'ScanDefaultTransform'} = 's';
        $CF{'OrigDir'} = '.';
        $CF{'PhotoDir'} = 'photo';
-       $CF{'CacheDir'} = "cache",
+       $CF{'CacheDir'} = 'cache',
        $CF{'PhotoMaxWidth'} = 1024,
        $CF{'PhotoMaxHeight'} = 1024,
+       $CF{'ThumbFormats'} = {},
 }
 
 sub LoadConfig() {
@@ -64,11 +66,17 @@ sub SetOptions(@) {
                $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";