staging.inyokaproject.org

# Sendername                            Typ             Parameter
Radio Vorarlberg                        shoutcast       1568257
Antenne Vorarlberg HD                   shoutcast       2301871
Antenne Vorarlberg Partymix             shoutcast       1271847
Antenne Vorarlberg - Die 80er           shoutcast       1280075
Antenne Vorarlberg - Schlagerkult       shoutcast       1270547
Antenne Vorarlberg - Lounge             shoutcast       1268946
Antenne Vorarlberg - Classic Rock       shoutcast       927112
Antenne Vorarlberg - Hit                shoutcast       1275817
Antenne Vorarlberg - Lovesongs          shoutcast       1268893
Antenne Vorarlberg - Die 90er           shoutcast       1266169
Antenne Vorarlberg - Die 70er           shoutcast       2166816
Rockantenne Heavy Metal                 url             http://mp3channels.webradio.rockantenne.de/heavy-metal.m3u
Bayern 3                                url             http://streams.br-online.de/bayern3_2.m3u
B5 Aktuell                              url             http://streams.br-online.de/b5aktuell_2.m3u

#!/bin/bash
# Bash-Tuner
# Ein Script von Karsten Weidenfeld (2011)

SHOUTCAST_BASISURL="http://yp.shoutcast.com/sbin/tunein-station.pls?id="

# Senderliste im gleichen Verzeichnis wie das Script
SENDER_LISTE="$(dirname "$(readlink -f "$0")")/bash-tuner-senderliste"
# Senderliste im HOME-Verzeichnis
#SENDER_LISTE="$HOME/bash-tuner-senderliste"

while :; do # Beginn Endlosschleife

if ! [[ -f "$SENDER_LISTE" ]]; then
  echo "Senderliste \"$SENDER_LISTE\" nicht gefunden." >&2
  exit 1
fi

# Senderliste laden
SENDER_NAMEN=()
SENDER_URLS=()
i=0
while read typ parameter name; do
  case "$typ" in
    url)
      SENDER_URLS[i]="$parameter"
      ;;
    shoutcast)
      SENDER_URLS[i]="$SHOUTCAST_BASISURL$parameter"
      ;;
    *)
      echo "Unbekannter Sendertyp \"$typ\"" >&2
      continue
      ;;
  esac
  SENDER_NAMEN[i]="$name"
  let i++
done < <(sed -r '/^\s*#/d;s/^(.*)\s+([[:alnum:]]+)\s+([^[:space:]]+)$/\2 \3 \1/' < "$SENDER_LISTE")

cat <<EOF
====================================
  Antenne Vorarlberg @ Bash-Tuner @ 
    http://www.Bitdome.de           
====================================
EOF

# Liste ausgeben
i=1
anzahl_sender=${#SENDER_NAMEN[@]}
ziffern=${#anzahl_sender}
for sender in "${SENDER_NAMEN[@]}"; do
  printf "%-${ziffern}d: $sender\n" $i
  let i++
done

cat <<EOF
[url] Streamadresse eingeben und abspielen

Playersteuerung: [9] Leiser [0] Lauter [Q] Sender beenden

Bitte geben Sie die Programmnummer ein
Programm beenden mit [x]:
EOF

declare -l sendernummer
read sendernummer
if [[ $sendernummer =~ ^[0-9]+$ ]]; then
  if (( sendernummer > 0 && sendernummer <= anzahl_sender )); then
    mplayer -playlist "${SENDER_URLS[sendernummer-1]}"
  else
    echo "Senderplatz nicht belegt: $sendernummer" >&2
  fi
elif [[ $sendernummer == url ]]; then
  echo "Bitte geben Sie die Streamadresse ein, die abgespielt werden soll:"
  read streamurl
  mplayer -playlist "$streamurl"
elif [[ $sendernummer == x ]]; then
  exit
fi

done # Ende der Endlosschleife

1;Radio Vorarlberg;http://yp.shoutcast.com/sbin/tunein-station.pls?id=1568257
2;Antenne Vorarlberg HD;http://yp.shoutcast.com/sbin/tunein-station.pls?id=2301871
3;ANTENNE VORARLBERG - Partymix;http://yp.shoutcast.com/sbin/tunein-station.pls?id=1271847
4;ANTENNE VORARLBERG - Die 80er;http://yp.shoutcast.com/sbin/tunein-station.pls?id=1280075
5;ANTENNE VORARLBERG - Schlagerkult;http://yp.shoutcast.com/sbin/tunein-station.pls?id=1270547
6;ANTENNE VORARLBERG - Lounge;http://yp.shoutcast.com/sbin/tunein-station.pls?id=1268946
7;ANTENNE VORARLBERG - Classic Rock;http://yp.shoutcast.com/sbin/tunein-station.pls?id=927112
8;ANTENNE VORARLBERG - Hit;http://yp.shoutcast.com/sbin/tunein-station.pls?id=1275817
9;ANTENNE VORARLBERG - Lovesongs;http://yp.shoutcast.com/sbin/tunein-station.pls?id=1268893
10;ANTENNE VORARLBERG - Die 90er;http://yp.shoutcast.com/sbin/tunein-station.pls?id=1266169
11;ANTENNE VORARLBERG - Die 70er;http://yp.shoutcast.com/sbin/tunein-station.pls?id=2166816
12;radio salue classic rock;http://tiscali.project-fx.de/play.mp3?radio=saluecrock;m

#!/bin/bash
# file: bash-tuner.sh
######################

# path und dateiname ggf. anpassen
CSV_File=$HOME/webradioliste.csv

typeset -a senderurl sendername urltyp
while read Zeile
        do
        i=$(echo $Zeile|cut -d";" -f1)
        name=$(echo $Zeile|cut -d";" -f2)  
        url=$(echo $Zeile|cut -d";" -f3)
        typ=$(echo $Zeile|cut -d";" -f4)
        echo $i" "$name|more
        senderurl[$i]=$url; sendername[$i]=$name; urltyp[$i]=$typ
done < $CSV_File

echo -e "Playersteuerung: [9] Leiser [0] Lauter [Q] Sender beenden \n"                             
read -p "Bitte geben Sie die Programmnummer ein. Programm abbrechen mit [x]:" i 
if [ "$i" == "x" ];then exit ;fi

if [ "${urltyp[$i]}" == "" ];then
        mplayer -playlist ${senderurl[$i]}
        else
        echo -e "Keine pls, spiele mp3...\n"
        mplayer `wget -O - --read-timeout 60 "${senderurl[$i]}&txt=1"`
fi
exit 0