]> www.average.org Git - mkgallery.git/blobdiff - mkgallery.pl
wip
[mkgallery.git] / mkgallery.pl
index 5c02e0b83995e8fbbe765854689865f2e67603d2..0a4988c067899577d46b7a934da5c67dbd4c7bd2 100755 (executable)
@@ -3,10 +3,10 @@
 # $Id$
 
 # Recursively create image gallery index and slideshow wrappings.
-# Makes use of (slightly modified) "lightbox" Javascript/CSS as published
-# at http://www.huddletogether.com/projects/lightbox/
+# Makes use of modified "slideshow" javascript by Samuel Birch
+# http://www.phatfusion.net/slideshow/
 
-# Copyright (c) 2006 Eugene G. Crosser
+# Copyright (c) 2006-2008 Eugene G. Crosser
 
 #  This software is provided 'as-is', without any express or implied
 #  warranty.  In no event will the authors be held liable for any damages
@@ -29,7 +29,7 @@ package FsObj;
 use strict;
 use Carp;
 use POSIX qw/getcwd strftime/;
-use CGI qw/:html *table *Tr *center *div/;
+use CGI qw/:html *table *Tr *td *center *div *Link/;
 use Image::Info qw/image_info dim/;
 use Term::ReadLine;
 use Getopt::Long;
@@ -40,14 +40,19 @@ binmode(STDOUT, ":utf8");
 my $haveimagick = eval { require Image::Magick; };
 { package Image::Magick; }     # to make perl compiler happy
 
-my @sizes = (160, 640);
+my $haverssxml = eval { require XML::RSS; };
+{ package XML::RSS; }          # to make perl compiler happy
+
+my @sizes = (160, 640, 1600);
 
 ######################################################################
 
 my $incpath;
+my $rssobj;
 my $debug = 0;
 my $asktitle = 0;
 my $noasktitle = 0;
+my $rssfile = "";
 
 charset("utf-8");
 
@@ -56,10 +61,16 @@ unless (GetOptions(
                'incpath'=>\$incpath,
                'asktitle'=>\$asktitle,
                'noasktitle'=>\$noasktitle,
+               'rssfile=s'=>\$rssfile,
                'debug'=>\$debug)) {
        &help;
 }
 
+if ($rssfile && ! $haverssxml) {
+       print STDERR "You need to get XML::RSS from CPAN to use --rssfile\n";
+       exit 1;
+}
+
 my $term = new Term::ReadLine "Edit Title";
 
 FsObj->new(getcwd)->iterate;
@@ -75,6 +86,7 @@ usage: $0 [options]
  --asktitle:    ask to edit album titles even if there are ".title" files
  --noasktitle:  don't ask to enter album titles even where ".title"
                 files are absent.  Use partial directory names as titles.
+ --rssfile=...:        build RSS feed for newly added "albums", give name of rss file
 __END__
 
        exit 1;
@@ -95,6 +107,7 @@ sub new {
                                -base=>$name,
                                -fullpath=>$fullpath,
                                -inc=>'../'.$parent->{-inc},
+                               -rss=>'../'.$parent->{-rss},
                        };
        } else {
                $class = $this;
@@ -103,6 +116,7 @@ sub new {
                                -root=>$root,
                                -fullpath=>$root,
                                -inc=>getinc($root),
+                               -rss=>getrss($root),
                        };
        }
        bless $self, $class;
@@ -135,6 +149,34 @@ sub getinc {
        }
 }
 
