#!usr/bin/perl
#Radio X
#Version 0.2
#Coded By Doddy H
#
#Download : http://www.mplayerhq.hu/MPlayer/releases/win32/MPlayer-mingw32-1.0rc2.zip
#
use Cwd;
my %emisoras = (
0 => {
"nombre" => "Absolute Classic Rock (Broadband)",
"genero" => "Rock'n'Roll",
"link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vcbb"
},
1=> {
"nombre" => "Absolute Classic Rock (Modem)",
"genero" => "Rock'n'Roll",
"link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vc"
},
2=> {
"nombre"=>"Absolute Radio (Broadband)",
"genero"=>"Pop",
"link"=>"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vrbb"
},
3=>{
"nombre"=>"Absolute Radio (Modem)",
"genero"=>"Pop",
"link"=>"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vr"
},
4=>{
"nombre"=>"Absolute Xtreme (Broadband)",
"genero"=>"Modern Rock",
"link"=>"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vxbb"
},
5=>{
"nombre"=>"Absolute Xtreme (Modem)",
"genero"=>"Modern Rock",
"link"=>"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vx"
},
6=>{
"nombre"=>"HBR1.com - Dream Factory",
"genero"=>"Ambient",
"link"=>"http://ubuntu.hbr1.com:19800/ambient.ogg"
},
7=>{
"nombre"=>"HBR1.com - I.D.M. Tranceponder",
"genero"=>"Trance",
"link"=>"http://ubuntu.hbr1.com:19800/trance.ogg"
},
8=>{
"nombre"=>"HBR1.com - Tronic Lounge",
"genero"=>"House",
"link"=>"http://ubuntu.hbr1.com:19800/tronic.ogg"
},
9=>{
"nombre"=>"NRK Alltid Klassisk (Norway)",
"genero"=>"Desconocido",
"link"=>"http://media.hiof.no/streams/m3u/nrk-alltid-klassisk-172.ogg.m3u"
},
10=>{
"nombre"=>"NRK Alltid Nyheter (Norway)",
"genero"=>"Desconocido",
"link"=>"http://media.hiof.no/streams/m3u/nrk-alltid-nyheter-172.ogg.m3u"
},
11=>{
"nombre"=>"NRK mP3 (Norway)",
"genero"=>"Desconocido",
"link"=>"http://media.hiof.no/streams/m3u/nrk-mpetre-172.ogg.m3u"
},
12=>{
"nombre"=>"NRK P1 (Norway)",
"genero"=>"General",
"link"=>"http://media.hiof.no/streams/m3u/nrk-p1-172.ogg.m3u",
},
13=>{
"nombre"=>"NRK P2 (Norway)",
"genero"=>"General",
"link"=>"http://media.hiof.no/streams/m3u/nrk-p2-172.ogg.m3u"
},
14=>{
"nombre"=>"NRK P3 (Norway)",
"genero"=>"General",
"link"=>"http://media.hiof.no/streams/m3u/nrk-petre-172.ogg.m3u"
},
15=>{
"nombre"=>"WKNC 88.1 FM (NC State) (High Quality)",
"genero"=>"Music",
"link"=>"http://wknc.sma.ncsu.edu:8000/wknchq.ogg.m3u"
},
16=>{
"nombre"=>"WKNC 88.1 FM (NC State) (Low Quality)",
"genero"=>"Music",
"link"=>"http://wknc.sma.ncsu.edu:8000/wkncmq.ogg.m3u"
}
);
head();
for my $em(keys %emisoras) {
print "\n[+] Number : ".$em."\n";
print "[+] Name : ".$emisoras{$em}{nombre}."\n";
print "[+] Station : ".$emisoras{$em}{genero}."\n";
#print $emisoras{$em}{nombre}."\n";
}
sub head {
print qq(
@@@@@ @ @@@@ @ @@@@ @ @
@ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @
@@@@@ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @
@ @ @@@@@ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @@@@ @ @@@@ @ @
);
}
sub copyright {
print "\n\n-- == Doddy Hackman 2012 == --\n\n";
<stdin>;
exit(1);
}
#The End ?