#!/usr/local/bin/perl


use LWP::Simple;

####################
# STATIC VARIABLES #
####################
$original_include = "/usr/www/users/me/articles/1view.h";
$outfile = "/usr/www/users/me/test.rss";


open (FILE, $original_include) || die "couldn't open the file!";
@news = <FILE>;
close(FILE);



open(NEWSFEED, ">$outfile") || die "Cannot Open $outfile";
print NEWSFEED<<TEXT;
<?xml version="1.0" encoding="iso-8859-1"?>
<rss version="0.91">
<channel>
<title>Test</title>
<link>http://www.mysite.com</link>
<description>
Test
</description>
<language>en-us</language>
<image>
<title>Test</title>
<url>http://www.mysite.com/</url>
<link>http://www.mysite.com/icon.jpg</link>
</image>
TEXT



foreach $news_include (@news)
{

$news_include =~ s/<LI>/<item><link>/gi;
$news_include =~ s/<FONT COLOR=\"\#000000\" SIZE=\"-1\" FACE=\"arial\">/<\/link><title>/gi;
$news_include =~ s/<\/FONT><\/A><\/FONT><BR>/<\/title><\/item>/gi;

print NEWSFEED<<TEXT;
$news_include
TEXT


} #end foreach $news_include (@news_include)

print NEWSFEED"</channel>";
print NEWSFEED"</rss>";
close(NEWSFEED);
system("chmod 0777 $outfile");