On Tuesday 21 February 2006 19:14, Steven Ellis wrote:
> The DVB-T card has priority, and even though TV3 & 4 were marked as not
> visible for it, the scheduler would still try and use that tuner. Hence
> i'd like to get XML TV feeds that only contain the data I want.
>
> Plus if I use the hairy.geek.nz there are a lot of stations i'd like to
> strip out.
>
> Look like tv_grep will do most of what I want. Just working on a script
> at the moment.
The scripts I use provide you with what you are asking for. Note that I think
I'm doing it the wrong way and have been meaning to swap to setting visible
instead :-)
Some comments:
I'm using wget since curl always adds a Pragma: no-cache
More efficient methods would be possible, even easier, these scripts just
evolved this way.
Sorry about the crude perl
Corrin
lakeland@dango:/usr/local/bin$ cat tv_grab_sky
#!/bin/bash -x
# grab xml tv listings from hairy.geek.nz
# and manipulate them so they look like the mr.geek.nz ones
#####################################################################
mkdir /tmp/epg
cd /tmp/epg
#remove old file
rm -f sky.xml.gz sky.xml
# get the file
wget --quiet --output-document sky.xml.gz
http://hairy.geek.nz/epg/latest.xml.gz # extract
gunzip sky.xml.gz
/usr/local/bin/add_mrgeek sky.xml > sky_tmp.xml && mv sky_tmp.xml sky.xml
#update mythtv database
mythfilldatabase --file 1 -1 /tmp/epg/sky.xml
chmod -R 777 /tmp/epg
lakeland@dango:/usr/local/bin$ cat tv_grab_tvnz
#!/bin/bash -x
# grab xml tv listings from hairy.geek.nz
# and manipulate them so they look like the mr.geek.nz ones
#####################################################################
mkdir /tmp/epg
cd /tmp/epg
#remove old file
rm -f tvnz.xml.gz tvnz.xml tvnz_tmp.xml
# get the file
wget --quiet --output-document tvnz.xml.gz
http://hairy.geek.nz/epg/latest.xml.gz # extract
gunzip tvnz.xml.gz
/usr/local/bin/add_mrgeek tvnz.xml > tvnz_tmp.xml && mv tvnz_tmp.xml tvnz.xml
/usr/local/bin/drop_sky tvnz.xml > tvnz_tmp.xml && mv tvnz_tmp.xml tvnz.xml
#update mythtv database
mythfilldatabase --file 1 -1 /tmp/epg/tvnz.xml
chmod -R 777 /tmp/epg
lakeland@dango:/usr/local/bin$ cat drop_sky
#!/usr/bin/perl
my $pre = 0;
my $chan = 1;
my $prog = 2;
my $post = 3;
my $print = 0;
my $skip = 1;
my $state = $pre;
my $do_print = $print;
print "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n";
print "<!DOCTYPE tv SYSTEM \"xmltv.dtd\">\n";
print "<tv generator-info-name=\"dvb-epg-gen\">\n";
while (<>) {
if (($pre == $state) && (/channel/)) {
$state = $chan;
$do_print = $print;
}
if (($chan == $state) && (/programme /)) {
$state = $prog;
$do_print = $print;
}
if (($prog == $state) && (/\<\/tv\>/)) {
$state = $post;
$do_print = $print;
}
if (($chan == $state) && (/mr.geek/)) {
$do_print = $print;
}
if (($chan == $state) && (/dvb/)) {
$do_print = $skip;
}
if (($prog == $state) && (/mr.geek/)) {
$do_print = $print;
}
if (($prog == $state) && (/dvb/)) {
$do_print = $skip;
}
print unless ($do_print == $skip);
}
lakeland@dango:/usr/local/bin$ cat add_mrgeek
#!/usr/bin/perl
# Change channels to something distinctive
while (<>) {
# chomp;
# Change channel one
s/1035.dvb.guide/TV1.mr.geek.nz/g;
s/1037.dvb.guide/TV1.mr.geek.nz/g;
# Change channel two
s/1036.dvb.guide/TV2.mr.geek.nz/g;
s/1038.dvb.guide/TV2.mr.geek.nz/g;
# Change channel three
s/1033.dvb.guide/TV3.mr.geek.nz/g;
# Change channel four
s/1034.dvb.guide/TV4.mr.geek.nz/g;
#PRIME
s/1018.dvb.guide/Prime.mr.geek.nz/g;
#Maori TV
s/1025.dvb.guide/maori.mr.geek.nz/g;
print;
}
_______________________________________________
mythtvnz mailing list
mythtvnz@lists.linuxnut.co.nz
http://lists.ourshack.com/mailman/listinfo/mythtvnz Archives
http://www.gossamer-threads.com/lists/mythtv/mythtvnz/
