X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgalrss.pl;h=419806b68ca84fe369f1af55573cd75dfb6b3685;hp=e2ee8a88fca2e4aaec34f9b63ebcc8bbcd27c219;hb=c753aab96a7fc45d6d9f751e5b2cf76fc45a402b;hpb=fc80339e3c4b8d62c2138734f8b778bd714aa46b diff --git a/mkgalrss.pl b/mkgalrss.pl index e2ee8a8..419806b 100755 --- a/mkgalrss.pl +++ b/mkgalrss.pl @@ -48,13 +48,8 @@ sub help { print STDERR <<__END__; usage: $0 [options] --help: print help message and exit - --incpath: do not try to find .include diretory upstream, use - specified path (absolute or relavive). Use with causion. --debug: print a lot of debugging info to stdout as you run - --asktitle: ask to edit album titles even if there are ".title" files - --noasktitle: don't ask to enter album titles even where ".title" - files are absent. Use partial directory names as titles. - --rssfile=...: build RSS feed for newly added "albums", give name of rss file + --rssfile=...: name of the rss file to create __END__ exit 1; @@ -79,6 +74,8 @@ $term->addhistory($link) if ($link); my $desc = $term->readline('Gallery description >',''); $term->addhistory($desc) if ($desc); +$link .= '/' unless ($link =~ m%/$%); + $rssobj->channel( title=>$title, link=>$link,