#!/usr/bin/perl

use Palm::PDB;
use Palm::Memo;
use XML::RSS;
use LWP::Simple;

%Sites = (
"slashdot"=>"http://slashdot.org/slashdot.rdf",
"freshmeat"=>"http://freshmeat.net/backend/fm.rdf",
"useperl"=>"http://use.perl.org/useperl.rdf",
"devshed"=>"http://www.devshed.com/devshednews.rdf",
"securityfocus"=>"http://www.securityfocus.com/topnews-rss.html"
"perlnews"=>"http://www.news.perl.org/perl-news.rdf",
"segfault"=>"http://segfault.org/stories.xml"
 );

$site = "useperl";

getstore($Sites{$site},"$site.rdf");
$date = join ("",localtime[3],localtime[5],localtime[5]);

$pdb = new Palm::Memo;
$pdb->Load("MemoDB.pdb");
$rss = new XML::RSS(version => '1.0');
$rss->parsefile("$site.rdf");
$record = $pdb->new_Record;
$record->{data}="$data $site Headlines\n";

foreach $item (@{$rss->{items}}) 
{ $record->{data} .= $item->{title}."\n".$item->{link}."\n"; }
push @{$pdb->{records}},$record;
$pdb->Write("Memo.pdb");