to stop leaking showwin's internals, make a trivial getter

[mkgallery.git] / mkgalrss.pl

diff --git a/mkgalrss.pl b/mkgalrss.pl
index e2ee8a88fca2e4aaec34f9b63ebcc8bbcd27c219..29b46765653dd81922ade3d502116ed4b2e910b6 100755 (executable)
--- 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,