#!/usr/bin/perl -w
use strict;

srand(time);
my @feeds = get_rss_list();
my $feed = @feeds[rand @feeds];

print STDERR "Writing $feed\n";
system("defaults", "-currentHost", "write", "RSS Visualizer", "feedURL", $feed);


# Alternatively, just use a static list, read it from a file, whatever you want.
sub get_rss_list
{
	my @raw_list = qx(defaults read ~/Library/Safari/Bookmarks | grep -i 'feed://');
	my %rv = ();
	for (@raw_list) {
		if (/URLString\s*=\s*['"](.*)['"]\s*;?\s*$/) {
			my $url = $1;
			$rv{$url} = 1;
		}
	}
	return map { s/^feed/http/i; $_ } keys %rv;
}