#!/usr/bin/perl
use POSIX qw(setsid);
use Getopt::Std;
use XML::Twig;
use LWP::UserAgent;
use English;
use File::Path;

my $ipod_news_path = "/media/IPOD/Notes/News";
my $url = 'http://today.reuters.com/rss/topNews/';
my $twig = XML::Twig->new();
my $item_url, $item_html, $item_text, $item_title;
my $ua = LWP::UserAgent->new;
$ua->agent("");
$user = getpwuid($<);

getopts("d", \%opts);
if($opts{d}){
        daemonize();
        $daemon = 1;
}


while(1){
	
	if(!(`mount` =~ /IPOD/)){
		sleep 5;
		next;
	}
	else{
		$mounted = 1;
	}
	
	system("rm -f $ipod_news_path/*");
	print "Fetching RSS feed...\n\n";
	
	$twig->parseurl($url) or die "$!";

	my $root = $twig->root;
	$root = $root->first_child();

	print "Today\'s Headlines:\n\n";
	
	foreach $item ($root->children('item')){	
		$item_title = $item->first_child_text('title');
	
		print "$item_title...\n";

		$item_url = $item->first_child_text('link');
		$item_html = $ua->get($item_url)->content;
		
		$item_html =~ /article text begins -->/;
		
		$item_text = $POSTMATCH;
		
		$item_text =~ /<!-- article text ends/;
		$item_text = $PREMATCH;
	
		$item_text =~ s/<P>//g, s/\t//g;
		$item_text =~ s/\s{3}/\n/g;
		$item_text =~ s/&nb.*//g;
	
		open OUT, ">$ipod_news_path/$item_title";
		print OUT $item_text;
		close OUT;
	}
	system("sync");
	if($daemon){
			sleep 600;
	}
	else{
		exit;
	}
}
sub daemonize{
        chdir '/';
        umask 0;
        open STDIN, '/dev/null';
        open STDOUT, '/dev/null';
        open STDERR, '/dev/null';

        if(fork()){
                exit;
        }
        else{
                setsid;
                return;
        }
}