- 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;
+ my ($feedfile, $feedbase, $feedhub) = split(',', $feed);
+ $feedbase .= '/' unless ($feedbase =~ /\/$/);
+ print "($feedfile, $feedbase, $feedhub)\n";
+
+ $feedobj->{-savepath} = $self->{-toppath}.'/'.$feedfile;
+ $feedobj->{-file} = $feedfile;
+ $feedobj->{-base} = $feedbase;
+ $feedobj->{-hub} = $feedhub;
+ if ( -f $feedobj->{-file} ) {
+ $feedobj->{-feed} = XML::FeedPP::Atom::Atom10->new(
+ $feedobj->{-file});
+ $feedobj->{-feed}->limit_item(15);