From 3458be45556b066cd093f5c0696c1627808d71f6 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Mon, 24 Dec 2012 00:32:02 +0100
Subject: [PATCH] Gallery2: First attempts at web version

---
 gal2/UCW/Gallery.pm     |  14 ++--
 gal2/UCW/Gallery/Web.pm | 148 ++++++++++++++++++++++++++++++++++++++++
 gal2/gal-cache          |   5 +-
 gal2/gal-gen            |   6 +-
 gal2/nrt/back.png       | Bin 0 -> 590 bytes
 gal2/nrt/bot.png        | Bin 0 -> 721 bytes
 gal2/nrt/left.png       | Bin 0 -> 144 bytes
 gal2/nrt/next.png       | Bin 0 -> 1309 bytes
 gal2/nrt/prev.png       | Bin 0 -> 1352 bytes
 gal2/nrt/right.png      | Bin 0 -> 210 bytes
 gal2/nrt/style.css      |  17 +++++
 gal2/nrt/theme.conf     |  40 +++++++++++
 gal2/nrt/theme.pm       |  40 +++++++++++
 gal2/nrt/top.png        | Bin 0 -> 459 bytes
 14 files changed, 260 insertions(+), 10 deletions(-)
 create mode 100644 gal2/UCW/Gallery/Web.pm
 create mode 100644 gal2/nrt/back.png
 create mode 100644 gal2/nrt/bot.png
 create mode 100644 gal2/nrt/left.png
 create mode 100644 gal2/nrt/next.png
 create mode 100644 gal2/nrt/prev.png
 create mode 100644 gal2/nrt/right.png
 create mode 100644 gal2/nrt/style.css
 create mode 100644 gal2/nrt/theme.conf
 create mode 100644 gal2/nrt/theme.pm
 create mode 100644 gal2/nrt/top.png

diff --git a/gal2/UCW/Gallery.pm b/gal2/UCW/Gallery.pm
index 847de01..f0a1e97 100644
--- a/gal2/UCW/Gallery.pm
+++ b/gal2/UCW/Gallery.pm
@@ -20,9 +20,9 @@ BEGIN {
 }
 
 our %CF;
