Test headline
Test headline 2
Test headline 3
####
#!/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 = ;
close(FILE);
open(NEWSFEED, ">$outfile") || die "Cannot Open $outfile";
print NEWSFEED<
Test
http://www.mysite.com
Test
en-us
Test
http://www.mysite.com/
http://www.mysite.com/icon.jpg
TEXT
foreach $news_include (@news)
{
$news_include =~ s//- /gi;
$news_include =~ s//<\/link>/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");
##</code><code>##
<?xml version="1.0" encoding="iso-8859-1"?>
<rss version="0.91">
<channel>
<title>Test
http://www.mysite.com
Test
en-us
Test
http://www.mysite.com/
http://www.mysite.com/icon.jpg