#!/usr/bin/perl -wT
# make_rss

use strict;
use XML::RSS;

my $FILE = 'news.txt';
my $RDF_DIR = './rdf';
my $rdf = new XML::RSS;

$rdf->channel(title => 'My News',
		  link => 'http://news.me.com',
		  language => 'en',
		  description => 'My news, for you!',
		  copyright => 'Copyright 2000++, Me',
		  pubDate => scalar localtime(time),
		  lastBuildDate => scalar localtime(time),
		  managingEditor => 'me@me.com',
		  webMaster => 'me@me.com'
		);

$rdf->image(title => 'My News',
		url => 'http://news.me.com/my_news.gif',
		link => 'http://news.me.com',
		height => 30,
		width => 119
		);

open(FILE, $FILE) || die "Can't open $FILE ($!)";

while (<FILE>) {
	my ($url, $desc) = split /\|/;
	$rdf->add_item(title => $desc,
	link => $url
	);
}

$rdf->textinput(title => 'Search My News',
			description => 'Search the Archives',
			name => 'text',
			link => 'http://news.me.com/search.cgi'
		   );

$rdf->save("$RDF_DIR/my_news.rdf");