rss generation seems to work somehow

[mkgallery.git] / mkgalrss.pl

diff --git a/mkgalrss.pl b/mkgalrss.pl
deleted file mode 100755 (executable)
index 29b4676..0000000
--- a/mkgalrss.pl
+++ /dev/null
@@ -1,92 +0,0 @@
-#!/usr/bin/perl
-
-# $Id$
-
-# Build initial (empty) RSS file for mkgallery.pl
-
-# Copyright (c) 2007 Eugene G. Crosser
-
-#  This software is provided 'as-is', without any express or implied
-#  warranty.  In no event will the authors be held liable for any damages
-#  arising from the use of this software.
-#
-#  Permission is granted to anyone to use this software for any purpose,
-#  including commercial applications, and to alter it and redistribute it
-#  freely, subject to the following restrictions:
-#
-#  1. The origin of this software must not be misrepresented; you must not
-#     claim that you wrote the original software. If you use this software
-#     in a product, an acknowledgment in the product documentation would be
-#     appreciated but is not required.
-#  2. Altered source versions must be plainly marked as such, and must not be
-#     misrepresented as being the original software.
-#  3. This notice may not be removed or altered from any source distribution.
-
-use strict;
-use Carp;
-use Term::ReadLine;
-use XML::RSS;
-use Getopt::Long;
-use Encode;
-use encoding 'utf-8';
-binmode(STDOUT, ":utf8");
-
-######################################################################
-
-my $debug = 0;
-my $rssfile = "";
-
-unless (GetOptions(
-               'help'=>\&help,
-               'rssfile=s'=>\$rssfile,
-               'debug'=>\$debug)) {
-       &help;
-}
-
-sub help {
-
-       print STDERR <<__END__;
-usage: $0 [options]
- --help:        print help message and exit
- --debug:       print a lot of debugging info to stdout as you run
- --rssfile=...:        name of the rss file to create
-__END__
-
-       exit 1;
-}
-
-unless ($rssfile) {
-       print STDERR "you must specify --rssfile\n";
-       exit 1;
-}
-
-my $term = new Term::ReadLine "Edit RSS Attribute";
-
-my $rssobj = new XML::RSS (version=>'2.0');
-die "could not build new RSS object" unless ($rssobj);
-
-my $OUT = $term->OUT || \*STDOUT;
-print $OUT "Enter attributes for this gallery RSS feed\n";
-my $title = $term->readline('Feed title >','');
-$term->addhistory($title) if ($title);
-my $link = $term->readline('Gallery root URL >','');
-$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,
-               description=>$desc,
-               #language=>$language,
-               #rating=>$rating,
-               #copyright=>$copyright,
-               #pubDate=>$pubDate,
-               #lastBuildDate=>$lastBuild,
-               #docs=>$docs,
-               #managingEditor=>$editor,
-               #webMaster=>$webMaster
-               );
-$rssobj->save($rssfile);