-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
There seems to be a problem with the script. I include it again here.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
Comment: Made with pgp4pine 1.76
iEYEARECAAYFAkn9T6QACgkQMiDYPOQNapFmKACffPDYCNXVcO3CWnzAD5bePSYG
U34AniwUS1gt68UlyL33lcPSeujwjdNI
=oWFP
-----END PGP SIGNATURE-----
#!/bin/sh
STRCMD="/home/axxel/bin/streamsCommands $@"
if
test "$TERM" = "xterm" -o "$TERM" = "rxvt"
then
$STRCMD
else
USER=guest
CHANNELS=$(echo "select count(*) from channel where device='Net'" | mysql -s
-u "$USER" wireless)
OTHERTEXT=6
WINDOWY=$(add_mod $CHANNELS $OTHERTEXT 65535 3)
echo Need $CHANNELS + $OTHERTEXT = $WINDOWY lines.
/usr/local/bin/uxterm.fvwm2 -geometry 135x$WINDOWY -title "M Player stream
radio" -e $STRCMD
fi
#!/bin/sh
STREAMURL=$1
STREAMNAME=$2
CHANNELID="command line"
PROTDIR=~/.mplayer.keep
PROTLINK=$PROTDIR/last_protocol.txt
PROTEXT=protocol.txt
TERMINAL=`tty | sed "s-/dev/--"`
BEEPURLLOOPF="330"
BEEPURLLOOPD="100m"
BEEPURLFOUNDF="660"
BEEPURLFOUNDD="150m"
BEEPTRYF="1780"
BEEPTRYD="200m"
BEEPERRF="110"
BEEPERRD="100m"
BEEPMSGF=$BEEPERRF
BEEPMSGD=$BEEPERRD
BEEPCONNF="220"
BEEPCONND="100m"
BEEPCACHEF="440"
BEEPCACHED="100m"
BEEPBUFFERF="880"
BEEPBUFFERD="100m"
#BEEPPLAYF="880"
#BEEPPLAYD="200m"
#BEEPRETRYF=$BEEPTRYF
#BEEPRETRYD=$BEEPTRYD
BEEPRETRYF="55"
BEEPRETRYD="100m"
extractURL () {
grep "://" | grep -v -e "$STREAMURL" | sed -e 's-.*[ ="]\([a-z]*://\)-\1-' -e
's-[ "].*--' -e 's/%0D//g'
}
checkContent () {
while
read PROTOCOLLINE
do
echo $PROTOCOLLINE
case $PROTOCOLLINE in
(*o\ header*)
# "shoutcast"
return 1
;;
(*audio/mpeg* | *Ref1=* | *Reference]*)
return 1
;;
esac
done
return 0
}
removePort80 () {
echo $1 | sed -e 's-:80/-/-'
}
#cleanURL () {
# removePort80 $1 | sed -e 's-[:cntrl:]--' -e 's-[:space:]*$--' -e
's-^[:space:]*--'
#}
getStreamURL () {
while
echo "$STREAMURL" | grep -q "http://";
do
UNCUTURL="$STREAMURL"
TRYINGURL=$(removePort80 "$STREAMURL")
signalgen -t $BEEPURLLOOPD sine $BEEPURLLOOPF &
echo "Trying $TRYINGURL"
if
test "$TRYINGURL" != "$UNCUTURL"
then
echo " (instead of $UNCUTURL)"
fi
STREAMURL=$(wget "$TRYINGURL" -O - 2>&1 | checkContent | extractURL)
# echo -n "=== W Get: "
# STREAMURL=$(wget $STREAMURL -O - 2>&1)
# echo $STREAMURL
#
# echo -n "=== Checking content: "
# STREAMURL=$(echo $STREAMURL | checkContent)
# echo $STREAMURL
#
# echo -n "=== Extracting URL: "
# STREAMURL=$(echo $STREAMURL | extractURL)
# echo $STREAMURL
#echo "-> $(cleanURL $STREAMURL)"
#echo " from $(cleanURL $TRYINGURL)"
# if
# test "$(cleanURL $STREAMURL)" = "$(cleanURL $TRYINGURL)"
# then
# echo "* Looped."
# STREAMURL=
# fi
done
if
test -z "$STREAMURL"
then
echo "* HTTP stream"
STREAMURL="$TRYINGURL"
fi
signalgen -t $BEEPURLFOUNDD sine $BEEPURLFOUNDF
echo "--- Found:"
echo "$STREAMURL"
#STREAMURL=$(echo "$STREAMURL" | sed -e "s/\(.*\)$/\1 /")
}
chooser ()
{
USER=guest
echo "select channel_id as Id, station.name as Station, channel.remark as
Channel from channel left join station on channel.station=station.skey where
device='Net' order by station, Channel" \
| mysql -v -v -v -u "$USER" wireless
read -p "Channel ID: " CHANNELID
STREAMURL=$(echo "select setting from channel where channel_id=$CHANNELID" |
mysql -s -u "$USER" wireless)
STREAMNAME=$(echo "select station.name from channel left join station on
channel.station=station.skey where channel_id=$CHANNELID" | mysql -s -u "$USER"
wireless | sed -e "s/^[ ]*/\"/" -e "s/[ ]*$/\"/")
}
protocol ()
{
if
test -w $PROTFILE
then
echo "$(date +%H.%M.%S): $PROTOCOLLINE" >>$PROTFILE
fi
}
setNecho ()
{
echo ">>> $(date +%H.%M.%S): $NEWTITLE <<<"
/usr/local/bin/settitle "$NEWTITLE"
}
setit ()
{
if
test -z "$STREAMMESSAGE"
then
NEWTITLE="$STREAMNAME [started at $STARTTIME${RETRYREMARK}]"
else
NEWTITLE="$STREAMNAME: $STREAMMESSAGE [started at $STARTTIME${RETRYREMARK}]"
fi
setNecho
}
keepsettingtitle ()
{
while
read PROTOCOLLINE
do
echo $PROTOCOLLINE
case $PROTOCOLLINE in
(*error* | *Error*)
signalgen -t $BEEPERRD sine $BEEPERRF &
STREAMMESSAGE="error: $(echo $PROTOCOLLINE | sed -e "s/^.*r:://")"
setit
protocol
;;
(*Server\ returned*)
signalgen -t $BEEPMSGD sine $BEEPMSGF &
STREAMMESSAGE="message: $(echo $PROTOCOLLINE | sed -e "s/^.*d //")"
setit
protocol
;;
(Playing\ * | Connecting* | Connected*)
signalgen -t $BEEPCONND sine $BEEPCONNF &
STREAMMESSAGE=$(echo $PROTOCOLLINE | sed -e "s/[ \.]*$//")
setit
protocol
;;
(Cache\ size\ set\ to\ *)
signalgen -t $BEEPCACHED sine $BEEPCACHEF &
STREAMMESSAGE=caching
setit
;;
(Cache\ fill*)
signalgen -t $BEEPBUFFERD sine $BEEPBUFFERF &
STREAMMESSAGE=buffering
setit
;;
(Starting\ playback*)
#signalgen -t $BEEPPLAYD sine $BEEPPLAYF &
STREAMMESSAGE=$CURRENTPROGRAMME
setit
;;
(name:\ *)
STREAMNAME=$(echo $PROTOCOLLINE | sed "s/^[ ]*name: //" | sed
"s/^\"\(.*\)\"$/\1/")
STREAMMESSAGE=
setit
protocol
;;
(ICY*)
CURRENTPROGRAMME=$(echo $PROTOCOLLINE | sed "s/^.*e='//" | sed "s/';.*$//" )
STREAMMESSAGE=$CURRENTPROGRAMME
setit
protocol
;;
(Name\ :* | Genre\ :* | Website:* | Clip\ info:* | author:* | copyright:* |
comments:* | Exit* | *URL* | *file\ format*)
protocol
;;
esac
done
}
if
test -z "$STREAMURL"
then
chooser
else
STREAMSOURCE="command line"
fi
if
test -e $PROTDIR -a -w $PROTDIR
then
find $PROTDIR -maxdepth 1 -type f -mtime +10 -exec rm {} \;
PROTSTART=$(date +%Y-%m-%d_%H.%M.%S)
PROTFILE=$PROTDIR/$PROTSTART.$PROTEXT
echo "Started: $PROTSTART" >$PROTFILE
ln -fs $PROTFILE $PROTLINK
fi
STARTTIME="$(date +%H.%M)"
RETRY=0
RETRYREMARK=""
setit
PROTOCOLLINE="$STREAMNAME: $STREAMURL ($CHANNELID)"
protocol
if
test -z "$STREAMNAME"
then
STREAMNAME=$STREAMURL
fi
getStreamURL
PROTOCOLLINE=$STREAMURL
protocol
signalgen -t $BEEPTRYD sine $BEEPTRYF
while
CURRENTPROGRAMME=
# original:
#mplayer -prefer-ipv4 -quiet -af volnorm=1:0.25 $STREAMURL $PARAMETERS 2>&1 |
keepsettingtitle
# ideas to prevent garbled audio (32000 worked best):
#mplayer -prefer-ipv4 -quiet -bandwidth 16 -af volnorm=2:0.25 $STREAMURL
$PARAMETERS 2>&1 | keepsettingtitle
#mplayer -prefer-ipv4 -quiet -bandwidth 32000 -af volnorm=2:0.25 $STREAMURL
$PARAMETERS 2>&1 | keepsettingtitle
#mplayer -prefer-ipv4 -quiet -bandwidth 64000 -af volnorm=2:0.25 $STREAMURL
$PARAMETERS 2>&1 | keepsettingtitle
#mplayer -prefer-ipv4 -quiet -bandwidth 256000 -af volnorm=2:0.25 $STREAMURL
$PARAMETERS 2>&1 | keepsettingtitle
#mplayer -prefer-ipv4 -quiet -bandwidth 1000000 -af volnorm=2:0.25 $STREAMURL
$PARAMETERS 2>&1 | keepsettingtitle
# trying codecs that are better suited to streaming:
mplayer -prefer-ipv4 -quiet -ac racook,ffmp3, -af volnorm=2:0.25 $STREAMURL
$PARAMETERS 2>&1 | keepsettingtitle
do
signalgen -t $BEEPRETRYD sine $BEEPRETRYF &
let RETRY++
RETRYREMARK="; retry #$RETRY"
protocol
PROTOCOLLINE="retry #$RETRY
--------------------------------------------------------"
protocol
done
PROTOCOLLINE="Ended."
protocol
echo Bye.
