- my $link;
- my $p1;
- my $p2;
- for ($p1=0,$p2=length($toppath);
- substr($rssfile,$p1,3) eq '../' && $p2>0;
- $p1+=3,$p2=rindex($toppath,'/',$p2-1)) {;}
- $link=substr($toppath,$p2);
- $link =~ s%^/%%;
- $link .= '/' if ($link);
- while (($p1=index($rssfile,'/',$p1+1)) >= 0) {
- $link = '../'.$link;
- }
-
- $rssobj->{'rss'}->channel(