-our $th;
 
 BEGIN {
+	# FIXME: Check config
 	$CF{'Title'} = 'An Unnamed Gallery',
 	$CF{'HeadExtras'} = "",
 	$CF{'TopExtras'} = "",
@@ -36,6 +36,7 @@ BEGIN {
 	$CF{'ThumbUrlPrefix'} = "",
 	$CF{'MetaDataDir'} = '.',
 	$CF{'PhotoDir'} = '.',
+	# FIXME: Who sets GalDir?
 
 	$CF{'ScanDefaultTransform'} = 's';
 	$CF{'OrigDir'} = '.';
@@ -43,8 +44,7 @@ BEGIN {
 	$CF{'CacheDir'} = 'cache',
 	$CF{'PhotoMaxWidth'} = 1024,
 	$CF{'PhotoMaxHeight'} = 1024,
-	# FIXME: ThumbSizes should be set by themes
-	$CF{'ThumbSizes'} = [ [114,94], [256,256] ],
+	$CF{'ThumbFormats'} = {},
 }
 
 sub LoadConfig() {
@@ -66,11 +66,17 @@ sub SetOptions(@) {
 		$CF{$o} = $v;
 		if ($o eq "Theme") {
 			require $CF{"GalDir"} . "/$v/theme.pm";
-			Gallery::Theme::Init($CF{"GalURL"} . "/$v");
+			UCW::Gallery::Theme::Init($CF{"GalURL"} . "/$v");
 		}
 	}
 }
 
+sub RequireThumbnails($$) {
+	my ($w, $h) = @_;
+	my $fmt = "${w}x${h}";
+	$CF{'ThumbFormats'}->{$fmt} = 1;
+}
+
 sub WriteList($$) {
 	my ($file, $images) = @_;
 	open LIST, '>', "$file.new" or die "Cannot create $file.new: $!\n";
diff --git a/gal2/UCW/Gallery/Web.pm b/gal2/UCW/Gallery/Web.pm
new file mode 100644
index 0000000..ac33361
--- /dev/null
+++ b/gal2/UCW/Gallery/Web.pm
@@ -0,0 +1,148 @@
+# Simple Photo Gallery: Web Interface
+# (c) 2003--2012 Martin Mares <mj@ucw.cz>
+
+package UCW::Gallery::Web;
+
+use UCW::Gallery qw(%CF);
+use UCW::CGI;
+use File::Spec;
+
+my $show_img;
+my $send_archive;
+
+my %args = (
+	'i'	=> { 'var' => \$show_img, 'check' => '\d+' },
+	'a'	=> { 'var' => \$send_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 "<p style='color:red'>Bad luck, the script is broken. Sorry.\n<p>$_[0]\n";
+	print "</body></html>\n";
+}
+
+sub show_links($$$) {
+	my ($prev, $up, $next) = @_;
+	print "<p class=parent>";
+	print "<span class=back style='width: $CF{'BackW'}px; height: $CF{'BackH'}px'>";
+	print "<a href='$prev'><img src='$CF{'BackImg'}' width=$CF{'BackW'} height=$CF{'BackH'} alt='Back'></a>" if $prev ne "";
+	print "</span>\n";
+	print "<span class=fwd style='width: $CF{'FwdW'}px; height: $CF{'FwdH'}px'>";
+	print "<a href='$next'><img src='$CF{'FwdImg'}' width=$CF{'FwdW'} height=$CF{'FwdH'} alt='Forward'></a>" if $next ne "";
+	print "</span>\n";
+	print "<a href='$up'><img src='$CF{'ParentImg'}' width=$CF{'ParentW'} height=$CF{'ParentH'} alt='Up'></a>\n" if $up ne "";
+}
+
+sub html_top() {
+	my $title = UCW::CGI::html_escape($CF{"Title"});
+	print <<EOF ;
+Content-Type: text/html
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
+<html><head>
+$CF{"HeadExtras"}
+<link rel=stylesheet href="$CF{"StyleSheet"}" type="text/css" media=all>
+<title>$title</title>
+</head><body>
+$CF{"TopExtras"}
+EOF
+	$UCW::CGI::error_hook = \&error;
+}
+
+sub html_bot() {
+	print "$CF{'BotExtras'}\n</body></html>\n";
+}
+
+sub show_img() {
+	if ($show_img < 1 || $show_img > $num_photos) {
+		print "Status: 404\n";
+		html_top();
+		print "<h1>No such photo</h1>\n";
+		html_bot();
+		return;
+	}
+
+	my $id = $meta->{sequence}->[$show_img-1];
+	my $m = $meta->{photo}->{$id} or die;
+	html_top();
+
+	show_links(($show_img > 1 ? ("?i=".($show_img-1)) : ""),
+		   "?",
+		   ($show_img < $num_photos ? ("?i=".($show_img+1)) : ""));
+
+	my $t = UCW::CGI::html_escape($m->{title});
+	my $w = $m->{w};
+	my $h = $m->{h};
+	print "<h1>$t</h1>\n" if $t ne "";
+	my $img = $CF{'PhotoUrlPrefix'} . $id . ".jpg";
+	print "<p class=large><img src='$img' width=$w height=$h alt='$t'>\n";
+
+	html_bot();
+}
+
+sub show_list() {
+	html_top();
+
+	show_links($CF{'BackURL'}, $CF{'ParentURL'}, $CF{'FwdURL'});
+	print "<h1>$CF{'Title'}</h1>\n";
+	print "<h2>$CF{'SubTitle'}</h2>\n" if defined $CF{'SubTitle'};
+
+	my $thumb_fmt = $CF{'ThumbW'} . "x" . $CF{'ThumbH'};
+	my $thumb_meta = $meta->{thumb}->{$thumb_fmt} or die "No thumbnails for format $thumb_fmt found!\n";
+
+	for my $idx (1..$num_photos) {
+		my $id = $meta->{sequence}->[$idx-1];
+		my $m = $meta->{photo}->{$id} or die;
+		my $tm = $thumb_meta->{$id} or die;
+
+		my $annot = UCW::CGI::html_escape($m->{title});
+		my $tw = $tm->{w};
+		my $th = $tm->{h};
+		my $thumb = $CF{'ThumbUrlPrefix'} . "/$thumb_fmt/$id.jpg";
+		my $side_w = $CF{"ThumbW"} + 2*$CF{"InteriorMargin"};
+		my $side_h = $CF{"ThumbH"} + 2*$CF{"InteriorMargin"};
+		my $box_w = $CF{"LeftW"} + $side_w + $CF{"RightW"};
+		my $box_h = $CF{"TopH"} + $side_h + $CF{"BotH"};
+		print "<div class=thf><div class=thumb>\n";
+		print "<img src='$CF{'TopImg'}' width=$box_w height=$CF{'TopH'} alt='' class=tt>\n";
+		print "<img src='$CF{'LeftImg'}' width=$CF{'LeftW'} height=$side_h alt='' class=tl>\n";
+		my $ol = $CF{'LeftW'} + $CF{'InteriorMargin'} + int(($CF{'ThumbW'} - $tw)/2);
+		my $ot = $CF{'TopH'} + $CF{'InteriorMargin'} + int(($CF{'ThumbH'} - $th)/2);
+		my $tit = ($annot ne "") ? " title=\"$annot\"" : "";
+		my $url = ($CF{"ImageSubpages"} ? "?i=$id" : $orig);
+		print "<a href='$url'><img src='$thumb' width=$w height=$h alt='$orig'$tit class=ti style='left: ${ol}px; top: ${ot}px'></a>\n";
+		print "<img src='$CF{'RightImg'}' width=$CF{'RightW'} height=$side_h alt='' class=tr>\n";
+		print "<img src='$CF{'BotImg'}' width=$box_w height=$CF{'BotH'} alt='' class=tb>\n";
+		print "</div>\n";
+		print "</div>\n\n";
+	}
+
+	html_bot();
+}
+
+sub Dispatch() {
+	UCW::CGI::parse_args(\%args);
+	UCW::Gallery::LoadConfig();
+	$meta = UCW::Gallery::ReadMeta(File::Spec->catfile($CF{'CacheDir'}, 'cache.meta'));
+	$num_photos = scalar @{$meta->{sequence}};
+
+	if ($show_img ne "") {
+		show_img();
+	} else {
+		show_list();
+	}
+}
+
+42;
diff --git a/gal2/gal-cache b/gal2/gal-cache
index d6ee353..5accb3f 100755
--- a/gal2/gal-cache
+++ b/gal2/gal-cache
@@ -31,9 +31,8 @@ if (-d $cache_dir) {
 print "Creating cache directory: $cache_dir\n";
 File::Path::mkpath($cache_dir) or die "Unable to create $cache_dir: $!\n";
 
-for my $t (@{$CF{'ThumbSizes'}}) {
-	my ($tw, $th) = @$t;
-	my $thumb_fmt = $tw . 'x' . $th;
+for my $thumb_fmt (keys %{$CF{'ThumbFormats'}}) {
+	my ($tw, $th) = ($thumb_fmt =~ m{^(\d+)x(\d+)$}) or die "Cannot parse thumbnail format $thumb_fmt\n";
 	print "Generating $thumb_fmt thumbnails\n";
 	my $thumb_meta = {};
 	$meta->{thumb}->{$thumb_fmt} = $thumb_meta;
diff --git a/gal2/gal-gen b/gal2/gal-gen
index 7d244fe..3c1a6e9 100755
--- a/gal2/gal-gen
+++ b/gal2/gal-gen
@@ -41,7 +41,6 @@ for my $f (@$orig_list) {
 	my $id = $f->{id};
 	my $rotate = $f->{orientation};
 	my $xfrm = $f->{xfrm};
-	push @{$meta->{sequence}}, $id;
 	print "$id: ";
 
 	my $p = new Image::Magick;
@@ -69,7 +68,10 @@ for my $f (@$orig_list) {
 		'xf' => $xfrm,
 		'w' => $w,
 		'h' => $h,
+		'title' => $f->{title},
 	};
+	$meta->{photo}->{$id} = $m;
+	push @{$meta->{sequence}}, $id;
 
 	my $om = $old_meta->{photo}->{$id};
 	if ($om &&
@@ -79,7 +81,6 @@ for my $f (@$orig_list) {
 	    $om->{h} eq $m->{h}) {
 		# FIXME: Remove old images?
 		print "... uptodate\n";
-		$meta->{photo}->{$id} = $om;
 		next;
 	}
 
@@ -121,7 +122,6 @@ for my $f (@$orig_list) {
 	rename $tmp, $photo or die "Cannot rename $tmp to $photo: $!\n";
 
 	print "... OK\n";
-	$meta->{photo}->{$id} = $m;
 }
 
 print "Writing meta-data\n";
diff --git a/gal2/nrt/back.png b/gal2/nrt/back.png
new file mode 100644
index 0000000000000000000000000000000000000000..c0c4ceee6b7060a1816cadaf5d8f3fe3fbb6daca
GIT binary patch
literal 590
zcmV-U0<ryxP)<h;3K|Lk000e1NJLTq001xm001xu00000a%rYp00002VoOIv0RM-N
z%)bBt0tZP%K~#9!?bS<96Hyev@$(fBF($He$5LZ-;YRkjnvGw87<YUE*I*aAb72EU
zUX26|1big+AriGB@(5`Ov^3U{!q7UMOgp!8AN7utkxY9}#kkVgRd441o6Mbi(n9k$
zKk&~2&fFz!sCZ()oN5#RdW$Cntafk@01*nn?5}qKFae5Q9|1rGbnF!ZI`{1Y(EehV
zQUKOpiViD92=My;+G)SKIv*Pi#1$0K^43egxwgI<fBaKmKoI@y%z3Zq&mHb(l7YA^
zFyIuIViDQ&=S@;KGRc{-5$P}NqM%V)nV*`D%;im&b7EvuPbQ}#qooE0nyi{n$CDom
zrYjRpj&|P1<LNz%p_>-2`6a(svgG|apI#=Wp3CV~SD>INsAJa%<!(K54nUJD+o7Sp
zZ8U^;bMh^H)_Xmg{4QDo#dynyPo41(Kx@AWirz@{1f!?@8iaa<fX;op0JQH?3qbqf
zL8S;ET;nL)=U3hL#~%b@2nDRVlk%IMx#h*lXdo~khwsDFQ$PAwp9`zc1JR2DZ@h1M
zeZsIU{Zk+&(D5evyV*y#2W}+{!l<pUy@)-$d;P`=LC2d`GO5L9Z?+A>n?n8oZX_2L
zUS}&5-86R&cQ>~RW!ZbLpe9$FIm6+d&cP~IY?mLe$`%RrttTxQrN<NPtys%^|26+{
c|G^)E?>C{j<c=95-2eap07*qoM6N<$f{Mcqt^fc4

literal 0
HcmV?d00001

diff --git a/gal2/nrt/bot.png b/gal2/nrt/bot.png
new file mode 100644
index 0000000000000000000000000000000000000000..08c668377ff4f7c47ca0c2b10a4421a48f63e3af
GIT binary patch
literal 721
zcmV;?0xtcDP)<h;3K|Lk000e1NJLTq005c*000sQ1^@s6qa4Sg0007*Nkl<Zc%1E-
zU9O@q7>3`{Qm{zScw<c5hD&q>Zo?J02JdtU-XDVT2c?~hnbv}3ICGNm98902@sIwH
zJo)-kiTVwsl(^k)xLhtMiURZb93D>>%jFW&=@hfs4AbcplgR{Wnj(&4gkgvv2tWuy
z@ZAgb^czA52qB%<)kM>sg24Od`5cr|(}Ex{6|5<rQ#3*d4u``_7wqXD>-8FpF)+rA
zY_>x-Ml`#cQA%+<9$&t2Prumhc8KE`Q4}GHA|srus?|gTU_|4bW53_Oe)XPSuv)Dk
zgn$qNgTVltb8ya$XaJr?vn30H0E{tk&Y_gTcDwzC+wlBkR;v|?qClFa7!HR>lElcy
z7&9IL54Tuz5K5^LO$dRqEV0>akYyPbi^Xg2$n&FEuh-b^b`U~fJRV~_9wW;#q-hEv
zgb|HW`qY;wr4#`Cc|lcGxZm%%UavTvPAG~3d7k6r;{$n~<9IycbUNXBz2bJep{gn<
zrA&WK^RuTPG()`3T9i_RVTdS-AcVkhI7F6Z7>!0X+3c)lkH_o*l~N|7g<*&|jv=K4
z0F&E<5ICRDD9h4|_J(wc#yQ7eFhG(dwXIVh(6(hX=9)z3G%bsr+w^u?mL=}@JEW9e
zv^SznG}{3!n|=_8<G7a3T*n(v84W<~z}B85iXtRQVkE1o%2Yfr+I!#<4S1YJ*s|#s
zhGFe!!#S>U7@@zCQbI~;a+{V*S2EpPc+vVv+uuq0Nm3UbEuAfxYs)m_x<msWqUdc=
z3)d9PwQYLd3wtZHg>xOwwu#y*nx-k7-R$4n`g!_At0<O8&Gxr`8fQjpo7jHeC6X7d
zpL7Y+mf<?b?W$;B!AsU}J}b|^&{@&G!v9#Pr{DYn>+>#>%%a)d00000NkvXXu0mjf
DkDgPz

literal 0
HcmV?d00001

diff --git a/gal2/nrt/left.png b/gal2/nrt/left.png
new file mode 100644
index 0000000000000000000000000000000000000000..3bd3aed4b8d2b0c324184b7e199df9d8dff4e612
GIT binary patch
literal 144
zcmeAS@N?(olHy`uVBq!ia0vp^d_bJW!3HFMzhCeSNQHa4IEGZrd3(-~>wp6XYvAPM
zivP+{H-7jEa%fJ|nN-H6qa#=KWv=I@Rh!Oi=`bkYzW&_zOLxz|iE{EZw#ei>zW(1n
k4i=_H2L%Bn>Oiiz%Snw5Z2vinfL1Vgy85}Sb4q9e0RHbW0ssI2

literal 0
HcmV?d00001

diff --git a/gal2/nrt/next.png b/gal2/nrt/next.png
new file mode 100644
index 0000000000000000000000000000000000000000..72a4e391f6b29845ec1e9f61e2a0f3493a568c80
GIT binary patch
literal 1309
zcmV+&1>*XNP)<h;3K|Lk000e1NJLTq001xm001xu1^@s6R|5Hm00007bV*G`2hj-%
z0Tu*pEd0g*00hxVL_t(|ob8y+OB-Dj#-EwVbS57rPMpbzwcV7ix@tFR7A|UaA-E81
zkuF^s=*F$Zzo3+Y`}zln#YJ}_h0qiPDXs)5g5p;o=0nmLGtT7B>7s8!`<h8+nwC_^
z19z2s?mWM9Ztgu?j)(|1SbVn)bgCXex77pawt4{FRu7=ty72%$FO%zC2gh-qKlF3Q
z@;mWPYFmNT)m7ZNa|ay9VSaudrfI^mEZDY<c5T$j$q5pP1UQaEB9XxU{yr?r0%NRg
ztZPvVZEkK7fM3Ss<Rs;CIl8#GAj`7Iwr$7w;o;$5Vuyx?XnT8`N~IEAU0o4ltkvgT
zsU^U(XV0zy0HE>laXLCWqEe|urfD{XSXo(V8msF%rPFCD6bfV*M#m5>w-7m$d1GS(
zv$L}(7K^A>tEkm#*XBCKX0usLPfufKX9pJ-7me-s+iFFZPN$n@u|A$YeM$!h2Tdzc
ztJUcC?c0vAnx;`Im7;t;-%%x60+^;r@7}#@2{Af4+7zNztI_W6E)5P2{#A&U0G4G@
zsZ^q+r6tc0j4`^ryriwIEsDire+{A~0Aq}*)hcDPS$gy4jVB1k7@4L?=jZ42>C>mb
z2GJ6L=*L#5R4SCoWa#zl*PbB^!=QXVPpMRjG)?>C5N!dxLVWn}fesH3sa!6TWm%pe
zUcP)uU%!5(VzKCWJpW&=dLcm&AW0I!;V_;&c>-P69p~=t?V(U8pi-%TF$Mq-MG>J;
z2oD}Sz@tZx9Al4<k5MQT@a@|-n5OCKwszgj@jQ=QE{Cb9DP*(RrgQGyyNBW7VU){d
z7>3aR;CUXRC}M7I4(sddj^7v?8$-EV#^vRu>-)hq!0G8JMn*<(dV1RQcSTW<OeXQ)
zw!D_TnVA`^t*tq(pG+p9C`zNpa+7`60QIKq<mANB{KCQlbX|wv??)gIz^z-i!1F(r
zfByVA-oJnExc=PS9OCgfWLZWa5P&Sp5Jk~d*V-1qi}_$M2t`q#C<=nXAbdU_W@cvE
znt%NGG5mf%`uqD4jYiSe*Y`^TejC7x`A{eXRaK$uI-=1i{C+=Pym;Z-yrL+G#bQuZ
zwE^F81>U}W>)HIkzyN~5AijM0;>o<O>(Dd};cys|B)Q6dTY%%^V^8K)RYfQif+&iP
zu}<b=u^1we2qZ~@APBC^0{}-Y{_dYYf5ynj$Tjn?UcEvr7IQSu^E_<Z#@)Mjubo=S
zWD@as{EwIi+EgGOk7Idxxp8q#OiW;LaS?-qgXrt)b2MMq$B!TJ@Zm!M!2SF8vADR1
zL?VGeAb@Bz+Oc_{O$8WZs8lLAJ3B)rlfn7<Icl{UBuRpzD9|(w0|Nt1&D*w(tE(#%
zi$!EI8JwM+p<1oN=kp;P4nxy4sH)nLd7#a!1jliZBngp71dK7rvJA!;{C+<okq9D@
z2!g@jHS_h@dJCbdDg;4*VHgla5#ewcilQJC3Uy>2Xj1{;M<z|vM73IlVHhAHh@uEt
zmLW+Jd_JG!i9tlLEDMHVz%UG0mIXl&Aj@*&vg*XVD}XwLZQG6BhT}L0f&iZ9+n&`#
z)QBY_a2yAo=NqF_xdQmv4DfF~Y<U9s7j@&`MtcC=Ru7=t>H&0HJ%DcO#sho@xl|A-
T!%_XA00000NkvXXu0mjfJAZ90

literal 0
HcmV?d00001

diff --git a/gal2/nrt/prev.png b/gal2/nrt/prev.png
new file mode 100644
index 0000000000000000000000000000000000000000..71e11cd5a329cec25d08b5459759db91c3afd50c
GIT binary patch
literal 1352
zcmV-O1-JT%P)<h;3K|Lk000e1NJLTq001xm001xu1^@s6R|5Hm00007bV*G`2hj-%
z0Tv#RP6fOG00jI=L_t(|ob8yuZ_`>F#gFYcv6Hl^?bt!2ER+c`RVt_w3;i34P}RL4
zMkXZwgCZfZu^>hy#8hTfA=IU6D=`6;T2Rv#8aFM8li1k4{=VV8_%)CpcFTKFr5wpq
ze4O*S*Vp&h91#)DvG_p;IID&LgVqpW&>8{^T0?+A>)Zn*&U%59O@!mPQ~OWj1x`5w
zySuxXo}LEBahRT-#`g9$JkJAT3{k4pg9i`5aU3pPx`dZ6U&3`=_`Z)I2;zsKm@1V@
zG(J8~0K#K(a+1D(|4y}9ja=8IAPBnpXJ=>IyZ~rzZH<nOj>xucVvNPg6APeI_}1~_
z#S8lK<qK7-Rq{M9a(DnVH#bM0K7At7G|6$Co&)f!BCmngZL_<(+wu2Gr2^A5kxV9$
zOeP@+Lfd_P`}S?Te*L<mx6x>zTrNWtMWj+GBoYY-f)FWJq&3hl{KUirip3)8^*S8K
z`E4!q3J(A?Gc&L(3(aN|p65kcN09;gg;x{>ckkZq`ltQEFDxuTQIv>re^*a{DB&MI
zd<erZAj>i`nG7UJ3a39x_!~EFK$0Y6G8xFS3{ezgJyN>@#0j6xW}&JoR8>VLlR+Yp
zz@0mHB88V_8DnE(P*oM9qoYVBli>O2Pxp>z#tom(=TRsWpePC?Ny6ORT;%Yos-jRR
zAfL}8lga#<8F=#KN#yXluA@*WK+`m2vstXKulEgq{rdH`@Vc&JbaWJ{R4Uf!cLgYw
zN?i??FJDGJpGP{KhNfxZ=#7kwKorHEUPVzbF);y2k}x(l2E#C57zT2=T-(}-rB0i}
z`}glVZaA%DYHEt!ym><#8yocP+c#=9o8b=17^7mb*ww2j3O#%Fj8;}w=<C<7RIAm<
z^SoG_*GY8*a9x+4KY!j6;^xhp^x?w?DwoUTI8GbD$B!TB!i5W6y_%-c($W&`?Cemz
zUMJu8PZho^fbaWMtybyj)2BTlZr!>?TU%T7<HwJ%12M*^*=*A4>M9wA(bcQ#I=y}S
zHmnbEJ5Wym#u(YQO$P@D^!V}Po)9xLGqk<E9YQe1$aP&hK0c;*@7|HF>pdZsmzU23
z(Y4I^zE6!tgZB6LX>oBeHiY9iba;43%gf9EDMZgU>ia&`>vh`O+v^Llw6xT=C|eMw
zY4(M<fB!yx{`{FLl}g__{;PUEbOk|xBuU8Sa+sf=$Kv8**K;>FH&Lln&}=rr7y|%^
zqKJ`^5nQ`=4X<9kg0AZwy`@qKrfI^mEV!=wXUkj^2t`paK0Xf1vS8bG2*C4vB#6n$
zNm!PJMxz1Obz{AmMcVc{LFDs!0Do8MM~@zXh!6w;{<$sx{eun=SFc_L0H~^pd-v|)
z%9Sf^{y5?&hJ!H%$8k`tR$-bZ%H=X@wHg>>NT<^%6biU_@gg)$Ln@VO>oh?S!1Fv<
zmW4{Cf`fwt93LO!=g*%IMG=~&p;#=!Fbt&A>BzfstgjNSnE={H*7yCe+hns@Boc|=
z3fal?IgW!M2uP>Xa2yAsC?c23ovMw-nt_%WV{ly;wr#_490WlCQ4}G|GGtlq2+&dx
z1n_+yj^n_#ZFrssp65gF{{qko5(Gi``pEM<1VI4L^L^`Z>wag9AqawSMtGi&-9}Fh
za57AIv6vsH&f*PyX9XCv&i%L1A;6$D1Q@i20E5;LV9+}E0Dl42yAF%TvDU5t0000<
KMNUMnLSTY}K!ET7

literal 0
HcmV?d00001

diff --git a/gal2/nrt/right.png b/gal2/nrt/right.png
new file mode 100644
index 0000000000000000000000000000000000000000..3e655dccb48e5febb5234624debd22db2de79d80
GIT binary patch
literal 210
zcmeAS@N?(olHy`uVBq!ia0vp^LO`6x!3HFc)gEjBQZqeW978JRyuDz_*X$s`dNHe;
zp|hi7rzv}yn3B#L2DV38E5B~O?!D!jl=#+l+M23CUOJ}_*_`*ee8i%U=dgo|fMCr!
zfri}MCoF@#6rcO76>YdC^;|Y@A+yHPfb75D{wr?3VEFSH^Z5nZ8@R2WzwWKtsJCKy
m3r-;CDEM*m`UP?<3G78XLmeCaT9SZ{WbkzLb6Mw<&;$Vb5>puf

literal 0
HcmV?d00001

diff --git a/gal2/nrt/style.css b/gal2/nrt/style.css
new file mode 100644
index 0000000..b67b092
--- /dev/null
+++ b/gal2/nrt/style.css
@@ -0,0 +1,17 @@
+.thf    { margin: 0 0 0 0; padding: 0 0 0 0; float: left; border: none; }
+.thumb  { position: relative; width: 154px; height: 134px; background-color: black; }
+.tt     { position: absolute; top: 0; left: 0; }
+.tl     { position: absolute; top: 14px; left: 0; }
+.ti     { position: absolute; }
+.tr     { position: absolute; top: 14px; right: 0; }
+.tb     { position: absolute; bottom: 0; right: 0; }
+.annot  { width: 154px; text-align: center; }
+IMG     { border: none; }
+H1      { text-align: center; }
+H2      { text-align: center; }
+P	{ clear: both; }
+H2	{ clear: both; }
+.parent	{ text-align: center; }
+.large	{ text-align: center; }
+.back	{ float: left; }
+.fwd	{ float: right; }
diff --git a/gal2/nrt/theme.conf b/gal2/nrt/theme.conf
new file mode 100644
index 0000000..4242eba
--- /dev/null
+++ b/gal2/nrt/theme.conf
@@ -0,0 +1,40 @@
+
+PicturesPerRow: 5
+BGColor: #ffffff
+TextColor: #000000
+CommentColor: #000000
+FilmBGColor: #322207
+LinkColor: #000000
+ALinkColor: gold
+VLinkColor: #000000
+LinkSize: 1
+
+#                   linksize               | top
+#                       |                  v
+#     ------------------|---------------- ---
+#     |                 |               |  |
+#     ------------------v---------------- ---
+#     |   | ______________________  |   |  ^
+#     |   | |   ^                 | |   |  |
+#     |   | |   | height          | |   |
+#     |   | |   |                 | |   |
+#  l  |   | |   |                 | |   | right
+# --->|---| |<--|----width------->| |---|<-----
+#     |   | |   |                 | |   |
+#     |   | |   |                 | |   |
+#     |   | |   |                 | |   |
+#     |   | |   v                 | |   |
+#     |   | |---------------------| |   |  |
+#     |   |                         |   |  v
+#     ----------------------------------- ---
+#     |                                 |  |
+#     ----------------------------------- ---
+#                                          ^
+#                                          | bottom
+#
+# total = left + linksize + width + linksize + right
+
+# Decorations: top bottom left right
+Decorations: 14 18 14 18
+ThumbWidth: 120
+ThumbHeight: 100
diff --git a/gal2/nrt/theme.pm b/gal2/nrt/theme.pm
new file mode 100644
index 0000000..f9674ad
--- /dev/null
+++ b/gal2/nrt/theme.pm
@@ -0,0 +1,40 @@
+# NRT Theme for MJ's Photo Gallery
+# (c) 2003--2004 Martin Mares <mj@ucw.cz>; GPL'ed
+# Theme images taken from the cthumb package (c) Carlos Puchol
+
+package UCW::Gallery::Theme;
+
+use strict;
+use warnings;
+
+use UCW::Gallery;
+
+sub Init($) {
+	my ($u) = @_;
+	UCW::Gallery::SetOptions(
+		"StyleSheet" => "$u/style.css",
+		"ThumbW" => 114,
+		"ThumbH" => 94,
+		"TopImg" => "$u/top.png",
+		"TopH" => 14,
+		"BotImg" => "$u/bot.png",
+		"BotH" => 18,
+		"LeftImg" => "$u/left.png",
+		"LeftW" => 14,
+		"RightImg" => "$u/right.png",
+		"RightW" => 18,
+		"InteriorMargin" => 4,
+		"ParentImg" => "$u/back.png",
+		"ParentH" => 48,
+		"ParentW" => 48,
+		"BackImg" => "$u/prev.png",
+		"BackH" => 48,
+		"BackW" => 48,
+		"FwdImg" => "$u/next.png",
+		"FwdH" => 48,
+		"FwdW" => 48
+	);
+	UCW::Gallery::RequireThumbnails(114, 94);
+}
+
+1;
diff --git a/gal2/nrt/top.png b/gal2/nrt/top.png
new file mode 100644
index 0000000000000000000000000000000000000000..d8d5866441822e70012cd5d6603b0ea2e6aedf81
GIT binary patch
literal 459
zcmV;+0W|)JP)<h;3K|Lk000e1NJLTq005c*000gM1^@s6*9Zkd0004!Nkl<Zc%1E+
z&8~tl5JtaF0d=7-<Jy(a?=$!W8i<1EwB@eals{p^&E;lJ(oixmp~*=*gKC<lfgmhQ
zvP4pGcfBa37RftXw5~i;GKp;KWJ<Jde6E<2qIqGOrs<71KK7olF2=-BN`;u8$Ing)
zH!50JFy|bswQ$ab5yyr9ODvXB3Pc1Vg4P;D)Dm!vLD9T8UMOoVj4?3Agn3uEu^hs>
z7?LFxOlyrKNm^Gg91)G@=ysj4WL_#}1`%Pu-!HK?VI^FzS1>cuG)0zW*lae)vJ7dO
zB1w|3vJHynC1Yk-YjHRnes49xpXYM9V7J?avE6Qia9*~qXcXVX^_V{<MKYnw@p#1T
zc0-=$cs`$ay<YfyK44}z=LYNcAX@jxWM+{}80B<2;eNlPC<>HiiMp=C<}_5Fx0(TO
zqcJ9&wSw@CJkNVgg4Vj%iS}&r4S*E>!W8H88AVZq<MaJ~kM3#&^nYg<V}Adug;nx+
zJW!TpsMGwfuh})4Ak3kvDpXa4x~{>@Ez#np;0L<pPW|fTk23%O002ovPDHLkV1g0p
B)l2{Y

literal 0
HcmV?d00001

-- 
2.39.2