X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgalrss.pl;h=29b46765653dd81922ade3d502116ed4b2e910b6;hp=e2ee8a88fca2e4aaec34f9b63ebcc8bbcd27c219;hb=5c58dbcff6c07d9649f124874574f9c0a91b29ac;hpb=a56e7b4b7a12b446702ab83217f070cd19680a1d diff --git a/mkgalrss.pl b/mkgalrss.pl index e2ee8a8..29b4676 100755 --- a/mkgalrss.pl +++ b/mkgalrss.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Id: mkgallery.pl 38 2006-12-17 09:39:01Z crosser $ +# $Id$ # Build initial (empty) RSS file for mkgallery.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,