5 use lib $ENV{'DOCUMENT_ROOT'} . "/../lib/gal/lib";
6 use lib $ENV{'DOCUMENT_ROOT'} . "/../lib/perl";
8 use UCW::CGI::ErrorHandler;
10 use UCW::Gallery::Web::HighSlide;
13 UCW::CGI::parse_args({
14 dir => { var => \$dir, check => '^\w+(/([A-Za-z0-9][A-Za-z0-9.-]*))*$' },
17 my $path = $ENV{'DOCUMENT_ROOT'} . "/../lib/photos/$dir";
18 if ($dir ne "" && -f "$path/gallery.cf") {
20 my $gal = UCW::Gallery->load_config();
21 UCW::Gallery::Web::HighSlide->run($gal);
23 print STDERR "Gallery not found: $path\n";
24 UCW::CGI::http_error("404 Gallery Not Found");