X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgalrss.pl;fp=mkgalrss.pl;h=0000000000000000000000000000000000000000;hp=29b46765653dd81922ade3d502116ed4b2e910b6;hb=035a5d0ef46b005f32ffacaba9ae660f9540fed5;hpb=a4459ef8c416655779d060838622932d26cded1b

diff --git a/mkgalrss.pl b/mkgalrss.pl
deleted file mode 100755
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);