+ $self->{-inc} = $inc;
+ my $dp=0;
+ my $pos;
+ for ($pos=index($inc,'/');$pos>=0;
+ $pos=index($inc,'/',$pos+1)) {
+ $dp++;
+ }
+ $self->{-depth} = $dp;
+ for ($pos=length($fullpath);$dp>0 && $pos>0;
+ $pos=rindex($fullpath,'/',$pos-1)) {
+ $dp--;
+ }
+ my $relpath = substr($fullpath,$pos);
+ $relpath =~ s%^/%%;
+ $relpath .= '/' if ($relpath);
+ $self->{-relpath} = $relpath;
+ $self->{-toppath} = substr($fullpath,0,$pos);
+ #print "rel=$relpath, top=$self->{-toppath}, inc=$inc\n";
+ initrss($self);
+ } else {
+ $self->{-inc} = 'NO-.INCLUDE-IN-PATH/'; # won't work anyway
+ $self->{-rss} = '';
+ $self->{-relpath} = '';
+ $self->{-depth} = 0;
+ }
+}
+
+sub initrss {
+ my $self=shift; # this is not a method but we cheat
+ my $fullpath=$self->{-fullpath};
+ my $toppath=$self->{-toppath};
+ my $inc=$self->{-inc}.$incdir.'/';
+ my $conffile=$toppath.'/'.$incdir.'/rss.conf';
+ my $CONF;
+
+ if ($rssfile) {
+ if (open($CONF,">".$conffile)) {
+ print $CONF "file: ",$rssfile,"\n";
+ close($CONF);
+ } else {
+ print STDERR "could not open $conffile: $!\n";
+ }
+ } else {
+ if (open($CONF,$conffile)) {
+ my $ln=<$CONF>;
+ close($CONF);
+ chop $ln;
+ my ($k,$v)=split(':', $ln);
+ $k =~ s/^\s*//;
+ $k =~ s/\s*$//;
+ $v =~ s/^\s*//;
+ $v =~ s/\s*$//;
+ if ($k eq 'file') {
+ $rssfile=$v;
+ }
+ }
+ }
+
+ return unless ($rssfile);
+
+ $rssobj->{'file'} = $self->{-toppath}.'/'.$rssfile;
+ $rssobj->{'rss'} = new XML::RSS (version=>'2.0');
+ if ( -f $rssobj->{'file'} ) {
+ $rssobj->{'rss'}->parsefile($rssobj->{'file'});
+ my $itemstodel = @{$rssobj->{'rss'}->{'items'}} - 15;
+ while ($itemstodel-- > 0) {
+ pop(@{$rssobj->{'rss'}->{'items'}})
+ }
+ $rssobj->{'rss'}->save($rssobj->{'file'});