#!/usr/bin/perl -w

use strict;
use URI::Escape;
use LWP::Simple qw/get/;
use XML::LibXML;
use XML::XPath;
use XML::XPath::XMLParser; 
    
my $xml_url = 'http://feeds2.feedburner.com/oreilly/perl';
    
print "Getting RSS from O'Reilly Network - ONlamp.com \n";
my $xml_file = get($xml_url);
my $parser = XML::LibXML->new;
my $source = $parser->parse_string( $xml_file );
    
print "Getting nodes & counting them \n";
my @entries = $source->find('//entry')->get_nodelist;
my $count_entries = @entries;
    
print "Found $count_entries entries. \n";
    
foreach my $entry (@entries){
   my $title = $entry->find('title')->string_value;
   my $author = $entry->find('author')->string_value;
   my $content = $entry->find('content')->string_value;
   my $link = $entry->find('link')->string_value;
   my $published = $entry->find('published')->string_value;

   print "Saving entry for $author in MySQL \n";
   &save_to_mysql($title,$author,$content,$link,$published);
}

exit;