here is the file bryan - i'm not sure how to start sd with d_plugin to
find your message !
it loads into addons
but when look at SB it is not seen and the display of alienbbc shhrinks
from 43 to 30 to 26 on one occasion.
Copyright (C) SoupDragon
#
# $Id: AlienSoupRadioMenu.pm,v 1
#
# 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 SoupRadio
#
use strict;
package Plugins::Alien::AlienAddon::AlienSoupRadioMenu;
use Plugins::Alien::AlienSubMenuItem();
use Plugins::Alien::AlienMenu();
use LWP::Simple;
my @soupstations = (
"Sveriges Radio P1|den talande
radion|mms://sr-wm.qbrick.com/02038_SR-P1-High",
"Sveriges Radio P2|bara
musik|mms://sr-wm.qbrick.com/02038_SR-P2Musik-High",
"Sveriges Radio P3|den unga
kanalen|mms://sr-wm.qbrick.com/02038_SR-P3-High",
"SR P4 Melodifest|den vuxna
kanalen|mms://sr-wm.qbrick.com/02038_sr-event03-high",
"SR P4 med Radiosporten|den vuxna
kanalen|mms://sr-wm.qbrick.com/02038_SR-Radiosporten-High",
"SR P5 Radio Stockholm|Radio
Stockholm|mms://sr-wm.qbrick.com/02038_SR-P5Stockholm-High",
"SR P3 Rockster|bara rock - inget
annat|mms://sr-wm.qbrick.com/02038_SR-P3Rockster-High",
"SR P3 Star|hitmusik dygn
runt|mms://sr-wm.qbrick.com/02038_SR-P3Star-High",
"SR P3 Street|r'n'b och hip hop -
nonstop|mms://sr-wm.qbrick.com/02038_SR-P3Street-High",
"SR P3 Svea|ung svensk
musik|mms://sr-wm.qbrick.com/02038_SR-P3Svea-High",
"Sveriges Radio c|ett
ljudmagasin|mms://sr-wm.qbrick.com/02038_SR-SRc-High",
"Sveriges Radio Klassiskt|klassisk
melodiradio|mms://sr-wm.qbrick.com/02038_SR-SRKlassiskt-High",
"Sveriges Radio Minnen|radiop?lor fr? SR:s
arkiv|mms://sr-wm.qbrick.com/02038_SR-SRMinnen-High",
"Sveriges Radio
Sameradion||mms://sr-wm.qbrick.com/02038_sr-sameradion-high",
"Sveriges Radio SisuRadio|program
p?finska|mms://sr-wm.qbrick.com/02038_SR-Sisuradio-High",
"Sveriges Radio Sverige|jorden runt, dygnet
runt|mms://sr-wm.qbrick.com/02038_SR-SRSverige-High",
"Sveriges Radio X|alla tiders
POP!|mms://sr-wm.qbrick.com/02038_SR-SRx-High",
"Sveriges Radio Mozart| tillfällig
kanal|mms://sr-wm.qbrick.com/02038_sr-event04-high",
"SR
Blekinge||mms://sr-wm.qbrick.com/02038_SR-Blekinge-High",
"SR Dalarna
||mms://sr-wm.qbrick.com/02038_SR-Dalarna-High",
"SR Gavleborg
||mms://sr-wm.qbrick.com/02038_SR-Gavleborg-High",
"SR Goteborg
||mms://sr-wm.qbrick.com/02038_SR-Goteborg-High",
"SR Gotland
||mms://sr-wm.qbrick.com/02038_SR-Gotland-High",
"SR Halland
||mms://sr-wm.qbrick.com/02038_SR-Halland-High",
"SR Jonkoping
||mms://sr-wm.qbrick.com/02038_SR-Jonkoping-High",
"SR Jamtland
||mms://sr-wm.qbrick.com/02038_SR-Jamtland-High",
"SR Kalmar
||mms://sr-wm.qbrick.com/02038_SR-Kalmar-High",
"SR Kristianstad
||mms://sr-wm.qbrick.com/02038_SR-Kristianstad-High",
"SR
Kronoberg||mms://sr-wm.qbrick.com/02038_SR-Kronoberg-High",
"SR
Malmo||mms://sr-wm.qbrick.com/02038_SR-Malmo-High",
"SR
Norrbotten||mms://sr-wm.qbrick.com/02038_SR-Norrbotten-High",
"SR
Orebro||mms://sr-wm.qbrick.com/02038_SR-Orebro-High",
"SR
Ostergotland||mms://sr-wm.qbrick.com/02038_SR-Ostergotland-High",
"SR
Sjuharad||mms://sr-wm.qbrick.com/02038_SR-Sjuharad-High",
"SR
Skaraborg||mms://sr-wm.qbrick.com/02038_SR-Skaraborg-High",
"SR
Sormland||mms://sr-wm.qbrick.com/02038_SR-Sormland-High",
"SR
Stockholm||mms://sr-wm.qbrick.com/02038_SR-Stockholm-High",
"SR
Uppland||mms://sr-wm.qbrick.com/02038_SR-Uppland-High",
"SR Vast||mms://sr-wm.qbrick.com/02038_SR-Vast-High",
"SR
Vasterbotten||mms://sr-wm.qbrick.com/02038_SR-Vasterbotten-High",
"SR
Vasternorrland||mms://sr-wm.qbrick.com/02038_SR-Vasternorrland-High",
"SR
Varmland||mms://sr-wm.qbrick.com/02038_SR-Varmland-High",
"SR
Vastmanland||mms://sr-wm.qbrick.com/02038_SR-Vastmanland-High"
);
sub AddonInit
{
return Plugins::Alien::AlienSubMenuItem->new("SoupRadio", "",
Plugins::Alien::AlienAddon::AlienSoupRadioMenu->new("SoupRadio"));
}
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 (@soupstations)
{
($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::AlienSoupRadioMenu::ISA=qw(Plugins::Alien::AlienMenu);
1;
# Local Variables:
# tab-width:4
# indent-tabs-mode:t
# End:
--
soupdragon
------------------------------------------------------------------------
soupdragon's Profile: http://forums.slimdevices.com/member.php?userid=4958
View this thread: http://forums.slimdevices.com/showthread.php?t=23956
_______________________________________________
plugins mailing list
[email protected]
http://lists.slimdevices.com/lists/listinfo/plugins
