Changeset 945 for trunk/grabbers/oztivo
- Timestamp:
- 10/10/07 04:39:49 (6 years ago)
- Files:
-
- 1 modified
-
trunk/grabbers/oztivo (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/grabbers/oztivo
r900 r945 3 3 # OzTivo grabber 4 4 5 my $version = '1.1 3';5 my $version = '1.14'; 6 6 7 7 # Requires configuration! … … 440 440 my $l_min = int($local_tz / 100) * 60 + $local_tz % 100 % 60; 441 441 my $s_min = int($sydney_tz / 100) * 60 + $sydney_tz % 100 % 60; 442 my $tz_diff = int(($l_min - $s_min) / 60) * 100 + (($l_min - $s_min) % 60); 442 # can't use %60 because it always returns a positive number 443 my $tz_diff = int(($l_min - $s_min) / 60) * 100 + (($l_min - $s_min) - (int(($l_min - $s_min)/60)*60)); 443 444 444 445 # Are we in DST? … … 493 494 494 495 # Check Sydney's DST status each day for 7 days 495 for (my $day = 0; $day < 7; $day++)496 for (my $day = 0; $day < 8; $day++) 496 497 { 497 498 my $t = $start + ($day * 24*60*60);
