X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgallery.pl;h=085f42a7a0600826a41c64d609cf9d30661462d8;hp=e64f5975b00ec4a8c693ab9abf7fe1ed86782c25;hb=f3e1802f95e4674c5994d18d01fe840758174194;hpb=a01bd7a3ca127d89ae4a2d55c289c0c13ae70693 diff --git a/mkgallery.pl b/mkgallery.pl index e64f597..085f42a 100755 --- a/mkgallery.pl +++ b/mkgallery.pl @@ -75,14 +75,6 @@ my $term = new Term::ReadLine "Edit Title"; FsObj->new(getcwd)->iterate; -if ($rssobj) { - my $itemstodel = @{$rssobj->{'rss'}->{'items'}} - 15; - while ($itemstodel-- > 0) { - pop(@{$rssobj->{'rss'}->{'items'}}) - } - $rssobj->{'rss'}->save($rssobj->{'file'}); -} - sub help { print STDERR <<__END__; @@ -172,6 +164,11 @@ sub getrss { $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 ". @@ -568,7 +565,9 @@ sub startindex { -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"}, {-code=>"var incPrefix='$inc';"} @@ -684,7 +683,7 @@ sub img_entry { div({-class=>'slidetitle',-id=>$name}, a({-href=>".html/$name-info.html", -title=>'Image Info', - -onClick=>"return showIbox('$name');"}, + -class=>'infobox'}, $title)),"\n", div({-class=>'slideimage',-id=>$name}, a({-href=>".html/$name-static.html",-title=>$title,