- $rssobj->{'file'} = $self->{-toppath}.'/'.$feed;
- $rssobj->{'rss'} = new XML::RSS (version=>'2.0');
- if ( -f $rssobj->{'file'} ) {
- $rssobj->{'rss'}->parsefile($rssobj->{'file'});
- my $itemstodel = @{$rssobj->{'rss'}->{'items'}} - 15;
+ my ($feedfile, $feedbase, $feedhub) = split(',', $feed);
+ $feedbase .= '/' unless ($feedbase =~ /\/$/);
+ print "($feedfile, $feedbase, $feedhub)\n";
+
+ $rssobj->{-savepath} = $self->{-toppath}.'/'.$feedfile;
+ $rssobj->{-file} = $feedfile;
+ $rssobj->{-base} = $feedbase;
+ $rssobj->{-hub} = $feedhub;
+ $rssobj->{-rss} = new XML::RSS (version=>'2.0');
+ if ( -f $rssobj->{-file} ) {
+ $rssobj->{-rss}->parsefile($rssobj->{-file});
+ my $itemstodel = @{$rssobj->{-rss}->{'items'}} - 15;