2 # (c) 2003--2005 Martin Mares <mj@ucw.cz>
10 # Standard Perl module stuff
12 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
15 @EXPORT = qw(&SetOptions &Start &img &Finish &RawHTML);
24 $CF{"Title"} = "An Unnamed Gallery",
25 $CF{"HeadExtras"} = "",
26 $CF{"TopExtras"} = "",
27 $CF{"BotExtras"} = "",
28 $CF{"ParentURL"} = "../",
31 $CF{"ImageSubpages"} = 1,
32 $CF{"AllowArchives"} = 1,
33 $CF{"PhotoUrlPrefix"} = "",
34 $CF{"ThumbUrlPrefix"} = "",
35 $CF{"MetaDataDir"} = ".",
36 $CF{"PhotoDir"} = ".",
37 $CF{"ThumbDir"} = ".",
41 while (my $o = shift @_) {
45 require $CF{"GalDir"} . "/$v/theme.pm";
46 Gallery::Theme::Init($CF{"GalURL"} . "/$v");
52 if (defined $ENV{"GATEWAY_INTERFACE"}) {
54 $th = new Gallery::Web;
56 if (@ARGV && $ARGV[0] eq "--generate") {
57 require Gallery::Generator;
58 $th = new Gallery::Generator;
60 print STDERR "Usage: $0 [--generate]\n";