use strict;
use Carp;
use POSIX qw/getcwd strftime/;
-use CGI qw/:html *table *Tr *center *div/;
+use CGI qw/:html *table *Tr *center *div *Link/;
use Image::Info qw/image_info dim/;
use Term::ReadLine;
use Getopt::Long;
my $haveimagick = eval { require Image::Magick; };
{ package Image::Magick; } # to make perl compiler happy
+my $haverssxml = eval { require XML::RSS; };
+{ package XML::RSS; } # to make perl compiler happy
+
my @sizes = (160, 640);
######################################################################
my $incpath;
+my $rssobj;
my $debug = 0;
my $asktitle = 0;
my $noasktitle = 0;
+my $rssfile = "";
charset("utf-8");
'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;
+if ($rssobj) {
+ $rssobj->save($rssfile);
+}
+
sub help {
print STDERR <<__END__;
--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;
-base=>$name,
-fullpath=>$fullpath,
-inc=>'../'.$parent->{-inc},
+ -rss=>'../'.$parent->{-rss},
};
} else {
$class = $this;
-root=>$root,
-fullpath=>$root,
-inc=>getinc($root),
+ -rss=>getrss($root),
};
}
bless $self, $class;
}
}
+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 = new XML::RSS (version=>2);
+ $rssobj->parsefile($rss);
+ 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};
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",
+ -head=>$rsslink,
-style=>{-src=>[$inc."gallery.css",
$inc."lightbox.css"]},
-script=>[{-code=>"var incPrefix='$inc';"},
close($IND) if ($IND);
undef $self->{-IND};
+ print STDERR "title=",$self->{-title},
+ ", numofsubs=",$self->{-numofsubs},
+ ", numofimgs=",$self->{-numofimgs},"\n";
+ if ($rssobj) {
+ my $rsstitle=sprintf "%s [%d images, %d subalbums]",
+ $self->{-title},
+ $self->{-numofimgs},
+ $self->{-numofsubs};
+ my $rsslink=$rssobj->channel('link')."index.html";
+ $rssobj->add_item(
+ title => $self->{-title},
+ link => $rsslink,
+ description => $rsstitle,
+ );
+ }
}
sub startsublist {
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";
}
my $info = $self->{-info};
my ($w, $h) = dim($info);
+ $self->{-parent}->{-numofimgs}++;
print $IND start_div({-class=>'ibox',-id=>$name,
-OnClick=>"HideIbox('$name');"}),"\n",
start_div({-class=>'iboxtitle'}),
--- /dev/null
+#!/usr/bin/perl
+
+# $Id: mkgallery.pl 38 2006-12-17 09:39:01Z crosser $
+
+# Build initial (empty) RSS file for mkgallery.pl
+
+# Copyright (c) 2007 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
+# arising from the use of this software.
+#
+# Permission is granted to anyone to use this software for any purpose,
+# including commercial applications, and to alter it and redistribute it
+# freely, subject to the following restrictions:
+#
+# 1. The origin of this software must not be misrepresented; you must not
+# claim that you wrote the original software. If you use this software
+# in a product, an acknowledgment in the product documentation would be
+# appreciated but is not required.
+# 2. Altered source versions must be plainly marked as such, and must not be
+# misrepresented as being the original software.
+# 3. This notice may not be removed or altered from any source distribution.
+
+use strict;
+use Carp;
+use Term::ReadLine;
+use XML::RSS;
+use Getopt::Long;
+use Encode;
+use encoding 'utf-8';
+binmode(STDOUT, ":utf8");
+
+######################################################################
+
+my $debug = 0;
+my $rssfile = "";
+
+unless (GetOptions(
+ 'help'=>\&help,
+ 'rssfile=s'=>\$rssfile,
+ 'debug'=>\$debug)) {
+ &help;
+}
+
+sub help {
+
+ print STDERR <<__END__;
+usage: $0 [options]
+ --help: print help message and exit
+ --incpath: do not try to find .include diretory upstream, use
+ specified path (absolute or relavive). Use with causion.
+ --debug: print a lot of debugging info to stdout as you run
+ --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;
+}
+
+unless ($rssfile) {
+ print STDERR "you must specify --rssfile\n";
+ exit 1;
+}
+
+my $term = new Term::ReadLine "Edit RSS Attribute";
+
+my $rssobj = new XML::RSS (version=>'2.0');
+die "could not build new RSS object" unless ($rssobj);
+
+my $OUT = $term->OUT || \*STDOUT;
+print $OUT "Enter attributes for this gallery RSS feed\n";
+my $title = $term->readline('Feed title >','');
+$term->addhistory($title) if ($title);
+my $link = $term->readline('Gallery root URL >','');
+$term->addhistory($link) if ($link);
+my $desc = $term->readline('Gallery description >','');
+$term->addhistory($desc) if ($desc);
+
+$rssobj->channel(
+ title=>$title,
+ link=>$link,
+ description=>$desc,
+ #language=>$language,
+ #rating=>$rating,
+ #copyright=>$copyright,
+ #pubDate=>$pubDate,
+ #lastBuildDate=>$lastBuild,
+ #docs=>$docs,
+ #managingEditor=>$editor,
+ #webMaster=>$webMaster
+ );
+$rssobj->save($rssfile);
projects / mkgallery.git / commitdiff