[SlimDevices: Plugins] Norwegian Radio Channels (NRK)

[robni]

Tonight a tried to get the norwegian NRK into my Squeezebox and here's
the result:

.../slimserver/Plugins/Alien/AlienAddon/AlienNRKMenu.pm
----------------------------------------------------------------
#
# AlienBBC NRK Copyright (C) Patrik Wallström
#
# $Id: AlienNRKMenu.pm,v 1.0
# 2007-10-18 [EMAIL PROTECTED]
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License, version
2.
#
# AlienBBC support for NRK (http://www.nrk.no/)
#

use strict;

package Plugins::Alien::AlienAddon::AlienNRKMenu;

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

my @nrkstations = (
"NRK
P1||http://media.hiof.no/streams/m3u/nrk-p1-172.ogg.m3u";,
"NRK
P2||http://media.hiof.no/streams/m3u/nrk-p2-172.ogg.m3u";,
"NRK
P3||http://media.hiof.no/streams/m3u/nrk-petre-172.ogg.m3u";,
"NRK
mP3||http://media.hiof.no/streams/m3u/nrk-alltid-nyheter-172.ogg.m3u";,
"NRK Alltid
Nyheter||http://media.hiof.no/streams/m3u/nrk-mpetre-172.ogg.m3u";,
"NRK Alltid
Klassisk||http://media.hiof.no/streams/m3u/nrk-alltid-klassisk-172.ogg.m3u";,
"NRK Alltid
Jazz||http://radio.hiof.no/nrk-jazz-172.ogg";
);

sub AddonInit
{
return Plugins::Alien::AlienSubMenuItem->new("NRK", "",
Plugins::Alien::AlienAddon::AlienNRKMenu->new("NRK"));
}

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 (@nrkstations)
{
($name, $desc, $url) = split(/\|/);
$::d_plugins && Slim::Utils::Misc::msg("Adding: $name
($url)\n");
my $item =
Plugins::Alien::AlienPlayableItem->new("$name",$url);
push @{$self->{items}},$item;
}
}

@Plugins::Alien::AlienAddon::AlienNRKMenu::ISA=qw(Plugins::Alien::AlienMenu);

1;

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


-- 
robni
------------------------------------------------------------------------
robni's Profile: http://forums.slimdevices.com/member.php?userid=13602
View this thread: http://forums.slimdevices.com/showthread.php?t=39439


_______________________________________________
plugins mailing list
plugins@lists.slimdevices.com
http://lists.slimdevices.com/lists/listinfo/plugins