X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=gal2%2FUCW%2FGallery%2FWeb.pm;h=dbf913a63de4858f97fbdb8ef1359cb08cbf4d47;hb=426863234124dfad2c43a3d6967680c7217bc090;hp=ac333619c9b9e0684f9fb63af800bd7bfe8c8ba0;hpb=3458be45556b066cd093f5c0696c1627808d71f6;p=gallery.git diff --git a/gal2/UCW/Gallery/Web.pm b/gal2/UCW/Gallery/Web.pm index ac33361..dbf913a 100644 --- a/gal2/UCW/Gallery/Web.pm +++ b/gal2/UCW/Gallery/Web.pm @@ -3,146 +3,164 @@ package UCW::Gallery::Web; -use UCW::Gallery qw(%CF); +use strict; +use warnings; + +use UCW::Gallery; use UCW::CGI; use File::Spec; my $show_img; -my $send_archive; +my $want_archive; my %args = ( 'i' => { 'var' => \$show_img, 'check' => '\d+' }, - 'a' => { 'var' => \$send_archive } + 'a' => { 'var' => \$want_archive }, ); -our $meta; -our $num_photos; - -sub new() { - if ($send_archive && $CF{'AllowArchives'}) { - # FIXME? - require UCW::Gallery::Archive; - return new UCW::Gallery::Archive($send_archive); - } else { - return bless {}; - } -} - sub error($) { print "
Bad luck, the script is broken. Sorry.\n
$_[0]\n"; print "