example/default.cf

   1 # Generic configuration file for UCW::Gallery
   2
   3 use common::sense;
   4
   5 use UCW::Gallery;
   6 use Cwd;
   7
   8 our $base_dir;
   9 our $gallery;
  10 our $static_dir;
  11 our $lib_dir;
  12
  13 BEGIN {
  14         my $current_dir = getcwd;
  15         if (($base_dir, $gallery) = $current_dir =~ m{(.*)/lib/photos/(.*)}) {
  16                 # We are called from the generated web tree
  17                 $static_dir = "$base_dir/static";
  18                 $lib_dir = "$base_dir/lib";
  19         } elsif (($base_dir, $gallery) = $current_dir =~ m{(.*/web)/photos/(.*)}) {
  20                 # We are called from the source tree
  21                 $static_dir = "$base_dir/static";       # Expecting symlink to static
  22                 $lib_dir = $base_dir;
  23         } else {
  24                 die "photos/default.cf: Please call me from the right directory\n";
  25         }
  26 }
  27
  28 use lib "$lib_dir/perl";
  29
  30 my $gal = UCW::Gallery->new();
  31
  32 $gal->set(
  33         OrigDir => '/home/mj/photos',
  34         PhotoDir => "$static_dir/gallery/photo/$gallery",
  35         CacheDir => "$static_dir/gallery/cache/$gallery",
  36         CacheExif => 1,
  37
  38         PhotoUrlPrefix => 'photo/',             # Rewritten by mod_rewrite later
  39         ThumbUrlPrefix => 'thumb/',
  40         ThemeUrlPrefix => '/gal/',
  41
  42         ParentURL => '/photos/',
  43         WebHeadExtras => "<link rel=stylesheet href='/mj.css' type='text/css' media=all>\n",
  44         WebBotExtras => sub ($) {
  45                 my ($self) = @_;
  46                 return "" if $self->showing_image;
  47                 my $ziplink = "<p>The whole gallery can be also <button class=gal-zip type=submit name=a value=zip>downloaded as a ZIP archive.</button>";
  48                 return <<AMEN ;
  49 <div class=gal-bottom><p class=gal-sep><hr>
  50 <form action='.' method=POST>
  51 $ziplink
  52 </form></div>
  53 AMEN
  54         },
  55 );
  56
  57 return $gal;