I'm now getting my xml EPG from a different source, and am having problems getting the perl script to run properly. My perl knowledge is poor (to say the least!!)
The problem is, the epg xml I'm getting has the "channel=" at the wrong end of the "<programme" sequence.
So instead of: <programme start="20070412060000 +1200" stop="20070412061000 +1200" channel="1031.dvb.guide">
it has : <programme channel="1031.dvb.guide" start="20070412060000 +1200" stop="20070412061000 +1200">
DONE: --- xmltv2vdr.pl 2006-08-17 04:35:33.000000000 +1200 +++ xmltv2vdr_SBB.pl 2007-04-11 14:16:14.000000000 +1200 @@ -187,7 +187,7 @@ if ( ($xmlline =~ /<programme/ ) && ( $xmlline =~ /"$xmltv_channel_name/ ) && ( $xmlline !~ /clumpidx="1/2"/ ) && ( $chanevent == 0 ) ) { $chanevent = 1; - ( $null, $xmlst, $null, $xmlet, @null ) = split(/"/, $xmlline); + ( $null, $null, $null, $xmlst, $null, $xmlet, @null ) = split(/"/, $xmlline); $vdrst = &xmltime2vdr($xmlst, $adjust); $vdret = &xmltime2vdr($xmlet, $adjust); $vdrdur = $vdret - $vdrst;
amazing what happens when you stare at a piece of code long enough... :P