Commit f196ddce authored by Olav Kvittem's avatar Olav Kvittem

bug in qstream-poll-list second parameter

parent fea58a3e
#!/bin/sh
dest=$1
not=$2 || "/etc/qstream/iptv/nopoll.cf"
not=$2
if test -z "$not" ; then
not="/etc/qstream/iptv/nopoll.cf"
fi
tmp=/tmp/poll.cf.new$$
curl -s http://forskningsnett.uninett.no/tv/playlist.html \
| perl -ne 'if(/^#EXTINF:.*,(.*)/){$n=$1; $n=~s/[^\w+-]/_/g} elsif (/^\w/){chomp;if(/239.1.1/){$op="Snap"} elsif (/233.155.107/){$op="TV2"} else{$op="Div"};printf "%s_%s;%s;-mpeg\n", $op, $n, $_}' | grep -v -f $not > $tmp
| perl -ne 'if(/^#EXTINF:.*,(.*)/){$n=$1; $n=~tr//aoaAOA/;$n=~s/[^\w+-]/_/g} elsif (/^\w/){chomp;if(/239.1.1/){$op="Snap"} elsif (/233.155.107/){$op="TV2"} else{$op="Div"};printf "%s_%s;%s;-mpeg\n", $op, $n, $_}' | grep -v -f $not > $tmp
if test -s $tmp; then
# ci -q -l -mauto /etc/qstream/iptv/poll.cf
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment