Dear VDR hobbyists, I would like to contribute a small and simple /bin/bash script that imports EPG for Russian channels on HotBird satellities (RTVi*, RTR, ORT) that only provide program listings via HTTP AFAIK. The script should be able to handle other listings, as the only Russian-specific part is deduction of the "short description" data based on the "long description". Also, I've got a question about dual DVB-S setup that people may have installed. Any recommendation on FF/budget card combination is welcome! Greetings, Pjotr Kourzanov -------------- next part -------------- S13.0E-9472-4688-13 http://www.rtvi.ru/print/i/e/${Y1}${m1}${d1}_${Y2}${m2}${d2} +0400 RTVi S13.0E-9472-4688-16 http://www.rtvi.ru/print/p/e/${Y1}${m1}${d1}_${Y2}${m2}${d2} +0400 RTVi Nashe Kino S13.0E-9472-4688-18 http://www.rtvi.ru/print/d/e/${Y1}${m1}${d1}_${Y2}${m2}${d2} +0400 RTVi Detsky Mir S13.0E-9472-4688-18 http://www.rtvi.ru/print/r/e/${Y1}${m1}${d1}_${Y2}${m2}${d2} +0400 RTVi TeleClub S13.0E-176-12600-1708 http://www.rtr-planeta.com/schedule_text?sch_duble=5&flag=2&prg_sel=11 +0400 RTR-Planeta S13.0E-318-9400-8208 http://www.channelonerussia.com/main.php?allweek=1 +0200 ORT -------------- next part -------------- #!/bin/bash wget="/usr/bin/wget -q" recode="/usr/bin/recode" awk="/usr/bin/awk" date="/bin/date" sort="/usr/bin/sort" sed="/bin/sed" tee="/usr/bin/tee" tail="/usr/bin/tail" cat="/bin/cat" netcat="/bin/netcat" address=/etc/vdr/epg.address tmp=/tmp/getepg.$$ onexit() { rm -f $tmp; } trap onexit 0 1 2 3 9 15 a1=(`$date -d 'this monday' +'%Y %m %d'`) a2=(`$date -d 'this sunday' +'%Y %m %d'`) today=`$date +'%u'` Y1=${a1[0]} m1=${a1[1]} d1=${a1[2]} Y2=${a2[0]} m2=${a2[1]} d2=${a2[2]} process() { echo "C $id $name" $awk $awk_opt -vzone=$zone -vdate=$date -vtoday=$today ' BEGIN { day=1-today next_day=0 D["C"]="¼ãÛìâØÚØ" #"Cartoon" D["Ä"]=D["F"]="ÄØÛìÜ" #"Film" D["¸"]=D["I"]="¸ÝäÞàÜÐæØÞÝÝÐï ßÕàÕÔÐçÐ" #"Info" D["Á"]=D["S"]="ÁÕàØÐÛ" #"Series" D["Â"]=D["T"]="±Ð×Ðà" #"Talkshow" D["R"]="ÀÐ×ÒÛÕÚÐâÕÛìÝÐï ßÕàÕÔÐçÐ" #"Entertainment" } function append(a,b) { return a (a ? " " : "") b } function process_event(text,descr) { if (!text) return n=split(text,a,"[ \t\r\n]+") for (i=1; i<=n; i++) descr=append(descr,a[i]) desc[event]=descr desc[event]=append(desc[event],"(" specs[event] ")") for (i=1; i<=n; i++) if (a[i] ~ /^"/) do { el=a[i] gsub(/"/,"",el) title[event]=append(title[event],el) if(a[i] ~ /"[.,]?$/) break i++ } while(i<=n) if (!title[event]) title[event]=descr gsub(/[.,][ \t\r\n]*$/,"",title[event]) if (length(a[n])==1 && a[n] ~ /[FISTĸÁÂ]/) short[event]=D[a[n]]; else if (descr ~ /[¼Ü]ãÛìâ[Ää]ØÛìÜ/) short[event]=D["C"]; else #/[Mm]ul.?tfil.?m/ if (descr ~ /[¼Ü]ãÛìâ[Áá]ÕàØÐÛ/) short[event]=D["C"]; else #/[Mm]ul.?tserial/ if (descr ~ /Å\/ä/) short[event]=D["F"]; else #/H\/f/ if (descr ~ /[ºÚ]ØÝÞßÞÒÕáâ/) short[event]=D["F"]; else #/[Ff]il.?m/ if (descr ~ /[Ää]ØÛìÜ/) short[event]=D["F"]; else #/[Ff]il.?m/ if (descr ~ /[Áá]ÚÐ×Ú/) short[event]=D["F"]; else #/[Ss]kazk/ if (descr ~ /[¼Ü]ÕÛÞÔàÐÜ/) short[event]=D["F"]; else #/[Mm]elodram/ if (descr ~ /[´Ô]àÐÜ/) short[event]=D["F"]; else #/[Mm]elodram/ if (descr ~ /[´Ô]ÕâÕÚâØÒ/) short[event]=D["F"]; else #/[Dd]etektiv/ if (descr ~ /[ºÚ]ÞÜÕÔØ/) short[event]=D["F"]; else #/[Kk]omedi/ if (descr ~ /[Ââ]ÕÐâà/) short[event]=D["R"]; else #/[Tt]eatr/ if (descr ~ /[ºÚ]ÞÝæÕàâ/) short[event]=D["R"]; else #/[Kk]oncert/ if (descr ~ /[Ää]ÕáâØÒÐÛ/) short[event]=D["R"]; else #/[Ff]estival/ if (descr ~ /[Èè]Þã/) short[event]=D["R"]; else #/[Shsh]ow/ if (descr ~ /[ºÚ]²½/) short[event]=D["R"]; else #/[Kk]VN/ if (descr ~ /[Îî]ÜÞà/) short[event]=D["R"]; else #/[Juju]mor/ if (descr ~ /[Áá]ÕàØÐÛ/) short[event]=D["S"]; else #/[Ss]erial/ if (descr ~ /[²Ò]ÕáâØ/ ) short[event]=D["I"]; else #/Vesti/ if (descr ~ /[½Ý]ÞÒÞáâØ/) short[event]=D["I"]; else #/Novosti/ if (descr ~ /[²Ò]àÕÜï/) short[event]=D["I"]; else #/Vremja/ if (descr ~ /[0-9][0-9][0-9][0-9]/) short[event]=D["F"] } match($0,"^[ \t\r\n]*[0-9][0-9]?[.:][0-9][0-9][ \t\r\n]+") { time=substr($0,RSTART,RLENGTH) gsub(/[ \t\r\n]*/,"",time) sub(/\./,":",time) sep=index(time,":") hour=substr(time,1,sep-1) min=substr(time,sep+1) oldmins=mins mins=hour*60+min if (mins < oldmins) next_day=1 if (next_day) { day++ next_day=0 } spec=(day < 0 ? "" : "+") day " day " time " " zone cmd=date " -d \"" spec "\" +%s" cmd | getline time_t close(cmd) process_event(text) event++ start[event]=time_t specs[event]=spec text="" $0=substr($0,RSTART+RLENGTH) } event in start { text=append(text,$0) } END { process_event(text) for (e=1; e <=event; e++) { n=e+1 len=60*60 if (n in title) len=start[n]-start[e] if (len>60*60*3) len=60*60*3 if (!len || !desc[e]) continue print "E",e,start[e],len print "T",title[e] if (short[e]) print "S",short[e] print "D",desc[e] print "e" } } ' < $cache echo "c" } oid= i=1 { echo "pute" $sort $address | while read id addr zone name; do url= eval url=$addr [[ -z "$url" ]] && url=$addr awk_opt="" [[ $oid == $id ]] && awk_opt="-vevent=$last_event" oid=$id echo $id $url $name >/dev/stderr cache=/var/cache/vdr/epg/$i.$id.${Y1}${m1}${d1}_${Y2}${m2}${d2} [ -r $cache ] || { echo -n getting $url... >/dev/stderr $wget -O - $url\ | $sed -e 's,<[^>]*>,,g;s,",",g;s, ,,g'\ | $recode -f cp1251..iso8859-5 > $cache echo done >/dev/stderr } last_event=`process $cache | $tee $tmp | $sed -ne 's,^E \([0-9]*\) .*,\1,p' | $tail -1` $cat $tmp i=$[$i+1] done echo "." echo "quit" } | $netcat -q10 localhost 2001
