- print STDERR "There is no $rssfile in this or parent ".
- "directories, you must create one with mkgalrss.pl\n";
- exit 1;
+ my $link="";
+ for (my $pos=index($rssfile,'/');$pos>=0;
+ $pos=index($rssfile,'/',$pos+1)) {
+ $link = '../'.$link;
+ }
+
+ $rssobj->{'rss'}->channel(
+ title=>'Gallery',
+ link=>$link,
+ description=>'Gallery Feed',
+ #language=>$language,
+ #rating=>$rating,
+ #copyright=>$copyright,
+ #pubDate=>$pubDate,
+ #lastBuildDate=>$lastBuild,
+ #docs=>$docs,
+ #managingEditor=>$editor,
+ #webMaster=>$webMaster
+ );
+ $rssobj->{'rss'}->save($rssobj->{'file'});