#!/usr/bin/perl
# Radio Playing program v0.4
# Author: Tim Retout <tim@retout.co.uk>
# Created: 27th May 2004
# Last revised: 22nd October 2006

use strict;
use warnings;

my $default = 4;
my %player = (
	"mp3"	=> "mplayer",
	"real"	=> "mplayer",
	"wma"	=> "mplayer",
);

my %station = (
	"1" => [
		"BBC Radio 1",
		"rtsp://rmlivev8bb.bbc.net.uk/farm/*/ev7/live24/radio1/live/r1_dsat_g2.ra",
		"real",
	],
	"2" => [
		"BBC Radio 2",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/radio2/live/r2_dsat_g2.ra",
		"real",
	],
	"3" => [
		"BBC Radio 3",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/radio3/live/r3_dsat_g2.ra",
		"real",
	],
	"4" => [
		"BBC Radio 4",
		"rtsp://rmlivev8bb.bbc.net.uk/farm/*/ev7/live24/radio4/live/r4_dsat_g2.ra",
		"real",
	],
	"5" => [
		"BBC Radio 5 Live",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/radio5/live/r5_tl_int_g2.ra",
		"real",
	],
	"6" => [
		"BBC 6 Music",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/6music/live/6music_dsat_g2.ra",
		"real",
	],
	"7" => [
		"BBC 7",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/bbc7/live/bbc7_dsat_g2.ra",
		"real",
	],
	"1x" => [
		"BBC 1Xtra",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/1xtra/live/1xtra_dsat_g2.ra",
		"real",
	],
	"4l" => [
		"BBC Radio 4 LW",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/radio4/live/r4lw_dsat_g2_1.ra",
		"real",
	],
	"5x" => [
		"BBC 5 Live Sports Extra",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/radio5/live/r5sx_tl_g2.ra",
		"real",
	],
	"w" => [
		"BBC World Service",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/worldservice/liveinfent.ra",
		"real",
	],
	"a" => [
		"BBC Asian Network",
		"rtsp://rmlivev8.bbc.net.uk/farm/*/ev7/live24/asiannetwork/live/asian_dsat_g2.ra",
		"real",
	],
	"c" => [
		"Classic FM",
		"http://mediasrv-the.musicradio.com/ClassicFM?MSWMExt=.asf",
		"wma",
	],
	"g" => [
		"Classic Gold",
		"http://mediasrv-the.musicradio.com/ClassicGold?MSWMExt=.asf",
		"wma",
	],
	"j-b" => [
		"Jazz FM - Blue Room",
		"http://gmgA.planetwideradio.com/LondonJazzFMBlue",
		"wma",
	],
	"j-r" => [
		"Jazz FM - Red Room",
		"http://gmgA.planetwideradio.com/LondonJazzFMRed",
		"wma",
	],
	"raw" => [
		"Radio Warwick",
		"http://radio.warwick.ac.uk/streams/auto-high-mp3.m3u",
		"mp3",
	],
);

my $choice = $ARGV[0] || $default;

print 'Playing ', $station{$choice}->[0], "\n";

exec( $player{ $station{$choice}->[2] }, $station{$choice}->[1] )
	or die "Couldn't run $player{ $station{$choice}->[2] }: $!";