xmltv/choose/tv_check tv_check, 1.76, 1.77 README.tv_check, 1.13, 1.14
Nick Morrott <[email protected]> Sun, 12 Jul 2015 00:46:39 +0000
| Newsgroups | gmane.comp.tv.xmltv.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/xmltv/xmltv/choose/tv_check In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21056/choose/tv_check Modified Files: tv_check README.tv_check Log Message: Whitespace: remove trailing whitespace Index: README.tv_check =================================================================== RCS file: /cvsroot/xmltv/xmltv/choose/tv_check/README.tv_check,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** README.tv_check 13 Jun 2011 03:02:01 -0000 1.13 --- README.tv_check 12 Jul 2015 00:46:37 -0000 1.14 *************** *** 8,12 **** Questions/Comments/Suggestions/Thanks are, of course welcome. ! XMLTV - users [email protected]. XMLTV - developers [email protected] tv_check author [email protected] --- 8,12 ---- Questions/Comments/Suggestions/Thanks are, of course welcome. ! XMLTV - users [email protected]. XMLTV - developers [email protected] tv_check author [email protected] *************** *** 25,29 **** 1. set timezone if not set ( this should not be necessary if using the EXE version) set TZ=CST6CDT ! 2. download listings using any XMLTV grabber, for example using tv_grab_fi for Finnish listings: --- 25,29 ---- 1. set timezone if not set ( this should not be necessary if using the EXE version) set TZ=CST6CDT ! 2. download listings using any XMLTV grabber, for example using tv_grab_fi for Finnish listings: *************** *** 65,69 **** device : device that records the show. Reports recording conflicts. : If the device contains "replay" takes into account ReplayTV's fuzzy recording logic ! Optional attributes: ==================== --- 65,69 ---- device : device that records the show. Reports recording conflicts. : If the device contains "replay" takes into account ReplayTV's fuzzy recording logic ! Optional attributes: ==================== *************** *** 74,84 **** ! Notes: ---------------------- "No Guide Info" means no guide information was found for that channel at that time. ! something may be wrong with the channel ID,listing fetch, or the guide file is just old. ! A "--html" option is available that outputs HTML output with color flagging. After processing shows, a check is made for recording conflicts. Only shows with the same "device" --- 74,84 ---- ! Notes: ---------------------- "No Guide Info" means no guide information was found for that channel at that time. ! something may be wrong with the channel ID,listing fetch, or the guide file is just old. ! A "--html" option is available that outputs HTML output with color flagging. After processing shows, a check is made for recording conflicts. Only shows with the same "device" *************** *** 92,96 **** Known bugs: --------------------- ! If you select a title in the title selection list and then try and select a blank day or channel the field doesn't blank. I have no clue. The variable doesn't match the displayed value... looks like a TK bug to me. --- 92,96 ---- Known bugs: --------------------- ! If you select a title in the title selection list and then try and select a blank day or channel the field doesn't blank. I have no clue. The variable doesn't match the displayed value... looks like a TK bug to me. Index: tv_check =================================================================== RCS file: /cvsroot/xmltv/xmltv/choose/tv_check/tv_check,v retrieving revision 1.76 retrieving revision 1.77 diff -C2 -d -r1.76 -r1.77 *** tv_check 13 Jun 2011 03:02:01 -0000 1.76 --- tv_check 12 Jul 2015 00:46:37 -0000 1.77 *************** *** 4,8 **** # # This script searches a channel GUIDE for shows in a show list and alerts when ! # a listed show is missing from it's time slot, or shows up at other days or times. # # The show list is a custom XML format. --- 4,8 ---- # # This script searches a channel GUIDE for shows in a show list and alerts when ! # a listed show is missing from its time slot, or shows up at other days or times. # # The show list is a custom XML format. *************** *** 14,18 **** # # Robert Eden - [email protected] ! # # See cvs logs entries for module history # --- 14,18 ---- # # Robert Eden - [email protected] ! # # See cvs logs entries for module history # *************** *** 46,50 **** B<--scan> Scan TV listings. Either this option or --configure must be provided. ! B<--myreplaytv=UNIT,USERNAME,PASSWORD> ** Feature removed ** This option used to auto-populate a config file based on myreplaytv.com. --- 46,50 ---- B<--scan> Scan TV listings. Either this option or --configure must be provided. ! B<--myreplaytv=UNIT,USERNAME,PASSWORD> ** Feature removed ** This option used to auto-populate a config file based on myreplaytv.com. *************** *** 71,75 **** Robert Eden; manpage by Kenneth J. Pronovici. ! =cut use strict; --- 71,75 ---- Robert Eden; manpage by Kenneth J. Pronovici. ! =cut use strict; *************** *** 135,139 **** my $R_ON = ""; # used for HTML output my $G_ON = ""; # used for HTML output ! my $B_ON = ""; my $N_ON = ""; my $OFF = ""; --- 135,139 ---- my $R_ON = ""; # used for HTML output my $G_ON = ""; # used for HTML output ! my $B_ON = ""; my $N_ON = ""; my $OFF = ""; *************** *** 142,146 **** my %COL; $COL{$COL[$_]}=$_ foreach (0..$#COL); # populate $COL reverse hash ! my @COL_TYPE = qw(1 1 1 2 2 1 3 3 3 3 ); --- 142,146 ---- my %COL; $COL{$COL[$_]}=$_ foreach (0..$#COL); # populate $COL reverse hash ! my @COL_TYPE = qw(1 1 1 2 2 1 3 3 3 3 ); *************** *** 211,215 **** # $GUIDE{CHAN}{chan}{title}=[ [day,chan,hhmm,len]...] # $GUIDE{DAY}{day}{title} =[ [day,chan,hhmm,len]...] ! # $GUIDE{day}{chan}{title} =[ [day,chan,hhmm,len]...] This works since day!=chan. I hope :) # my $ENCODING; # character encoding for listings data --- 211,215 ---- # $GUIDE{CHAN}{chan}{title}=[ [day,chan,hhmm,len]...] # $GUIDE{DAY}{day}{title} =[ [day,chan,hhmm,len]...] ! # $GUIDE{day}{chan}{title} =[ [day,chan,hhmm,len]...] This works since day!=chan. I hope :) # my $ENCODING; # character encoding for listings data *************** *** 217,221 **** my @CHAN = (); # channel list (sorted) my %CHAN = (); # channel list ( channel-id key ) ! my %CHAN_NAME = (); # channel list ( display-name key ) my %SELECT = (); # array of selector widgits --- 217,221 ---- my @CHAN = (); # channel list (sorted) my %CHAN = (); # channel list ( channel-id key ) ! my %CHAN_NAME = (); # channel list ( display-name key ) my %SELECT = (); # array of selector widgits *************** *** 309,315 **** ## } ## } ! ## ## print STDERR "Fetching shows from $device\n"; ! ## ##if ($MYREPLAY_DEBUG != 2) ##{ --- 309,315 ---- ## } ## } ! ## ## print STDERR "Fetching shows from $device\n"; ! ## ##if ($MYREPLAY_DEBUG != 2) ##{ *************** *** 397,401 **** ## ## my $len = hhmm_min($stop) - hhmm_min($hhmm); ! ## $len += 24*60 if $len < 0; ## ## --- 397,401 ---- ## ## my $len = hhmm_min($stop) - hhmm_min($hhmm); ! ## $len += 24*60 if $len < 0; ## ## *************** *** 494,498 **** ## next if $hhmm lt $wstart; ## next if $hhmm gt $wstop; ! ## ### ### guess it's a hit... mark it --- 494,498 ---- ## next if $hhmm lt $wstart; ## next if $hhmm gt $wstop; ! ## ### ### guess it's a hit... mark it *************** *** 524,528 **** ##load_show_table(); # build indexes ##} # MYREPLAY ! # --- 524,528 ---- ##load_show_table(); # build indexes ##} # MYREPLAY ! # *************** *** 635,639 **** -titlerows => 1, -variable => \%SHOW_DATA, ! -roworigin => 0, -colorigin => 0, -colstretchmode => 'all', -selecttype => 'row', --- 635,639 ---- -titlerows => 1, -variable => \%SHOW_DATA, ! -roworigin => 0, -colorigin => 0, -colstretchmode => 'all', -selecttype => 'row', *************** *** 650,654 **** my $row = $w->index('@'.$Ev->x.",".$Ev->y,"row"); my $col = $w->index('@'.$Ev->x.",".$Ev->y,"col"); ! $w->selectionClear('all'); $SHOW_ROW=0; --- 650,654 ---- my $row = $w->index('@'.$Ev->x.",".$Ev->y,"row"); my $col = $w->index('@'.$Ev->x.",".$Ev->y,"col"); ! $w->selectionClear('all'); $SHOW_ROW=0; *************** *** 666,670 **** { $COL_VALUE[$col] = $SHOW_DATA{"$row,$col"}; ! } } else --- 666,670 ---- { $COL_VALUE[$col] = $SHOW_DATA{"$row,$col"}; ! } } else *************** *** 681,685 **** { my $frame=$selframe->Frame()->pack( -side => 'left' ); ! $CLEAR_BUTTON = $frame->Button( -text => "Clear Selection", -command => sub{ --- 681,685 ---- { my $frame=$selframe->Frame()->pack( -side => 'left' ); ! $CLEAR_BUTTON = $frame->Button( -text => "Clear Selection", -command => sub{ *************** *** 692,696 **** }) -> pack(-fill => 'x'); ! $ADD_BUTTON = $frame->Button( -text => "Add Selection", -command => sub{ --- 692,696 ---- }) -> pack(-fill => 'x'); ! $ADD_BUTTON = $frame->Button( -text => "Add Selection", -command => sub{ *************** *** 704,708 **** $SHOWS[$row]{$COL[$_]}=$COL_VALUE[$_] foreach (0..$#COL); load_show_table(); ! $SHOW_CHANGED=1; $COL_VALUE[$COL{title}]=''; }) -> pack(-fill => 'x'); --- 704,708 ---- $SHOWS[$row]{$COL[$_]}=$COL_VALUE[$_] foreach (0..$#COL); load_show_table(); ! $SHOW_CHANGED=1; $COL_VALUE[$COL{title}]=''; }) -> pack(-fill => 'x'); *************** *** 763,772 **** entry => $entry, list => $list }; ! } # type 1 selectors # # Selector Widgets # Type 2 ( entry ) ! # Note: Type 2 and Type 3 share a frame # my $selframe2 =$selframe->Frame()->pack( -side => 'left' ); --- 763,772 ---- entry => $entry, list => $list }; ! } # type 1 selectors # # Selector Widgets # Type 2 ( entry ) ! # Note: Type 2 and Type 3 share a frame # my $selframe2 =$selframe->Frame()->pack( -side => 'left' ); *************** *** 789,793 **** # Selector Widgets # Type 3 ( checkbox ) ! # Note: Type 2 and Type 3 share a frame # for my $col (0..$#COL) --- 789,793 ---- # Selector Widgets # Type 3 ( checkbox ) ! # Note: Type 2 and Type 3 share a frame # for my $col (0..$#COL) *************** *** 803,807 **** check => $check, }; ! } # type 3 selectors load_selection_items(); --- 803,807 ---- check => $check, }; ! } # type 3 selectors load_selection_items(); *************** *** 879,886 **** { my $time_of_day=substr($show->{hhmm},0,2)*3600+substr($show->{hhmm},2,2)*60; ! for my $midnight (@{$MIDNIGHTS{$show->{day}}}) { ! $show->{start} = $midnight + $time_of_day; my @date = localtime($show->{start}); $date[4]++; $date[5]+=1900; --- 879,886 ---- { my $time_of_day=substr($show->{hhmm},0,2)*3600+substr($show->{hhmm},2,2)*60; ! for my $midnight (@{$MIDNIGHTS{$show->{day}}}) { ! $show->{start} = $midnight + $time_of_day; my @date = localtime($show->{start}); $date[4]++; $date[5]+=1900; *************** *** 991,995 **** gen_episode_dates($ep) unless $ep->{day}; ! # check channel --- 991,995 ---- gen_episode_dates($ep) unless $ep->{day}; ! # check channel *************** *** 1030,1034 **** print " "x5,$G_ON,ep_summary($ep,1),"$OFF\n"; } ! # # special hack to for ReplayTV's "smart" record --- 1030,1034 ---- print " "x5,$G_ON,ep_summary($ep,1),"$OFF\n"; } ! # # special hack to for ReplayTV's "smart" record *************** *** 1040,1044 **** # code as an episode on that day # ! # or $show->{device} =~ /^MYREPLAY/i ) { next unless length($show->{day} ); # don't record title-only scans --- 1040,1044 ---- # code as an episode on that day # ! # or $show->{device} =~ /^MYREPLAY/i ) { next unless length($show->{day} ); # don't record title-only scans *************** *** 1051,1065 **** my $hit=undef; my $epp=undef; ! $epp = $ep->{prev} if defined $ep; $epp = $ep->{prev} if defined $epp; $hit = $epp if lc(get_text($epp->{title})) eq lc($show->{title}); $hit = undef if $epp->{device} eq $show->{device}; ! $epp = $ep->{next} if defined $ep; $epp = $ep->{next} if defined $epp; $hit = $epp if !$hit && lc(get_text($epp->{title})) eq lc($show->{title}); $hit = undef if $epp->{device} eq $show->{device}; ! if ($hit) { --- 1051,1065 ---- my $hit=undef; my $epp=undef; ! $epp = $ep->{prev} if defined $ep; $epp = $ep->{prev} if defined $epp; $hit = $epp if lc(get_text($epp->{title})) eq lc($show->{title}); $hit = undef if $epp->{device} eq $show->{device}; ! $epp = $ep->{next} if defined $ep; $epp = $ep->{next} if defined $epp; $hit = $epp if !$hit && lc(get_text($epp->{title})) eq lc($show->{title}); $hit = undef if $epp->{device} eq $show->{device}; ! if ($hit) { *************** *** 1096,1100 **** } } ! } # wildcard scan print "\n"; --- 1096,1100 ---- } } ! } # wildcard scan print "\n"; *************** *** 1185,1189 **** return ""; } #opt_summary ! # # ep_summary --- 1185,1189 ---- return ""; } #opt_summary ! # # ep_summary *************** *** 1195,1199 **** my $ep = shift || die "ep_summary, how about a episode fella!"; my $flag = shift || 0; ! gen_episode_dates($ep) unless $ep->{day}; --- 1195,1199 ---- my $ep = shift || die "ep_summary, how about a episode fella!"; my $flag = shift || 0; ! gen_episode_dates($ep) unless $ep->{day}; *************** *** 1233,1239 **** } } ! gen_episode_dates($ep) unless $ep->{day}; ! return join(" ",$ep->{day}, mmdd_swap($ep->{mmdd}), --- 1233,1239 ---- } } ! gen_episode_dates($ep) unless $ep->{day}; ! return join(" ",$ep->{day}, mmdd_swap($ep->{mmdd}), *************** *** 1272,1276 **** # given a pointer to a show ( with channel/date/time info) see what's playing then. # ! # we have a ordered binary date array # Returns undef if no episodes are found (or all are greater, see above) This is signifies no guide info # --- 1272,1276 ---- # given a pointer to a show ( with channel/date/time info) see what's playing then. # ! # we have a ordered binary date array # Returns undef if no episodes are found (or all are greater, see above) This is signifies no guide info # *************** *** 1283,1287 **** # # first let's search for a direct match! ! # my $ep=$GUIDE{$chan}{$time}; return $ep if defined $ep; --- 1283,1287 ---- # # first let's search for a direct match! ! # my $ep=$GUIDE{$chan}{$time}; return $ep if defined $ep; *************** *** 1294,1298 **** my $low = 0; my $high = @$times; ! while ($low < $high ) { --- 1294,1298 ---- my $low = 0; my $high = @$times; ! while ($low < $high ) { *************** *** 1305,1309 **** # ! # ok we may have found our show. # $ep=$GUIDE{$chan}{$times->[$low]}; --- 1305,1309 ---- # ! # ok we may have found our show. # $ep=$GUIDE{$chan}{$times->[$low]}; *************** *** 1319,1323 **** # return $GUIDE{$chan}{$times->[$low]}; ! } # find_episode --- 1319,1323 ---- # return $GUIDE{$chan}{$times->[$low]}; ! } # find_episode *************** *** 1371,1375 **** } # ! # special sort.. channel # elsif ( $COL[abs($SHOW_SORT)] eq 'chan' ) --- 1371,1375 ---- } # ! # special sort.. channel # elsif ( $COL[abs($SHOW_SORT)] eq 'chan' ) *************** *** 1403,1407 **** $DEVICE{$val}=1 if ($COL[$col] eq 'device'); # help build device list ! $SHOW_DATA{"$row,$col"}= $val; $SHOW_WIDTH{$col} = length($val) if ($SHOW_WIDTH{$col}<length($val)); --- 1403,1407 ---- $DEVICE{$val}=1 if ($COL[$col] eq 'device'); # help build device list ! $SHOW_DATA{"$row,$col"}= $val; $SHOW_WIDTH{$col} = length($val) if ($SHOW_WIDTH{$col}<length($val)); *************** *** 1572,1576 **** return; } ! $SHOW_XML = $file; print STDERR "Loading xml show info ($SHOW_XML)\n"; --- 1572,1576 ---- return; } ! $SHOW_XML = $file; print STDERR "Loading xml show info ($SHOW_XML)\n"; *************** *** 1591,1595 **** # ! # fix show entry # for my $show (@SHOWS) --- 1591,1595 ---- # ! # fix show entry # for my $show (@SHOWS) *************** *** 1599,1603 **** # utf8::downgrade($show->{title}); ! # # ensure no null values --- 1599,1603 ---- # utf8::downgrade($show->{title}); ! # # ensure no null values *************** *** 1611,1615 **** # convert channel ID to new format if ncessary # ! if ( ! exists $CHAN{$show->{channel}} && exists $CHAN_NAME{$show->{channel}} ) { --- 1611,1615 ---- # convert channel ID to new format if ncessary # ! if ( ! exists $CHAN{$show->{channel}} && exists $CHAN_NAME{$show->{channel}} ) { *************** *** 1626,1630 **** } # fix entries ! unless (@SHOWS) { --- 1626,1630 ---- } # fix entries ! unless (@SHOWS) { *************** *** 1642,1646 **** } #load_show ! # # load channel guide --- 1642,1646 ---- } #load_show ! # # load channel guide *************** *** 1656,1660 **** } ! my $st=time(); my $c=0; --- 1656,1660 ---- } ! my $st=time(); my $c=0; *************** *** 1671,1675 **** { error_popup("Listings file ($file) invalid or empty"); ! } # --- 1671,1675 ---- { error_popup("Listings file ($file) invalid or empty"); ! } # *************** *** 1720,1724 **** { gen_episode_dates($ep); ! my $array = [$ep->{day},$ep->{channel},$ep->{hhmm},$ep->{len}]; push @{$GUIDE{title} {$title}} ,$array; # titles by chan --- 1720,1724 ---- { gen_episode_dates($ep); ! my $array = [$ep->{day},$ep->{channel},$ep->{hhmm},$ep->{len}]; push @{$GUIDE{title} {$title}} ,$array; # titles by chan *************** *** 1742,1746 **** next if $chan eq 'starts'; next unless exists $CHAN{$chan}; ! for my $date ( @{$GUIDE{starts}{$chan}} ) { --- 1742,1746 ---- next if $chan eq 'starts'; next unless exists $CHAN{$chan}; ! for my $date ( @{$GUIDE{starts}{$chan}} ) { *************** *** 1772,1776 **** ! load_selection_items() if $SELECT{day}; } #load_guide --- 1772,1776 ---- ! load_selection_items() if $SELECT{day}; } #load_guide *************** *** 1824,1828 **** $SHOW_CHANGED=0; } # Save_shows ! # # give chance to save file before losing changes --- 1824,1828 ---- $SHOW_CHANGED=0; } # Save_shows ! # # give chance to save file before losing changes *************** *** 1895,1899 **** my $day = shift || ''; my $foundit = 0; #used to supress message on auto-theme ! printf STDERR "want <%s>/<%s>/<%s>\n",$chan,$start,$day if ($MYREPLAY_DEBUG == 2); for my $old (@{$OLD_SHOW{$title}}) # capture settings from pre-existing show --- 1895,1899 ---- my $day = shift || ''; my $foundit = 0; #used to supress message on auto-theme ! printf STDERR "want <%s>/<%s>/<%s>\n",$chan,$start,$day if ($MYREPLAY_DEBUG == 2); for my $old (@{$OLD_SHOW{$title}}) # capture settings from pre-existing show ------------------------------------------------------------------------------ Don't Limit Your Business. Reach for the Cloud. GigeNET's Cloud Solutions provide you with the tools and support that you need to offload your IT needs and focus on growing your business. Configured For All Businesses. Start Your Cloud Today. https://www.gigenetcloud.com/