+++ /dev/null
-# Simple Photo Gallery
-# (c) 2003--2005 Martin Mares <mj@ucw.cz>
-
-package Gallery;
-
-use strict;
-use warnings;
-
-BEGIN {
- # Standard Perl module stuff
- use Exporter();
- our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
- $VERSION = 1.00;
- @ISA = qw(Exporter);
- @EXPORT = qw(&SetOptions &Start &img &Finish &RawHTML);
- %EXPORT_TAGS = ();
- @EXPORT_OK = qw(%CF);
-}
-
-our %CF;
-our $th;
-
-BEGIN {
- $CF{"Title"} = "An Unnamed Gallery",
- $CF{"HeadExtras"} = "",
- $CF{"TopExtras"} = "",
- $CF{"BotExtras"} = "",
- $CF{"ParentURL"} = "../",
- $CF{"BackURL"} = "",
- $CF{"FwdURL"} = "",
- $CF{"ImageSubpages"} = 1,
- $CF{"AllowArchives"} = 1,
- $CF{"PhotoUrlPrefix"} = "",
- $CF{"ThumbUrlPrefix"} = "",
- $CF{"MetaDataDir"} = ".",
- $CF{"PhotoDir"} = ".",
- $CF{"ThumbDir"} = ".",
-}
-
-sub SetOptions(@) {
- while (my $o = shift @_) {
- my $v = shift @_;
- $CF{$o} = $v;
- if ($o eq "Theme") {
- require $CF{"GalDir"} . "/$v/theme.pm";
- Gallery::Theme::Init($CF{"GalURL"} . "/$v");
- }
- }
-}
-
-sub Start() {
- if (defined $ENV{"GATEWAY_INTERFACE"}) {
- require Gallery::Web;
- $th = new Gallery::Web;
- } else {
- if (@ARGV && $ARGV[0] eq "--generate") {
- require Gallery::Generator;
- $th = new Gallery::Generator;
- } else {
- print STDERR "Usage: $0 [--generate]\n";
- exit 1;
- }
- }
- $th->Start();
-}
-
-sub img($$) {
- $th->img(@_);
-}
-
-sub Finish() {
- $th->Finish();
-}
-
-sub RawHTML($) {
- $th->RawHTML($_[0]);
-}
-
-1;
+++ /dev/null
-# Simple Photo Gallery: Web Archiver
-# (c) 2005 Martin Mares <mj@ucw.cz>
-
-package Gallery::Archive;
-import Gallery qw(%CF);
-
-use IO::Handle;
-
-sub new($$) {
- my ($cls, $type) = @_;
- my $x = { 'type' => $type, 'files' => [] };
- return bless $x;
-}
-
-sub Start($) {
- my ($this) = @_;
- my $type = $this->{'type'};
- my $cts = { "tar" => "application/x-tar", "zip" => "application/zip" };
- defined $cts->{$type} or die "Unknown archive type $type";
- print "Content-Type: ", $cts->{$type}, "\n";
- print "Content-Disposition: inline;filename=gallery.$type\n";
- print "\n";
-}
-
-sub Finish($) {
- my ($this) = @_;
- my $type = $this->{'type'};
- STDOUT->flush();
- chdir($CF{"PhotoDir"}) or die;
- if ($type eq "tar") {
- system("/home/mj/bin/tar", "cf", "-", @{$this->{'files'}});
- } elsif ($type eq "zip") {
- system("zip", "-", @{$this->{'files'}});
- } else { die; }
-}
-
-sub RawHTML($$) {
-}
-
-sub img($$$) {
- my ($this, $orig, $annot) = @_;
- push @{$this->{'files'}}, $orig;
-}
-
-1;
+++ /dev/null
-# Simple Photo Gallery: Thumbnail Generator
-# (c) 2003--2004 Martin Mares <mj@ucw.cz>
-
-package Gallery::Generator;
-
-use strict;
-use warnings;
-
-use Image::Magick;
-use IO::Handle;
-
-BEGIN { import Gallery qw(%CF); }
-
-sub new() { return bless {}; }
-
-sub Start($) {
- print "Generating thumbnails...\n"; STDOUT->autoflush(1);
- my $notes = $CF{'MetaDataDir'} . "/notes";
- open NOTES, ">$notes" or die "Unable to write to notes ($notes): $!";
-}
-
-sub Finish($) {
- close NOTES;
- print "Done.\n";
-}
-
-sub RawHTML($$) { }
-
-sub img($$$) {
- my ($this, $orig, $annot) = @_;
- my ($base, $ext) = ($orig =~ /^(.*)\.([^.]+)$/) or die "Unable to dissect name $orig";
- print "$base: ";
- my $p = new Image::Magick;
- my $e;
- my $img = $CF{"PhotoDir"} . $orig;
- $e = $p->Read($img) and die "Error reading $img: $e";
- my ($wo, $ho) = $p->Get('width', 'height');
- my ($w, $h) = ($wo, $ho);
- print "${w}x${h}";
- $p->Strip;
- if ($w > $CF{"ThumbW"}) {
- my $s = $CF{"ThumbW"} / $w;
- $w = $w * $s;
- $h = $h * $s;
- }
- if ($h > $CF{"ThumbH"}) {
- my $s = $CF{"ThumbH"} / $h;
- $w = $w * $s;
- $h = $h * $s;
- }
- $w = int($w);
- $h = int($h);
- print " -> ${w}x${h} ";
- $p->Resize(width=>$w, height=>$h);
- my $thumb = $CF{"ThumbDir"} . "$base-thumb.jpg";
- $e = $p->Write($thumb) and die "Unable to write $thumb: $e";
- print NOTES "$base $w $h $wo $ho\n";
- print "OK\n";
-}
-
-1;
+++ /dev/null
-# Simple Photo Gallery: Web Interface
-# (c) 2003--2005 Martin Mares <mj@ucw.cz>
-
-package Gallery::Web;
-import Gallery qw(%CF);
-
-use UCW::CGI;
-
-my $show_img;
-my $send_archive;
-
-my %args = (
- 'i' => { 'var' => \$show_img, 'check' => '\d+' },
- 'a' => { 'var' => \$send_archive }
-);
-
-sub new() {
- UCW::CGI::parse_args(\%args);
- if ($send_archive && $CF{'AllowArchives'}) {
- require Gallery::Archive;
- return new 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";
-}
-
-our (@images, %widths, %heights, %widths_orig, %heights_orig, %imgno);
-
-sub load_notes() {
- @images = ("");
- %widths = ();
- %heights = ();
- %imgno = ();
- my $notes = $CF{'MetaDataDir'} . "/notes";
- open NOTES, $notes or die "Unable to read notes ($notes): $!";
- while (<NOTES>) {
- chomp;
- my ($n, $w, $h, $wo, $ho) = split /\s+/;
- push @images, $n;
- $widths{$n} = $w;
- $heights{$n} = $h;
- $widths_orig{$n} = $wo;
- $heights_orig{$n} = $ho;
- $imgno{$n} = $#images;
- }
- close NOTES;
-}
-
-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 Start($) {
- 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;
- load_notes();
- if ($show_img ne "" && $show_img > 0 && $show_img <= $#images) {
- show_links(($show_img > 1 ? ("?i=".($show_img-1)) : ""),
- "?",
- ($show_img < $#images ? ("?i=".($show_img+1)) : ""));
- } else {
- show_links($CF{'BackURL'}, $CF{'ParentURL'}, $CF{'FwdURL'});
- print "<h1>$CF{'Title'}</h1>\n";
- print "<h2>$CF{'SubTitle'}</h2>\n" if defined $CF{'SubTitle'};
- }
-}
-
-sub Finish($) {
- print "$CF{'BotExtras'}\n</body></html>\n";
-}
-
-sub RawHTML($$) {
- my ($obj, $h) = @_;
- print $h if $show_img eq "";
-}
-
-sub img($$$) {
- my ($this, $orig, $annot) = @_;
- my ($base, $ext) = ($orig =~ /^(.*)\.([^.]+)$/) or die "Unable to dissect name $orig";
- $annot = UCW::CGI::html_escape($annot);
- my $id = $imgno{$base} || 0;
-
- if ($show_img ne "") {
- if ($id == $show_img) {
- print "<h1>$annot</h1>\n" if $annot ne "";
- my $img = $CF{'PhotoUrlPrefix'} . $orig;
- print "<p class=large><img src='$img' width=$widths_orig{$base} height=$heights_orig{$base} alt='$orig'>\n";
- }
- return;
- }
-
- my $thumb = $CF{'ThumbUrlPrefix'} . "$base-thumb.jpg";
- my $w = $widths{$base} || 10;
- my $h = $heights{$base} || 10;
- 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'} - $w)/2);
- my $ot = $CF{'TopH'} + $CF{'InteriorMargin'} + int(($CF{'ThumbH'} - $h)/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";
-# if ($annot ne "") {
-# print "<p class=annot>$annot\n";
-# }
- print "</div>\n\n";
-}
-
-1;
+++ /dev/null
-$(eval $(dir-setup))
-
-$(call lib-copy, Gallery.pm)
-$(call lib-copy, $(addprefix Gallery/,Archive.pm Generator.pm Web.pm))
-
-$(call copy, $(addprefix nrt-blue/,back.png bot.png left.png next.png prev.png right.png top.png theme.pm style.css))
+++ /dev/null
-#!/usr/bin/perl
-# Generate image gallery
-# (c) 2004--2007 Martin Mares <mj@ucw.cz>
-
-# Syntax of input file:
-# <filename> <datestamp> <rotation> <xform>
-# where <rotation> is either ".", "l", "r" or "u"
-# <xform> contains:
-# d touch output file to <datestamp>
-# D include <datestamp> in output file names
-# n normalize contrast
-# s sharpen
-# h equalize histogram
-
-use Image::Magick;
-use IO::Handle;
-
-use strict;
-use warnings;
-
-my $maxw = 1024;
-my $maxh = 768;
-my $recompress = 1;
-
-STDERR->autoflush(1);
-print STDERR "Searching for template file... ";
-
-my $tdir = "";
-my $templ;
-my $maxdepth = 10;
-while ($maxdepth--) {
- my $t = "${tdir}gallery.cf";
- if (-f $t) {
- $templ = $t;
- last;
- }
- $tdir .= "../";
- last if ! -d $tdir;
-}
-if ($templ) {
- print STDERR "$templ\n";
-} else {
- print STDERR "NONE\n";
-}
-
-print "#!/usr/bin/perl\n\n";
-if ($templ) {
- print "require \"$templ\";\n\n";
- print "SetOptions(\n";
-} else {
- print <<EOF
-use lib '/home/mj/WWW/gal';
-use Gallery;
-
-SetOptions(
- "GalURL" => "/~mj/gal",
- "GalDir" => "/home/mj/WWW/gal",
- "Theme" => "nrt",
-EOF
-;
-}
-print <<EOF
- "Title" => "Untitled"
-);
-Start();
-EOF
-;
-
-#`rm -f [0-9]*.{jpg,png} *.tmp`; $? && die;
-
-my $idx = 0;
-while (<STDIN>) {
- chomp;
- my ($src, $date, $rotate, $xform) = split (/\t+/, $_);
- $idx++;
- my $id = sprintf("%03d", $idx);
- if ($xform =~ /D/) {
- $id = "$date-$id";
- $id =~ s/ /-/g;
- }
- my $dest;
- my $is_jpeg = 0;
- if ($src =~ /\.(jpg|JPG|jpeg)$/) {
- $dest = "$id.jpg";
- $is_jpeg = 1;
- } elsif ($src =~ /\.png$/) {
- $dest = "$id.png";
- } else {
- die "$src: Unknown image type";
- }
- my $tmp = "$dest.tmp";
- print STDERR "$dest: $src ";
-
- my $p = new Image::Magick;
- my $e;
- $e = $p->Read($src) and die "Error reading $tmp: $e";
- $p->Strip;
- $p->SetAttribute(quality=>90);
- my ($w, $h) = $p->Get('width', 'height');
- print STDERR "-> ${w}x${h} ";
-
- my ($w0, $h0) = ($rotate eq "l" || $rotate eq "r") ? ($h, $w) : ($w, $h);
- my ($ww, $hh) = ($w0, $h0);
- if ($ww > $maxw) {
- my $s = $maxw / $ww;
- $ww = $ww * $s;
- $hh = $hh * $s;
- }
- if ($hh > $maxh) {
- my $s = $maxh / $hh;
- $ww = $ww * $s;
- $hh = $hh * $s;
- }
- $ww = int($ww);
- $hh = int($hh);
-
- if ($recompress ||
- !$is_jpeg ||
- $xform ne "" ||
- $ww != $w0 || $hh != $h0) {
- my $rot = 0;
- if ($rotate eq "l") { $rot = 270; }
- elsif ($rotate eq "r") { $rot = 90; }
- elsif ($rotate eq "u") { $rot = 180; }
- if ($xform =~ /s/) {
- print STDERR "-> sharpen ";
- $p->Sharpen(1);
- }
- if ($xform =~ /h/) {
- print STDERR "-> equalize ";
- $p->Equalize();
- }
- if ($xform =~ /n/) {
- print STDERR "-> normalize ";
- $p->Normalize();
- }
- if ($rot) {
- print STDERR "-> rotate $rot ";
- $p->Rotate(degrees=>$rot);
- $rotate = ".";
- }
- if ($ww != $w0 || $hh != $h0) {
- print STDERR "-> ${ww}x${hh} ";
- $p->Resize(width=>$ww, height=>$hh);
- }
- $e = $p->Write($tmp) and die "Unable to write $tmp: $e";
- } else {
- `cp $src $tmp`; $? && die;
- }
-
- if ($is_jpeg) {
- my $tran = "-optimize -copy none";
- if ($rotate eq ".") { }
- elsif ($rotate eq "l") { $tran .= " -rotate 270 -trim"; }
- elsif ($rotate eq "r") { $tran .= " -rotate 90 -trim"; }
- elsif ($rotate eq "u") { $tran .= " -rotate 180 -trim"; }
- else { die "Unknown rotation type $rotate"; }
- print STDERR "-> $tran ";
- `jpegtran $tran <$tmp >$dest`; $? && die;
- } else {
- rename $tmp, $dest or die;
- }
-
- if ($xform =~ /d/) {
- `touch -d "$date" $dest`; die if $?;
- }
-
- unlink $tmp;
- print STDERR "... OK\n";
- print "img(\"$dest\", \"\");\t\t# $src (${w0}x${h0})\n";
-}
-
-print "Finish();\n";
-
-`rm -f *.tmp`; $? && die;
+++ /dev/null
-#!/usr/bin/perl
-# Merge photos from multiple sources
-# (c) 2008 Martin Mares <mj@ucw.cz>
-
-use Image::EXIF;
-use Data::Dumper;
-
-use strict;
-use warnings;
-
-my @pics = ();
-if (@ARGV) {
- @pics = @ARGV;
-} else {
- while (<STDIN>) {
- chomp;
- /^#/ && next;
- /^$/ && next;
- push @pics, $_;
- }
-}
-
-my %seen = ();
-foreach my $f (@pics) {
- my $e = new Image::EXIF($f);
- my $i = $e->get_all_info();
- if ($e->error) { print STDERR "EXIF error on $f: ", $e->error, "\n"; }
- else {
- #print STDERR Dumper($i), "\n";
- my $o = $i->{'image'}->{'Image Orientation'} || "Top, Left-Hand";
- if ($o eq "Top, Left-Hand") { $o = "."; }
- elsif ($o eq "Right-Hand, Top") { $o = "r"; }
- elsif ($o eq "Left-Hand, Bottom") { $o = "l"; }
- elsif ($o eq "Bottom, Right-Hand") { $o = "d"; }
- else {
- print STDERR "Unrecognized orientation: $o\n";
- $o = ".";
- }
- my $d = $i->{'image'}->{'Image Created'};
- if (defined($d)) {
- $d =~ s/^(\d{4}):(\d{2}):(\d{2}) (\d{2}):(\d{2}):(\d{2})/$1$2$3-$4$5$6/ or die "Date parse error: $d";
- } else {
- print STDERR "Unrecognized data, skipping: $f\n";
- next;
- }
- my $fn = $d;
- if ($f =~ m{^\.\./orig/(\w+)/}) {
- $fn = "$fn-$1";
- }
- if (defined $seen{$fn}) {
- my $c = ++$seen{$fn};
- $fn = "$fn-$c";
- } else {
- $seen{$fn} = 1;
- }
- print "ln -s '$f' '$fn.jpg'\n";
- }
-}
+++ /dev/null
-#!/usr/bin/perl
-# Scan images in a list or gqview collection and prepare them for gal-gen
-# (c) 2004--2007 Martin Mares <mj@ucw.cz>
-
-use Image::EXIF;
-use Data::Dumper;
-
-use strict;
-use warnings;
-
-my @pics = ();
-if (@ARGV) {
- @pics = @ARGV;
-} else {
- while (<STDIN>) {
- chomp;
- /^#/ && next;
- /^$/ && next;
- if (/^"(.*)"$/) {
- push @pics, $1;
- } else {
- die "Parse error: $_";
- }
- }
-}
-
-foreach my $f (@pics) {
- my $e = new Image::EXIF($f);
- my $i = $e->get_all_info();
- if ($e->error) { print STDERR "EXIF error on $f: ", $e->error, "\n"; }
- else {
- #print STDERR Dumper($i), "\n";
- my $o = $i->{'image'}->{'Image Orientation'} || "Top, Left-Hand";
- if ($o eq "Top, Left-Hand") { $o = "."; }
- elsif ($o eq "Right-Hand, Top") { $o = "r"; }
- elsif ($o eq "Left-Hand, Bottom") { $o = "l"; }
- elsif ($o eq "Bottom, Right-Hand") { $o = "d"; }
- else {
- print STDERR "Unrecognized orientation: $o\n";
- $o = ".";
- }
- my $d = $i->{'image'}->{'Image Created'} || "?";
- if ($d ne "?") {
- $d =~ s/^(\d{4}):(\d{2}):(\d{2}) (\d{2}:\d{2}:\d{2})/$1-$2-$3 $4/ or die "Date parse error: $d";
- }
- print "$f\t$d\t$o\tn\n";
- }
-}
--- /dev/null
+# Simple Photo Gallery
+# (c) 2003--2005 Martin Mares <mj@ucw.cz>
+
+package Gallery;
+
+use strict;
+use warnings;
+
+BEGIN {
+ # Standard Perl module stuff
+ use Exporter();
+ our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+ $VERSION = 1.00;
+ @ISA = qw(Exporter);
+ @EXPORT = qw(&SetOptions &Start &img &Finish &RawHTML);
+ %EXPORT_TAGS = ();
+ @EXPORT_OK = qw(%CF);
+}
+
+our %CF;
+our $th;
+
+BEGIN {
+ $CF{"Title"} = "An Unnamed Gallery",
+ $CF{"HeadExtras"} = "",
+ $CF{"TopExtras"} = "",
+ $CF{"BotExtras"} = "",
+ $CF{"ParentURL"} = "../",
+ $CF{"BackURL"} = "",
+ $CF{"FwdURL"} = "",
+ $CF{"ImageSubpages"} = 1,
+ $CF{"AllowArchives"} = 1,
+ $CF{"PhotoUrlPrefix"} = "",
+ $CF{"ThumbUrlPrefix"} = "",
+ $CF{"MetaDataDir"} = ".",
+ $CF{"PhotoDir"} = ".",
+ $CF{"ThumbDir"} = ".",
+}
+
+sub SetOptions(@) {
+ while (my $o = shift @_) {
+ my $v = shift @_;
+ $CF{$o} = $v;
+ if ($o eq "Theme") {
+ require $CF{"GalDir"} . "/$v/theme.pm";
+ Gallery::Theme::Init($CF{"GalURL"} . "/$v");
+ }
+ }
+}
+
+sub Start() {
+ if (defined $ENV{"GATEWAY_INTERFACE"}) {
+ require Gallery::Web;
+ $th = new Gallery::Web;
+ } else {
+ if (@ARGV && $ARGV[0] eq "--generate") {
+ require Gallery::Generator;
+ $th = new Gallery::Generator;
+ } else {
+ print STDERR "Usage: $0 [--generate]\n";
+ exit 1;
+ }
+ }
+ $th->Start();
+}
+
+sub img($$) {
+ $th->img(@_);
+}
+
+sub Finish() {
+ $th->Finish();
+}
+
+sub RawHTML($) {
+ $th->RawHTML($_[0]);
+}
+
+1;
--- /dev/null
+# Simple Photo Gallery: Web Archiver
+# (c) 2005 Martin Mares <mj@ucw.cz>
+
+package Gallery::Archive;
+import Gallery qw(%CF);
+
+use IO::Handle;
+
+sub new($$) {
+ my ($cls, $type) = @_;
+ my $x = { 'type' => $type, 'files' => [] };
+ return bless $x;
+}
+
+sub Start($) {
+ my ($this) = @_;
+ my $type = $this->{'type'};
+ my $cts = { "tar" => "application/x-tar", "zip" => "application/zip" };
+ defined $cts->{$type} or die "Unknown archive type $type";
+ print "Content-Type: ", $cts->{$type}, "\n";
+ print "Content-Disposition: inline;filename=gallery.$type\n";
+ print "\n";
+}
+
+sub Finish($) {
+ my ($this) = @_;
+ my $type = $this->{'type'};
+ STDOUT->flush();
+ chdir($CF{"PhotoDir"}) or die;
+ if ($type eq "tar") {
+ system("/home/mj/bin/tar", "cf", "-", @{$this->{'files'}});
+ } elsif ($type eq "zip") {
+ system("zip", "-", @{$this->{'files'}});
+ } else { die; }
+}
+
+sub RawHTML($$) {
+}
+
+sub img($$$) {
+ my ($this, $orig, $annot) = @_;
+ push @{$this->{'files'}}, $orig;
+}
+
+1;
--- /dev/null
+# Simple Photo Gallery: Thumbnail Generator
+# (c) 2003--2004 Martin Mares <mj@ucw.cz>
+
+package Gallery::Generator;
+
+use strict;
+use warnings;
+
+use Image::Magick;
+use IO::Handle;
+
+BEGIN { import Gallery qw(%CF); }
+
+sub new() { return bless {}; }
+
+sub Start($) {
+ print "Generating thumbnails...\n"; STDOUT->autoflush(1);
+ my $notes = $CF{'MetaDataDir'} . "/notes";
+ open NOTES, ">$notes" or die "Unable to write to notes ($notes): $!";
+}
+
+sub Finish($) {
+ close NOTES;
+ print "Done.\n";
+}
+
+sub RawHTML($$) { }
+
+sub img($$$) {
+ my ($this, $orig, $annot) = @_;
+ my ($base, $ext) = ($orig =~ /^(.*)\.([^.]+)$/) or die "Unable to dissect name $orig";
+ print "$base: ";
+ my $p = new Image::Magick;
+ my $e;
+ my $img = $CF{"PhotoDir"} . $orig;
+ $e = $p->Read($img) and die "Error reading $img: $e";
+ my ($wo, $ho) = $p->Get('width', 'height');
+ my ($w, $h) = ($wo, $ho);
+ print "${w}x${h}";
+ $p->Strip;
+ if ($w > $CF{"ThumbW"}) {
+ my $s = $CF{"ThumbW"} / $w;
+ $w = $w * $s;
+ $h = $h * $s;
+ }
+ if ($h > $CF{"ThumbH"}) {
+ my $s = $CF{"ThumbH"} / $h;
+ $w = $w * $s;
+ $h = $h * $s;
+ }
+ $w = int($w);
+ $h = int($h);
+ print " -> ${w}x${h} ";
+ $p->Resize(width=>$w, height=>$h);
+ my $thumb = $CF{"ThumbDir"} . "$base-thumb.jpg";
+ $e = $p->Write($thumb) and die "Unable to write $thumb: $e";
+ print NOTES "$base $w $h $wo $ho\n";
+ print "OK\n";
+}
+
+1;
--- /dev/null
+# Simple Photo Gallery: Web Interface
+# (c) 2003--2005 Martin Mares <mj@ucw.cz>
+
+package Gallery::Web;
+import Gallery qw(%CF);
+
+use UCW::CGI;
+
+my $show_img;
+my $send_archive;
+
+my %args = (
+ 'i' => { 'var' => \$show_img, 'check' => '\d+' },
+ 'a' => { 'var' => \$send_archive }
+);
+
+sub new() {
+ UCW::CGI::parse_args(\%args);
+ if ($send_archive && $CF{'AllowArchives'}) {
+ require Gallery::Archive;
+ return new 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";
+}
+
+our (@images, %widths, %heights, %widths_orig, %heights_orig, %imgno);
+
+sub load_notes() {
+ @images = ("");
+ %widths = ();
+ %heights = ();
+ %imgno = ();
+ my $notes = $CF{'MetaDataDir'} . "/notes";
+ open NOTES, $notes or die "Unable to read notes ($notes): $!";
+ while (<NOTES>) {
+ chomp;
+ my ($n, $w, $h, $wo, $ho) = split /\s+/;
+ push @images, $n;
+ $widths{$n} = $w;
+ $heights{$n} = $h;
+ $widths_orig{$n} = $wo;
+ $heights_orig{$n} = $ho;
+ $imgno{$n} = $#images;
+ }
+ close NOTES;
+}
+
+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 Start($) {
+ 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;
+ load_notes();
+ if ($show_img ne "" && $show_img > 0 && $show_img <= $#images) {
+ show_links(($show_img > 1 ? ("?i=".($show_img-1)) : ""),
+ "?",
+ ($show_img < $#images ? ("?i=".($show_img+1)) : ""));
+ } else {
+ show_links($CF{'BackURL'}, $CF{'ParentURL'}, $CF{'FwdURL'});
+ print "<h1>$CF{'Title'}</h1>\n";
+ print "<h2>$CF{'SubTitle'}</h2>\n" if defined $CF{'SubTitle'};
+ }
+}
+
+sub Finish($) {
+ print "$CF{'BotExtras'}\n</body></html>\n";
+}
+
+sub RawHTML($$) {
+ my ($obj, $h) = @_;
+ print $h if $show_img eq "";
+}
+
+sub img($$$) {
+ my ($this, $orig, $annot) = @_;
+ my ($base, $ext) = ($orig =~ /^(.*)\.([^.]+)$/) or die "Unable to dissect name $orig";
+ $annot = UCW::CGI::html_escape($annot);
+ my $id = $imgno{$base} || 0;
+
+ if ($show_img ne "") {
+ if ($id == $show_img) {
+ print "<h1>$annot</h1>\n" if $annot ne "";
+ my $img = $CF{'PhotoUrlPrefix'} . $orig;
+ print "<p class=large><img src='$img' width=$widths_orig{$base} height=$heights_orig{$base} alt='$orig'>\n";
+ }
+ return;
+ }
+
+ my $thumb = $CF{'ThumbUrlPrefix'} . "$base-thumb.jpg";
+ my $w = $widths{$base} || 10;
+ my $h = $heights{$base} || 10;
+ 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'} - $w)/2);
+ my $ot = $CF{'TopH'} + $CF{'InteriorMargin'} + int(($CF{'ThumbH'} - $h)/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";
+# if ($annot ne "") {
+# print "<p class=annot>$annot\n";
+# }
+ print "</div>\n\n";
+}
+
+1;
--- /dev/null
+$(eval $(dir-setup))
+
+$(call lib-copy, Gallery.pm)
+$(call lib-copy, $(addprefix Gallery/,Archive.pm Generator.pm Web.pm))
+
+$(call copy, $(addprefix nrt-blue/,back.png bot.png left.png next.png prev.png right.png top.png theme.pm style.css))
--- /dev/null
+#!/usr/bin/perl
+# Generate image gallery
+# (c) 2004--2007 Martin Mares <mj@ucw.cz>
+
+# Syntax of input file:
+# <filename> <datestamp> <rotation> <xform>
+# where <rotation> is either ".", "l", "r" or "u"
+# <xform> contains:
+# d touch output file to <datestamp>
+# D include <datestamp> in output file names
+# n normalize contrast
+# s sharpen
+# h equalize histogram
+
+use Image::Magick;
+use IO::Handle;
+
+use strict;
+use warnings;
+
+my $maxw = 1024;
+my $maxh = 768;
+my $recompress = 1;
+
+STDERR->autoflush(1);
+print STDERR "Searching for template file... ";
+
+my $tdir = "";
+my $templ;
+my $maxdepth = 10;
+while ($maxdepth--) {
+ my $t = "${tdir}gallery.cf";
+ if (-f $t) {
+ $templ = $t;
+ last;
+ }
+ $tdir .= "../";
+ last if ! -d $tdir;
+}
+if ($templ) {
+ print STDERR "$templ\n";
+} else {
+ print STDERR "NONE\n";
+}
+
+print "#!/usr/bin/perl\n\n";
+if ($templ) {
+ print "require \"$templ\";\n\n";
+ print "SetOptions(\n";
+} else {
+ print <<EOF
+use lib '/home/mj/WWW/gal';
+use Gallery;
+
+SetOptions(
+ "GalURL" => "/~mj/gal",
+ "GalDir" => "/home/mj/WWW/gal",
+ "Theme" => "nrt",
+EOF
+;
+}
+print <<EOF
+ "Title" => "Untitled"
+);
+Start();
+EOF
+;
+
+#`rm -f [0-9]*.{jpg,png} *.tmp`; $? && die;
+
+my $idx = 0;
+while (<STDIN>) {
+ chomp;
+ my ($src, $date, $rotate, $xform) = split (/\t+/, $_);
+ $idx++;
+ my $id = sprintf("%03d", $idx);
+ if ($xform =~ /D/) {
+ $id = "$date-$id";
+ $id =~ s/ /-/g;
+ }
+ my $dest;
+ my $is_jpeg = 0;
+ if ($src =~ /\.(jpg|JPG|jpeg)$/) {
+ $dest = "$id.jpg";
+ $is_jpeg = 1;
+ } elsif ($src =~ /\.png$/) {
+ $dest = "$id.png";
+ } else {
+ die "$src: Unknown image type";
+ }
+ my $tmp = "$dest.tmp";
+ print STDERR "$dest: $src ";
+
+ my $p = new Image::Magick;
+ my $e;
+ $e = $p->Read($src) and die "Error reading $tmp: $e";
+ $p->Strip;
+ $p->SetAttribute(quality=>90);
+ my ($w, $h) = $p->Get('width', 'height');
+ print STDERR "-> ${w}x${h} ";
+
+ my ($w0, $h0) = ($rotate eq "l" || $rotate eq "r") ? ($h, $w) : ($w, $h);
+ my ($ww, $hh) = ($w0, $h0);
+ if ($ww > $maxw) {
+ my $s = $maxw / $ww;
+ $ww = $ww * $s;
+ $hh = $hh * $s;
+ }
+ if ($hh > $maxh) {
+ my $s = $maxh / $hh;
+ $ww = $ww * $s;
+ $hh = $hh * $s;
+ }
+ $ww = int($ww);
+ $hh = int($hh);
+
+ if ($recompress ||
+ !$is_jpeg ||
+ $xform ne "" ||
+ $ww != $w0 || $hh != $h0) {
+ my $rot = 0;
+ if ($rotate eq "l") { $rot = 270; }
+ elsif ($rotate eq "r") { $rot = 90; }
+ elsif ($rotate eq "u") { $rot = 180; }
+ if ($xform =~ /s/) {
+ print STDERR "-> sharpen ";
+ $p->Sharpen(1);
+ }
+ if ($xform =~ /h/) {
+ print STDERR "-> equalize ";
+ $p->Equalize();
+ }
+ if ($xform =~ /n/) {
+ print STDERR "-> normalize ";
+ $p->Normalize();
+ }
+ if ($rot) {
+ print STDERR "-> rotate $rot ";
+ $p->Rotate(degrees=>$rot);
+ $rotate = ".";
+ }
+ if ($ww != $w0 || $hh != $h0) {
+ print STDERR "-> ${ww}x${hh} ";
+ $p->Resize(width=>$ww, height=>$hh);
+ }
+ $e = $p->Write($tmp) and die "Unable to write $tmp: $e";
+ } else {
+ `cp $src $tmp`; $? && die;
+ }
+
+ if ($is_jpeg) {
+ my $tran = "-optimize -copy none";
+ if ($rotate eq ".") { }
+ elsif ($rotate eq "l") { $tran .= " -rotate 270 -trim"; }
+ elsif ($rotate eq "r") { $tran .= " -rotate 90 -trim"; }
+ elsif ($rotate eq "u") { $tran .= " -rotate 180 -trim"; }
+ else { die "Unknown rotation type $rotate"; }
+ print STDERR "-> $tran ";
+ `jpegtran $tran <$tmp >$dest`; $? && die;
+ } else {
+ rename $tmp, $dest or die;
+ }
+
+ if ($xform =~ /d/) {
+ `touch -d "$date" $dest`; die if $?;
+ }
+
+ unlink $tmp;
+ print STDERR "... OK\n";
+ print "img(\"$dest\", \"\");\t\t# $src (${w0}x${h0})\n";
+}
+
+print "Finish();\n";
+
+`rm -f *.tmp`; $? && die;
--- /dev/null
+#!/usr/bin/perl
+# Merge photos from multiple sources
+# (c) 2008 Martin Mares <mj@ucw.cz>
+
+use Image::EXIF;
+use Data::Dumper;
+
+use strict;
+use warnings;
+
+my @pics = ();
+if (@ARGV) {
+ @pics = @ARGV;
+} else {
+ while (<STDIN>) {
+ chomp;
+ /^#/ && next;
+ /^$/ && next;
+ push @pics, $_;
+ }
+}
+
+my %seen = ();
+foreach my $f (@pics) {
+ my $e = new Image::EXIF($f);
+ my $i = $e->get_all_info();
+ if ($e->error) { print STDERR "EXIF error on $f: ", $e->error, "\n"; }
+ else {
+ #print STDERR Dumper($i), "\n";
+ my $o = $i->{'image'}->{'Image Orientation'} || "Top, Left-Hand";
+ if ($o eq "Top, Left-Hand") { $o = "."; }
+ elsif ($o eq "Right-Hand, Top") { $o = "r"; }
+ elsif ($o eq "Left-Hand, Bottom") { $o = "l"; }
+ elsif ($o eq "Bottom, Right-Hand") { $o = "d"; }
+ else {
+ print STDERR "Unrecognized orientation: $o\n";
+ $o = ".";
+ }
+ my $d = $i->{'image'}->{'Image Created'};
+ if (defined($d)) {
+ $d =~ s/^(\d{4}):(\d{2}):(\d{2}) (\d{2}):(\d{2}):(\d{2})/$1$2$3-$4$5$6/ or die "Date parse error: $d";
+ } else {
+ print STDERR "Unrecognized data, skipping: $f\n";
+ next;
+ }
+ my $fn = $d;
+ if ($f =~ m{^\.\./orig/(\w+)/}) {
+ $fn = "$fn-$1";
+ }
+ if (defined $seen{$fn}) {
+ my $c = ++$seen{$fn};
+ $fn = "$fn-$c";
+ } else {
+ $seen{$fn} = 1;
+ }
+ print "ln -s '$f' '$fn.jpg'\n";
+ }
+}
--- /dev/null
+#!/usr/bin/perl
+# Scan images in a list or gqview collection and prepare them for gal-gen
+# (c) 2004--2007 Martin Mares <mj@ucw.cz>
+
+use Image::EXIF;
+use Data::Dumper;
+
+use strict;
+use warnings;
+
+my @pics = ();
+if (@ARGV) {
+ @pics = @ARGV;
+} else {
+ while (<STDIN>) {
+ chomp;
+ /^#/ && next;
+ /^$/ && next;
+ if (/^"(.*)"$/) {
+ push @pics, $1;
+ } else {
+ die "Parse error: $_";
+ }
+ }
+}
+
+foreach my $f (@pics) {
+ my $e = new Image::EXIF($f);
+ my $i = $e->get_all_info();
+ if ($e->error) { print STDERR "EXIF error on $f: ", $e->error, "\n"; }
+ else {
+ #print STDERR Dumper($i), "\n";
+ my $o = $i->{'image'}->{'Image Orientation'} || "Top, Left-Hand";
+ if ($o eq "Top, Left-Hand") { $o = "."; }
+ elsif ($o eq "Right-Hand, Top") { $o = "r"; }
+ elsif ($o eq "Left-Hand, Bottom") { $o = "l"; }
+ elsif ($o eq "Bottom, Right-Hand") { $o = "d"; }
+ else {
+ print STDERR "Unrecognized orientation: $o\n";
+ $o = ".";
+ }
+ my $d = $i->{'image'}->{'Image Created'} || "?";
+ if ($d ne "?") {
+ $d =~ s/^(\d{4}):(\d{2}):(\d{2}) (\d{2}:\d{2}:\d{2})/$1-$2-$3 $4/ or die "Date parse error: $d";
+ }
+ print "$f\t$d\t$o\tn\n";
+ }
+}
--- /dev/null
+.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; margin-bottom: 3ex; }
+P { clear: both; }
+H2 { clear: both; }
+.parent { text-align: center; }
+.large { text-align: center; }
+.back { float: left; }
+.fwd { float: right; }
+A[href]:hover { background-color: #11001d; }
--- /dev/null
+
+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
--- /dev/null
+# 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 Gallery::Theme;
+
+use strict;
+use warnings;
+
+sub Init($) {
+ my ($u) = @_;
+ 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
+ );
+}
+
+1;
--- /dev/null
+.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; }
--- /dev/null
+
+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
--- /dev/null
+# 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 Gallery::Theme;
+
+use strict;
+use warnings;
+
+sub Init($) {
+ my ($u) = @_;
+ 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
+ );
+}
+
+1;
+++ /dev/null
-.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; margin-bottom: 3ex; }
-P { clear: both; }
-H2 { clear: both; }
-.parent { text-align: center; }
-.large { text-align: center; }
-.back { float: left; }
-.fwd { float: right; }
-A[href]:hover { background-color: #11001d; }
+++ /dev/null
-
-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
+++ /dev/null
-# 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 Gallery::Theme;
-
-use strict;
-use warnings;
-
-sub Init($) {
- my ($u) = @_;
- 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
- );
-}
-
-1;
+++ /dev/null
-.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; }
+++ /dev/null
-
-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
+++ /dev/null
-# 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 Gallery::Theme;
-
-use strict;
-use warnings;
-
-sub Init($) {
- my ($u) = @_;
- 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
- );
-}
-
-1;
projects / gallery.git / commitdiff
