> 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
