#!/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 = "/home/zyz/milk/public_html/news/"; # Path to where you want the news text dumped
my $url = 'http://today.reuters.com/rss/topNews/'; # Reuter's RSS feed url.  May change from time to time
my $manual_sync = 0; # Set this to '1' if your ipod is not mounted with 'sync' - may not work on all systems
my $wait_time = 600; # Time (in seconds) between news updates

##################################################################
#                     DO NOT EDIT BELOW THIS LINE                #
##################################################################


my $twig = XML::Twig->new();
my $item_url, $item_html, $item_text, $item_title;
my $ua = LWP::UserAgent->new;


$ua->agent("");
$user = getpwuid($<);

getopts("dh", \%opts);

if($opts{h}){
	help();
}

if($opts{d}){
        daemonize();
        $daemon = 1;
}


while(1){
	
	if(!(-e $ipod_news_path)){
		sleep 5;
		next;
	}
	else{
		$mounted = 1;
	}
	
	opendir(DIR, $ipod_news_path);
	while($file = readdir(DIR)){
		if($file =~ /^\.+/){
			next;
		}
		unlink $ipod_news_path . "/" . $file;
	}
	closedir DIR;


	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>/\n/g, s/\t//g;
		$item_text =~ s/<\/p>/\n/g;
		$item_text =~ s/&nb.*//g;
	
		open OUT, ">$ipod_news_path/$item_title" or die "Could not open output file: $!\n";
		print OUT $item_text;
		close OUT;
	}
	
	if($manual_sync){
		system("/bin/sync");
	}
	
	if($daemon){
			sleep $wait_time;
	}
	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;
        }
}

sub help{
	print <<EOF;

iNewsd - an RSS based news fetcher for use with iPods and Reuters News.
Copyright 2005 - Travis Groth <travis@netfoo.org> under the GNU GPL

*Checks for ipod's presence
*Periodically checks for new news in daemon mode
*Dumps full news article text to a text file

Usage: inewsd [-d] [-h]
-d: daemonize
-h: this help message

Please edit config options before running!

EOF
exit;
}

#############################################################################
#This program is free software; you can redistribute it and/or modify
#it under the terms of the GNU General Public License as published by
#the Free Software Foundation; either version 2 of the License, or
#(at your option) any later version.
#
#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#GNU General Public License for more details.
#
#You should have received a copy of the GNU General Public License
#along with this program; if not, write to the Free Software
#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#############################################################################