X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=gal2%2FUCW%2FGallery%2FWeb.pm;h=dbf913a63de4858f97fbdb8ef1359cb08cbf4d47;hb=426863234124dfad2c43a3d6967680c7217bc090;hp=d2a718ad372d277a644b8b3cc3fced5fe9aa6ba8;hpb=f9921003cf92c6e31af784bdf0e3f0e42d6fc25d;p=gallery.git diff --git a/gal2/UCW/Gallery/Web.pm b/gal2/UCW/Gallery/Web.pm index d2a718a..dbf913a 100644 --- a/gal2/UCW/Gallery/Web.pm +++ b/gal2/UCW/Gallery/Web.pm @@ -3,134 +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 $want_archive; my %args = ( 'i' => { 'var' => \$show_img, 'check' => '\d+' }, + 'a' => { 'var' => \$want_archive }, ); -our $meta; -our $num_photos; - sub error($) { print "
Bad luck, the script is broken. Sorry.\n
$_[0]\n"; print "