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__;
$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 ".
-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';"}
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,