1 # Simple Photo Gallery: Web Interface
2 # (c) 2003--2012 Martin Mares <mj@ucw.cz>
4 package UCW::Gallery::Web;
16 'i' => { 'var' => \$show_img, 'check' => '\d+' },
17 'a' => { 'var' => \$want_archive },
21 print "<p style='color:red'>Bad luck, the script is broken. Sorry.\n<p>$_[0]\n";
22 print "</body></html>\n";
26 my ($self, $key) = @_;
27 return $self->{gal}->get($key);
31 my ($self, $key) = @_;
32 my $val = $self->get($key);
33 if (ref $val eq 'CODE') {
40 # For use by extras hooks
46 # For use by extras hooks: return true if we are showing an image page, false for index page
47 sub showing_image($) {
49 return $show_img ne "";
54 my $title = $self->get('Title');
55 my $hextras = $self->extras('WebHeadExtras');
56 my $theme_hextras = $self->theme_head_extras;
58 Content-Type: text/html
60 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
62 $hextras$theme_hextras<title>$title</title>
66 $UCW::CGI::ErrorHandler::error_hook = \&error;
68 # WebTopExtras are evaluated separately, since they can override the error hook
69 print $self->extras('WebTopExtras');
74 print $self->extras('WebBotExtras'), "</body></html>\n";
80 if ($show_img < 1 || $show_img > $self->{num_photos}) {
81 UCW::CGI::http_error('404 No such photo');
85 my $meta = $self->{meta};
86 my $id = $meta->{sequence}->[$show_img-1];
87 my $m = $meta->{photo}->{$id} or die;
90 $self->show_links(($show_img > 1 ? ("?i=".($show_img-1)) : ""),
92 ($show_img < $self->{num_photos} ? ("?i=".($show_img+1)) : ""));
94 my $t = UCW::CGI::html_escape($m->{title});
97 print "<h1>$t</h1>\n" if $t ne "";
98 my $img = $self->get('PhotoUrlPrefix') . $self->{gal}->photo_file_name($m, $id);
99 print "<p class=large><img src='$img' width=$w height=$h alt='$t'>\n";
104 sub show_pre_thumbs($) {
108 sub show_post_thumbs($) {
116 $self->show_links($self->get('BackURL'), $self->get('ParentURL'), $self->get('FwdURL'));
117 print "<h1>", $self->get('Title'), "</h1>\n";
118 my $subtitle = $self->get('SubTitle');
119 print "<h2>$subtitle</h2>\n" if $subtitle ne "";
120 $self->show_pre_thumbs;
122 my $meta = $self->{meta};
123 for my $idx (1..$self->{num_photos}) {
124 my $id = $meta->{sequence}->[$idx-1];
125 my $m = $meta->{photo}->{$id};
127 if ($self->get('WebImageSubpages')) {
128 $click_url = "?i=$idx";
130 $click_url = $self->get('PhotoUrlPrefix') . $self->{gal}->photo_file_name($m, $id);
132 $self->show_thumb($meta, $id, $click_url);
135 $self->show_post_thumbs;
141 binmode STDOUT, ':utf8';
142 UCW::CGI::parse_args(\%args);
143 $self->{meta} = $self->{gal}->read_meta(File::Spec->catfile($self->get('CacheDir'), 'cache.meta'));
144 $self->{num_photos} = scalar @{$self->{meta}->{sequence}};
147 require UCW::Gallery::Archive;
148 UCW::Gallery::Archive::send_archive($self->{gal}, $self->{meta});
149 } elsif ($show_img ne "") {
157 my ($class, $gal) = @_;
158 my $self = { gal => $gal };
162 # Extras are either strings or functions called with the current gallery object as parameter
167 # Used by the theming logic
168 WebThemeCSS => undef,
170 # 1 if thumbnail link to sub-pages with images, 0 if they link directly to image files
171 WebImageSubpages => 1,
173 # If enabled, calling the CGI with a=zip produces a ZIP archive with all photos.
174 WebAllowArchives => 1,