/*************************************************************************

         name: stations_player.pl 
	 date: 2004-10-25
       author: Andreas Wallentin
  
*************************************************************************/

:-dynamic radio_station/1.

radio_station( X ):-
	radio_station(X,_)
	;
	atomic(X),
	atom_concat('http://',X,Station),
	radio_station(_,Station).

get_station( Station, IP ):-
	radio_station(Station,IP)
	;
	Station = IP.
	

%% station( +Name, +IpAddress )
%% station('RR_radio',www.xxx.yyy.zzz:portNo)
%radio_station( [digital,gunfire], '128.16.159.166:8000' ).
%radio_station( [rant,radio],      '130.240.207.88:9090' ).%http://198.172.235.21:8000
radio_station( [digital,gunfire], 'http://129.16.159.166:8000' ).
radio_station( [rant,radio],      'http://130.240.207.88:9090' ).
radio_station( [absolute,fm],     'http://stream.absoluutfm.org:8200' ).
radio_station( [chat,radio],      'http://chatradio.myftp.org:10010' ).
radio_station( [ebm,radio],       'http://213.158.118.85:7350' ).