#!/usr/bin/perl
-# $Id: mkgallery.pl 38 2006-12-17 09:39:01Z crosser $
+# $Id$
# Build initial (empty) RSS file for mkgallery.pl
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;
my $desc = $term->readline('Gallery description >','');
$term->addhistory($desc) if ($desc);
+$link .= '/' unless ($link =~ m%/$%);
+
$rssobj->channel(
title=>$title,
link=>$link,