X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgallery.pl;h=085f42a7a0600826a41c64d609cf9d30661462d8;hp=c7d3f46391a0e2a1b1e3271b90f5b208497a9726;hb=f3e1802f95e4674c5994d18d01fe840758174194;hpb=938141692ce114b47e3268df7a2bb115e40e8e0d diff --git a/mkgallery.pl b/mkgallery.pl index c7d3f46..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 ".