#!/usr/bin/perl

use RPC::XML::Client;
use lib '../oma-bin';
use OMA;
use lib '../reboot';
use REBOOT;



my $client = new RPC::XML::Client('http://www.reboot.fm/RPC2/');

$db = OMA::opendb();
$st=$db->prepare("	SELECT	id,dc__publisher,dc__identifier
					FROM	reboot_page
					WHERE	dc__publisher='100tage.reboot.fm'
");
$st->execute();
while(@row=$st->fetchrow()) {
	@n = split(/-/,$row[2]);
	$eid = $n[$#n];
	$eid =~ s/\.ogg$//;
#	print "$row[0] $row[1] $row[2] $eid\n";
	$url = "http://archive.reboot.fm/reboot-perl/reboot-parse?op=showitem&id=$row[0]&base=$row[1]";

	my $req = RPC::XML::request->new('radio.setArchiveUrl',"$eid","$url");
	my $res = $client->send_request($req);

	if(ref($res) eq "RPC::XML::fault") {
		print "somethings went wrong\n";
		return;
	} else {
		print "$eid done\n";
	}

}
$st->finish();
