#! Perl
use strict;
use diagnostics;
use LWP::UserAgent;

my @feedlist;

open NEWSCONFIG, "inews.cfg";

while(<NEWSCONFIG>) {
	push(@feedlist,$_);
}

close NEWSCONFIG;

foreach(@feedlist) {
	chomp;
}

my $driveletter = shift(@feedlist);



foreach my $newsfeed (@feedlist) {

	my @includes;
	my $url;
	my $filename;
	
	@includes = split(/\s/, $newsfeed);

	$filename = shift(@includes);
	$url = shift(@includes);
	
	
	######-Get Feeds From The Internet-#####
	my $ua = LWP::UserAgent->new;
	$ua->agent("iNews News Aggregator");
	# Create a request
	my $req = HTTP::Request->new(GET => $url);
	# Pass request to the user agent and get a response back
	my $feedObj = $ua->request($req);
	# Check the outcome of the response
	######-----------------------------#####
	
	my @items;
	my $feedtext = $feedObj->content;

	print "Generating Output..";
	
	$feedtext =~ s/\n//g;
	
	print "..";
	
	open IPOD, "> $driveletter".":\\notes\\"."$filename" or die;
	
	@items = split/<item/, $feedtext;
	shift(@items);
	
	print "..";
	
	foreach my $item (@items) {
		foreach my $attrib (@includes) {
			if ($item =~ /<$attrib>(.*)<\/$attrib>/) {
				my $toPod = $1;
				
				###-Strip Markup Tags-###
				$toPod =~ s/<.+?>//g;
				$toPod =~ s/&quot\;//g;
				$toPod =~ s/&nbsp\;//g;
				$toPod =~ s/&lt;.+?&gt\;//g;
				###-------------------###
				print IPOD "$toPod\n";

			}
		
		}
		print IPOD "*\n";
	}
	
	close IPOD;
}