Changeset 1117

Timestamp:

07/23/08 00:18:54 (5 years ago)

Author:

paul

Message:

yahoo7widget: fill abc2 gap on first day before 7am

Location:

trunk

Files:

• grabbers/yahoo7widget (modified) (3 diffs)
• status (modified) (1 diff)

trunk/grabbers/yahoo7widget

@@ -22 +22 @@
 
 my $progname = "yahoo7widget";
-my $version = "1.107";
+my $version = "1.108";
 
 use XMLTV;
@@ -565 +565 @@
         }
 
+        my $abc2_eariest_start = "300000000000";
+
         for my $channel (sort keys %{($d->{seen_progs})}) {
                 for my $event_id (sort {$a cmp $b} keys %{($tv_guide->{$channel}->{data})}) {
@@ -570 +572 @@
                         Shepherd::Common::cleanup($show);
                         $writer->write_programme($show);
+
+                        $abc2_eariest_start = $show->{'start'}
+                                        if ($channel eq "ABC2" && $abc2_eariest_start > $show->{'start'});
+                }
+        }
+
+        # check if abc2 has a gap on the first day when the station is closed
+        if (defined $channels->{ABC2} &&
+                        $abc2_eariest_start > POSIX::strftime("%Y%m%d%H%M", localtime($starttime))) {
+
+                # create 7am today
+                my @timeattr = localtime($script_start_time); # 0=sec,1=min,2=hour,3=day,4=month,5=year,6=wday,7=yday,8=isdst
+                $timeattr[0] = 0; # zero seconds
+                $timeattr[1] = 0; # min
+                $timeattr[2] = 7; # hours 7am
+                my $time7am = mktime(@timeattr);
+                $time7am -= $time_offset;
+                my $xmltime7am = POSIX::strftime("%Y%m%d%H%M", localtime($time7am));
+
+                if (($starttime < $time7am) && ($abc2_eariest_start >= $xmltime7am))
+                {
+                        my $show;
+                        $show->{'channel'} =    $channels->{ABC2};
+                        $show->{'title'} =      [[ "Station Close Guess", $opt->{lang} ]];
+                        $show->{'start'} =      POSIX::strftime("%Y%m%d%H%M", localtime($starttime));
+                        $show->{'stop'} =       $abc2_eariest_start;
+
+                        Shepherd::Common::cleanup($show);
+                        $writer->write_programme($show);
                 }
         }

trunk/status

@@ -4 +4 @@
 reference       Shepherd/MythTV.pm  0.8
 reference       Shepherd/Configure.pm   0.1
-grabber         yahoo7widget        1.107-r2
+grabber         yahoo7widget        1.108
 grabber         rex                 3.6.9-r1
 grabber         abc_website         3.22