#
# AlienBBC SR Copyright (C) Patrik Wallström
#
# AlienSRMenu.pm
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License, version 2.
#

use strict;

package Plugins::Alien::AlienSRMenu;

use Plugins::Alien::AlienSubMenuItem();
use Plugins::Alien::AlienMenu();
use LWP::Simple;

my @srstations = (
		   "Sveriges Radio P1|den talande radion|mms://sr-wm.qbrick.com/02038_p1-wm-high",
		   "Sveriges Radio P2|bara musik|mms://sr-wm.qbrick.com/02038_p2-musik-wm-high",
		   "Sveriges Radio P3|den unga kanalen|mms://sr-wm.qbrick.com/02038_p3-wm-high",
		   "Sveriges Radio P4|den vuxna kanalen|mms://sr-wm.qbrick.com/02038_p4riks-wm-high",
		   "Sveriges Radio P5 Radio Stockholm|Radio Stockholm|mms://sr-wm.qbrick.com/02038_p5sth-wm-high",
		   "Sveriges Radio P7 SisuRadio|program på finska|mms://sr-wm.qbrick.com/02038_sisu-wm-high",
		   "Sveriges Radio P3 Rockster|bara rock - inget annat|mms://sr-wm.qbrick.com/02038_p3rockster-wm-high",
		   "Sveriges Radio P3 Star|hitmusik dygn runt|mms://sr-wm.qbrick.com/02038_p3star-wm-high",
		   "Sveriges Radio P3 Street|r'n'b och hip hop - nonstop|mms://sr-wm.qbrick.com/02038_p3street-wm-high",
		   "Sveriges Radio P3 Svea|ung svensk musik|mms://sr-wm.qbrick.com/02038_p3svea-wm-high",
		   "Sveriges Radio c|ett ljudmagasin|mms://sr-wm.qbrick.com/02038_src-wm-high",
		   "Sveriges Radio Klassiskt|klassisk melodiradio|mms://sr-wm.qbrick.com/02038_srk-wm-high",
		   "Sveriges Radio Minnen|radiopärlor från SR:s arkiv|mms://sr-wm.qbrick.com/02038_srminnen-wm-high",
		   "Sveriges Radio Sverige|jorden runt, dygnet runt|mms://sr-wm.qbrick.com/02038_srsverige-wm-high",
		   "Sveriges Radio X|alla tiders POP!|mms://sr-wm.qbrick.com/02038_srx-wm-high",
		  );

sub new
{
    my $class = shift;
    my $self = {};
    bless $self,$class;
    $self->_initialise(@_);
    return $self;
}

sub _initialise
{
    my $self = shift;
    my $title = shift;
    my $url = shift;
    $self->Plugins::Alien::AlienMenu::_initialise($title);
    $self->{url} = $url;
    $self->{items} = [];
}

sub refresh
{
    my $self = shift;
    $self->{items} = [];

    use Plugins::Alien::AlienPlayableItem;

	my ($name, $desc, $url);


    for (@srstations)
    {
		($name, $desc, $url) = split(/\|/);
		print "Adding: $name ($url)\n";
		my $item = Plugins::Alien::AlienPlayableItem->new("$name",$url);
	    push @{$self->{items}},$item;
	}
}

@Plugins::Alien::AlienSRMenu::ISA=qw(Plugins::Alien::AlienMenu);

1;

# Local Variables:
# tab-width:4
# indent-tabs-mode:t
# End: