Radiola – listen to the radio – posłuchaj sobie radia
- Radiola to maly skrypt pozwalajacy sluchac polskie stacje radiowe przez internet.
- Do poprawnego dzialania wymaga odtwarzacza mplayer oraz zainstalowanego programu dialog (apt-get install mplayer dialog)
#!/bin/sh
#Radiola to maly skrypt pozwalajacy sluchac
#polskie stacje radiowe przez internet.
#Do poprawnego dzialania wymaga odtwarzacza mplayer.
#Autor: Tomasz Filipek <tomek_at_opensoftware_dot_pl>
#zmodyfikowany: marcel eMarcel.com: dodano radia i walidacje paczki dialog
#Strona domowa: http://guesswhy.jogger.pl
if [ ! -x /usr/bin/dialog ]
then echo "package dialog is not installed"
if [ -x /usr/bin/apt-get ]
then echo; echo "Let's try to install it..."
sudo apt-get -y install dialog
if [ $? != 0 ]
then echo "Installation Error... please verify it and try to install dialog manualy"; sleep 3; exit
fi
else echo "Package dialog must be installed on your system"; sleep 3; exit
fi
fi
wybor=wyb
dialog --clear --title "Radiola v0.1" \
--backtitle "Radiola v0.1 (C) GuessWhy" \
--menu "Wybierz stację" 20 50 20 \
1 "RMF FM" \
2 "Antyradio 94" \
3 "Radiostacja" \
4 "TOK FM" \
5 "Polskie Radio 1" \
6 "Polskie Radio 2" \
7 "Polskie Radio 3" \
8 "Radio Akadera" \
9 "Radio Białystok" \
10 "Radio Centrum - Lublin" \
11 "SLAMFM - Holandia" \
12 "MusicOne - m1live.com" \
13 "Radio Dla Ciebie" 2>$wybor
x=$(cat $wybor)
case $x in
1) wynik="mplayer -cache 50 -playlist http://www.abradio.cz/www/rmffm.asx" ;;
2) wynik="mplayer -cache 50 -playlist http://www.abradio.cz/www/antyradio94.asx" ;;
3) wynik="mplayer -cache 50 -playlist http://www.abradio.cz/www/radiostacja.asx" ;;
4) wynik="mplayer -cache 50 -playlist http://www.gazeta.pl/aliasy/tokfm.rm" ;;
5) wynik="mplayer -cache 50 -playlist http://www.polskieradio.pl/st/program1.asx" ;;
6) wynik="mplayer -cache 50 -playlist http://www.polskieradio.pl/st/program2.asx" ;;
7) wynik="mplayer -cache 50 -playlist http://www.polskieradio.pl/st/program3.asx" ;;
8) wynik="mplayer -cache 50 -playlist http://www.radio.pionier.net.pl/stream.asx" ;;
9) wynik="mplayer -cache 50 -playlist http://194.187.119.3:8000/listen.pls" ;;
10) wynik="mplayer http://212.182.14.165:80/live" ;;
11) wynik="mplayer http://stream01.slamfm.trueserver.nl:8080/slamfm" ;;
12) wynik="mplayer http://www.returning.net:8000" ;;
13) wynik="mplayer -cache 50 -playlist http://www.rdc.pl/rdc.pls" ;;
esac
rm wyb
$wynik
