#!/usr/bin/perl
use utf8;
use strict;
use XML::RSS (version => '1.0');

#RSS の URI
my @remote =
(
	'http://furyo.on-air.ne.jp/tdiary/index.rdf',
	'http://slashdot.jp/slashdot.rdf',
);
my @files = ();
my $i = 0;

#RSSファイルのダウンロードとファイル名の抽出
foreach(@remote)
{
	system "wget $_ -O /tmp/$i.rdf 2>/dev/null";
	my $temp = "/tmp/" . $i . ".rdf";
	push @files , $temp;
	$i++;
}

#親メニューの再構築
print "DestroyMenu recreate RDF\n";
print "AddToMenu RDF RDF Title\n";

#親メニューに子メニューを追加
foreach $i (0 .. $#files)
{
	print "+ \"$remote[$i]\" Popup RDF$i\n";
}

$i = 0;
my $rss = new XML::RSS;

#ダウンロードした RSS それぞれの処理
foreach my $file(@files)
{
	$rss->parsefile($file);
	print "\n";
	#子メニューの再構築
	print "DestroyMenu recreate RDF$i\n";
	print "AddToMenu RDF$i \"$remote[$i]\" Title\n";
	foreach my $item (@{$rss->{items}})
	{
		print "AddToMenu RDF$i \"$item->{title}\" Exec exec kazehakase '$item->{link}'\n";
	}
	$i++;
}

foreach(@files)
{
	unlink $_;
}