#!/usr/bin/perl -w
# Radio Playing program v0.3
# Author: Tim Retout
# Created: 27th May 2004
# Last revised: 27th May 2004


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

%station = (
	"1"	=> ["BBC Radio 1", "rtsp://rmlivev8.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://rmlivev8.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_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.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", "pnm://rm.bbc.co.uk/worldservice/live24/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", "mms://audio1.musicradio.com/classicfm", "wma"],
        "g"	=> ["Classic Gold", "mms://audio2.musicradio.com/classicgold", "wma"],
        "j"	=> ["Jazz FM", "rtsp://cryomedia3.cryohost.net/broadcast/live.rm", "real"],
	"raw"	=> ["Radio Warwick", "http://137.205.37.129:8000/raw.mp3", "mp3"],
);

$ARGV[0] = $default unless $ARGV[0];

exec "$player{$station{$ARGV[0]}[2]}", $station{$ARGV[0]}[1]
	or die "Couldn't run $player{$station{$ARGV[0]}[2]}\n";