<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
  <title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Paul Andreassen wrote:
<blockquote cite="mid1102771694.1849.9.camel@Silver" type="cite">Could
you try this version for daylight saving straddling. I believe your
version started about 15 hours early, due to Date::Manip getting the
timezone wrong. Why can't the perl people get there act together and
write some date routines that work with timezones?<br>
</blockquote>
After far too long, I've changed over to this posted version of the
script - it's working fine for the freesd channels, but when I run an
appropriately modified copy for Foxtel, I end up with the following...<br>
<blockquote><tt>mythtv root # tv_grab_au_foxtel</tt><br>
  <tt>grabing 7 days into /var/local/tv_grab_au_foxtel/guide.xml</tt><br>
  <tt>starting 5 threads</tt><br>
  <tt>loading queue</tt><br>
  <tt>11122004 unchanged</tt><br>
  <tt>12122004 unchanged</tt><br>
  <tt>13122004 unchanged</tt><br>
  <tt>14122004 unchanged</tt><br>
  <tt>15122004 unchanged</tt><br>
  <tt>16122004 downloading</tt><br>
  <tt>Use of uninitialized value in string at
/usr/bin/tv_grab_au_foxtel line 722.</tt><br>
  <tt>17122004 downloading</tt><br>
  <tt>Use of uninitialized value in string at
/usr/bin/tv_grab_au_foxtel line 722.</tt><br>
  <tt>18122004 downloading</tt><br>
  <tt>Use of uninitialized value in string at
/usr/bin/tv_grab_au_foxtel line 722.</tt><br>
  <tt>queue is complete</tt><br>
  <tt>all threads done</tt><br>
  <tt>building xml structure</tt><br>
</blockquote>
At this point, the script just hangs.&nbsp; Doesn't do anything, even if
left alone for a few hours.&nbsp; I probably should point out that the
Foxtel channels aren't in my channels table (yet) though I doubt this
is the cause of the problem.&nbsp; A diff between the two scripts yeilds the
following...<br>
<br>
<tt>mythtv bin # diff -u tv_grab_au tv_grab_au_foxtel<br>
--- tv_grab_au&nbsp; 2004-12-12 18:58:37.059979392 +1100<br>
+++ tv_grab_au_foxtel&nbsp;&nbsp; 2004-12-12 19:01:11.487502840 +1100<br>
@@ -115,15 +115,15 @@<br>
&nbsp;#my $location = "Brisbane";<br>
&nbsp;#my $location = "Queensland";<br>
&nbsp;#my $location = "Sydney";<br>
-my $location = "Melbourne";<br>
-#my $location = "Australia";<br>
+#my $location = "Melbourne";<br>
+my $location = "Australia";<br>
<br>
&nbsp;# pick your source<br>
&nbsp;#<br>
&nbsp;#my $source = "free";<br>
-my $source = "freesd";<br>
+#my $source = "freesd";<br>
&nbsp;#my $source = "freehd";<br>
-#my $source = "foxtel";<br>
+my $source = "foxtel";<br>
<br>
&nbsp;# choose the XMLID URL suffix that mythtv knows<br>
&nbsp;#<br>
@@ -144,7 +144,7 @@<br>
<br>
&nbsp;my $guide_url = <a class="moz-txt-link-rfc2396E" href="http://tvguide.ninemsn.com.au/guide/">"http://tvguide.ninemsn.com.au/guide/"</a>;<br>
&nbsp;my $details_url =
<a class="moz-txt-link-rfc2396E" href="http://tvguide.ninemsn.com.au/closeup/default.asp?pid=">"http://tvguide.ninemsn.com.au/closeup/default.asp?pid="</a>;<br>
-my $cache_dir = "/var/local/tv_grab_au";<br>
+my $cache_dir = "/var/local/tv_grab_au_foxtel";<br>
<br>
&nbsp;my $XMLTV_prefix = $source . "." . $location . ".";<br>
&nbsp;my $XMLTV_suffix = "." . $XMLTVID_URL;<br>
</tt><br>
I haven't seen anything else that should need to be reconfigured.&nbsp; Just
in case there's an extra couple of linefeeds in my script, line 722 is
the following one that is in bold.&nbsp; It's in the last function of the
script.<br>
<br>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (open(PRN, "&gt;", $guide_prn_file))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for (my $count=0; $count&lt;$#pidsrowspansnames;
$count++) {<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print PRN "$pidsrowspansnames[$count]&gt;";<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>
<b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print PRN "$pidsrowspansnames[$#pidsrowspansnames]";<br>
</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; close(PRN);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; } else {<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print "can't open for writing $guide_prn_file\n";<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>
</tt><br>
I am as sure as I can be that I have copied the script verbatim.&nbsp; My
knowledge of PERL is near zero, though I know enough C/C++ to be able
to make some sense of the code.&nbsp; That line does look a little odd,
though I'd be willing to bet the difference between $pids.. and $#pids
is like the difference between a variable and a pointer, so I may well
be wrong.<br>
<br>
Is anyone else running in to this?&nbsp; Is it just me?<br>
</body>
</html>