+sub getrss {
+       my $fullpath=shift;     # this is not a method
+       my $depth=20;           # arbitrary max depth
+
+       return "" unless $rssfile;
+
+       my $rss=$rssfile;
+       while ( ! -f $fullpath."/".$rss ) {
+               $rss = "../".$rss;
+               last unless ($depth-- > 0);
+       }
+       if ($depth > 0) {
+               $rssobj->{'file'} = $rss;
+               $rssobj->{'rss'} = new XML::RSS (version=>2);
+               $rssobj->{'rss'}->parsefile($rss);
+               my $itemstodel = @{$rssobj->{'rss'}->{'items'}} - 15;
+               while ($itemstodel-- > 0) {
+                       pop(@{$rssobj->{'rss'}->{'items'}})
+               }
+               $rssobj->{'rss'}->save($rssobj->{'file'});
+               return $rss;
+       } else {
+               print STDERR "There is no $rssfile in this or parent ".
+                       "directories, you must create one with mkgalrss.pl\n";
+               exit 1;
+       }
+}
+
 sub iterate {
        my $self = shift;
        my $fullpath .= $self->{-fullpath};
@@ -352,9 +394,12 @@ sub makescaled {
                my $nfn = $dn.'/'.$nref;
                my $factor=$size/$max;
                if ($factor >= 1) {
-                       $self->{$size} = $name; # unscaled version will do
+                       $self->{$size}->{'url'} = $name; # unscaled version
+                       $self->{$size}->{'dim'} = [$w, $h];
                } else {
-                       $self->{$size} = $nref;
+                       $self->{$size}->{'url'} = $nref;
+                       $self->{$size}->{'dim'} = [int($w*$factor+.5),
+                                                       int($h*$factor+.5)];
                        if (isnewer($fn,$nfn)) {
                                doscaling($fn,$nfn,$factor,$w,$h);
                        }
@@ -407,7 +452,7 @@ sub makeaux {
        for my $refresh('static', 'slide') {
                my $fn = sprintf("%s/.html/%s-%s.html",$dn,$name,$refresh);
                if (isnewer($self->{-fullpath},$fn)) {
-                       my $imgsrc = '../'.$self->{$sizes[1]};
+                       my $imgsrc = '../'.$self->{$sizes[1]}->{'url'};
                        my $fwdref;
                        my $bakref;
                        if ($nref) {
@@ -452,18 +497,16 @@ sub makeaux {
                                        -style=>{-src=>$inc."gallery.css"},
                                        ),"\n";
                        }
-                       print $F start_center,"\n",
-                               h1($title),"\n",
-                               start_table({-class=>'navi'}),start_Tr,"\n",
+                       print $F start_table({-class=>'navi'}),start_Tr,"\n",
                                td(a({-href=>"../index.html"},"Index")),"\n",
                                td(a({-href=>$bakref},"<<Prev")),"\n",
                                td(a({-href=>$toggleref},$toggletext)),"\n",
                                td(a({-href=>$fwdref},"Next>>")),"\n",
+                               td({-class=>'title'},$title),"\n",
                                end_Tr,
                                end_table,"\n",
-                               table({-class=>'picframe'},
-                                       Tr(td(img({-src=>$imgsrc})))),"\n",
-                               end_center,"\n",
+                               center(table({-class=>'picframe'},
+                                       Tr(td(img({-src=>$imgsrc}))))),"\n",
                                end_html,"\n";
                        close($F);
                }
@@ -480,13 +523,19 @@ sub makeaux {
                my $imgsrc = sprintf("../.%s/%s",$sizes[0],$name);
                print $F start_html(-title=>$title,
                                -encoding=>"utf-8",
-                               -style=>{-src=>$inc."gallery.css"},),"\n",
+                               -style=>{-src=>$inc."gallery.css"},
+                               -script=>[
+                                       {-src=>$inc."mootools.js"},
+                                       {-src=>$inc."urlparser.js"},
+                                       {-src=>$inc."infopage.js"},
+                               ]),"\n",
                        start_center,"\n",
                        h1($title),"\n",
                        table({-class=>'ipage'},
                                Tr(td(img({-src=>$imgsrc})),
                                        td($self->infotable))),
-                       a({-href=>'../index.html'},'Index'),"\n",
+                       a({-href=>'../index.html',-class=>'conceal'},
+                               'Index'),"\n",
                        end_center,"\n",
                        end_html,"\n";
                close($F);
@@ -508,13 +557,26 @@ sub startindex {
 
        my $inc = $self->{-inc};
        my $title = $self->{-title};
+       my $rsslink="";
+       if ($self->{-rss}) {
+               $rsslink=Link({-rel=>'alternate',
+                               -type=>'application/rss+xml',
+                               -title=>'RSS',
+                               -href=>$self->{-rss}});
+       }
        print $IND start_html(-title => $title,
                        -encoding=>"utf-8",
-                       -style=>{-src=>[$inc."gallery.css",
-                                       $inc."lightbox.css"]},
-                       -script=>[{-code=>"var incPrefix='$inc';"},
+                       -head=>$rsslink,
+                       -style=>{-src=>$inc."gallery.css"},
+                       -script=>[
+                               {-src=>$inc."mootools.js"},
+                               {-src=>$inc."overlay.js"},
+                               {-src=>$inc."urlparser.js"},
+                               {-src=>$inc."multibox.js"},
+                               {-src=>$inc."slideshow.js"},
                                {-src=>$inc."gallery.js"},
-                               {-src=>$inc."lightbox.js"}]),
+                               {-code=>"var incPrefix='$inc';"}
+                       ]),
                a({-href=>"../index.html"},"UP"),"\n",
                start_center,"\n",
                h1($title),"\n",
@@ -529,6 +591,18 @@ sub endindex {
 
        close($IND) if ($IND);
        undef $self->{-IND};
+       if ($rssobj) {
+               my $rsstitle=sprintf "%s [%d images, %d subalbums]",
+                               $self->{-title},
+                               $self->{-numofimgs},
+                               $self->{-numofsubs};
+               my $rsslink=$rssobj->{'rss'}->channel('link')."index.html";
+               $rssobj->{'rss'}->add_item(
+                       title           => $self->{-title},
+                       link            => $rsslink,
+                       description     => $rsstitle,
+               );
+       }
 }
 
 sub startsublist {
@@ -544,6 +618,7 @@ sub sub_entry {
        my $name = $self->{-base};
        my $title = $self->{-title};
 
+       $self->{-parent}->{-numofsubs}++;
        print $IND Tr(td(a({-href=>$name.'/index.html'},$name)),
                        td(a({-href=>$name.'/index.html'},$title))),"\n";
 }
@@ -561,8 +636,26 @@ sub startimglist {
        my $first = $self->{-firstimg}->{-base};
        my $slideref = sprintf(".html/%s-slide.html",$first);
 
-       print $IND h2("Images"),"\n",
-               a({-href=>$slideref},'Slideshow'),
+       print $IND h2("Images ",
+               a({-href=>$slideref,-class=>'showStart',-id=>$first},
+                       '> slideshow')),"\n",
+               start_div({-id=>"slideshowWindow",-class=>"slideshowWindow"}),
+               div({-id=>"slideshowContainer",
+                       -class=>"slideshowContainer"},""),
+               start_div({-id=>"slideshowControls",
+                       -class=>"slideshowControls"}),
+               a({-href=>"#",-onClick=>"show.previous();return false;"},
+                       "Prev"),
+               a({-href=>"#",-onClick=>"show.play();return false;"},
+                       "Play"),
+               a({-href=>"#",-onClick=>"show.stop();return false;"},
+                       "Stop"),
+               a({-href=>"#",-onClick=>"show.next();return false;"},
+                       "Next"),
+               a({-href=>"#",-onClick=>"showStop();return false;"},
+                       "Exit"),
+               end_div,
+               end_div,
                "\n";
 }
 
@@ -572,31 +665,41 @@ sub img_entry {
        my $name = $self->{-base};
        my $title = $self->{-info}->{'Comment'};
        $title = $name unless ($title);
-       my $thumb = $self->{$sizes[0]};
-       my $medium = $self->{$sizes[1]};
+       my $thumb = $self->{$sizes[0]}->{'url'};
        my $info = $self->{-info};
        my ($w, $h) = dim($info);
 
-       print $IND start_div({-class=>'ibox',-id=>$name,
-                               -OnClick=>"HideIbox('$name');"}),"\n",
-               start_div({-class=>'iboxtitle'}),
-               span({-style=>'float: left;'},b("Info for $name")),
-               span({-style=>'float: right;'},
-                       a({-href=>"#",-OnClick=>"HideIbox('$name');"},"Close")),
-               br({-clear=>'all'}),"\n",
-               end_div,"\n",
-               $self->infotable,
-               end_div,"\n";
-
-       print $IND table({-class=>'slide'},Tr(td(
-               a({-href=>".html/$name-info.html",-title=>'Image Info',
-                       -onClick=>"return showIbox('$name');"},$title),
-               br,
-               a({-href=>$medium,-rel=>"lightbox",-title=>$title},
-                       img({-src=>$thumb})),
-               br,
-               a({-href=>$name,-title=>'Original Image'},"($w x $h)"),
-               br))),"\n";
+       my $i=0+$self->{-parent}->{-numofimgs};
+       $self->{-parent}->{-numofimgs}++;
+
+       print $IND a({-name=>$name}),"\n",
+               start_table({-class=>'slide'}),start_Tr,start_td,"\n",
+               div({-class=>'slidetitle',-id=>$name},
+                       "\n ",a({-href=>".html/$name-info.html",
+                               -title=>'Image Info: '.$name,
+                               -class=>'infoBox'},
+                               $title),"\n"),"\n",
+               div({-class=>'slideimage',-id=>$name},
+                       "\n ",a({-href=>".html/$name-static.html",
+                               -title=>$title,
+                               -class=>'showImage',
+                               -id=>$name},
+                               img({-src=>$thumb})),"\n"),"\n",
+               start_div({-class=>'varimages',-id=>$name}),"\n";
+       foreach my $sz(@sizes) {
+               my $src=$self->{$sz}->{'url'};
+               my $w=$self->{$sz}->{'dim'}->[0];
+               my $h=$self->{$sz}->{'dim'}->[1];
+               print $IND "  ",a({-href=>$src,
+                       -class=>"conceal ".
+                               (($sz == 640)?"slideshowThumbnail":""),
+                       -title=>"Reduced to ".$w."x".$h},
+                       $w."x".$h)," \n";
+       }
+       print $IND "  ",a({-href=>$name,
+                               -title=>'Original'},$w."x".$h),
+               "\n",end_div,"\n",
+               end_td,end_Tr,end_table,"\n";
 }
 
 sub endimglist {