Changeset 587

Show
Ignore:
Timestamp:
03/04/07 16:34:04 (6 years ago)
Author:
lincoln
Message:

commit --set overrides for abc_website/abc2_website

Files:
5 modified

Legend:

Unmodified
Added
Removed

  • grabbers/abc2_website

    r586 r587  
    2222my $progname = "abc2_website"; 
    2323my $chan_id = "ABC2"; 
    24 my $version = "2.10"; 
     24my $version = "2.11"; 
    2525 
    2626use LWP::UserAgent; 
    … …  
    5151my $tv_guide; 
    5252my $data_cache; 
     53my $override_settings = { }; 
    5354my @station_close_data; 
    5455my $writer; 
    … …  
    8182my $opt_obfuscate =     0; 
    8283my $opt_do_extra_days = 0; 
     84my $opt_set = ""; 
    8385my $opt_help =          0; 
    8486my $opt_version =       0; 
    … …  
    109111        'obfuscate'     => \$opt_obfuscate, 
    110112        'no-retry'      => \$opt_dont_retry, 
     113        'set=s'         => \$opt_set, 
    111114        'help'          => \$opt_help, 
    112115        'verbose'       => \$opt_help, 
    … …  
    124127} 
    125128 
     129&set_override if ($opt_set ne ""); 
     130 
    126131die "no channel file specified, see --help for instructions\n", if ($opt_channels_file eq ""); 
    127132 
    … …  
    131136 
    132137my $starttime = time; 
     138&read_cache if ($opt_no_cache == 0); 
    133139 
    134140&log(sprintf "going to %s%s %s%d%s days%s of data into %s (%s%s)", 
    … …  
    161167        } 
    162168} 
    163  
    164 &read_cache if ($opt_no_cache == 0); 
    165169 
    166170my %writer_args = ( encoding => 'ISO-8859-1' ); 
    … …  
    208212        --channels_file=file    where to get channel data from (if not set manually) 
    209213        --timezone=HHMM         timezone for channel data (default: $opt_timezone) 
     214 
     215        --set (option):(1/0)    setting override options (1=enable, 0=disable) 
     216                do_extra_days:1/0   enable/disable fetching up to 24 days 
     217                fast:1/0            enable/disable extra-fast grab speed (not recommended) 
     218                debug:1/0           enable/disable debugging 
     219 
    210220EOF 
    211221; 
    212222 
     223        exit(0); 
     224} 
     225 
     226###################################################################################################### 
     227 
     228sub set_override 
     229{ 
     230        &read_cache; 
     231        my ($setting, $val) = split(/:/,$opt_set); 
     232 
     233        die "--set format is (setting):(value) where value is 0 for disable, 1 for enable.\n" 
     234          if (($val ne "0") && ($val ne "1")); 
     235 
     236        die "unknown '--set' parameter '$setting', see --help for details.\n" 
     237          if (($setting ne "do_extra_days") && 
     238              ($setting ne "fast") && 
     239              ($setting ne "debug")); 
     240 
     241        $override_settings->{$setting} = $val; 
     242        printf "%s: override parameter %s: %s\n", $progname, $setting, ($val eq "0" ? "disabled" : "enabled"); 
     243 
     244        &write_cache; 
    213245        exit(0); 
    214246} 
    … …  
    222254                my $store = Storable::retrieve($opt_cache_file); 
    223255                $data_cache = $store->{data_cache}; 
     256                $override_settings = $store->{override_settings}; 
     257 
     258                # apply settings overrides 
     259                $opt_do_extra_days = 1 if ((defined $override_settings->{do_extra_days}) && ($override_settings->{do_extra_days} == 1)); 
     260                $opt_fast = 1 if ((defined $override_settings->{fast}) && ($override_settings->{fast} == 1)); 
     261                $debug = 1 if ((defined $override_settings->{debug}) && ($override_settings->{debug} > 0)); 
    224262        } else { 
    225263                printf "WARNING: no programme cache $opt_cache_file - have to fetch all details\n"; 
    … …  
    246284        my $store; 
    247285        $store->{data_cache} = $data_cache; 
     286        $store->{override_settings} = $override_settings; 
    248287        Storable::store($store, $opt_cache_file); 
    249288} 

  • grabbers/abc2_website.conf

    r475 r587  
    66            'regions' => '', 
    77            'option_ready' => '--version', 
     8            'option_set' => '--set', 
    89            'desc' => 'guide data for ABC2 only from http://www.abc.net.au/tv/guide/abc2/', 
    910            'max_days' => '14', 

  • grabbers/abc_website

    r586 r587  
    2222my $progname = "abc_website"; 
    2323my $chan_id = "ABC"; 
    24 my $version = "2.10"; 
     24my $version = "2.11"; 
    2525 
    2626use LWP::UserAgent; 
    … …  
    5151my $tv_guide; 
    5252my $data_cache; 
     53my $override_settings = { }; 
    5354my @station_close_data; 
    5455my $writer; 
    … …  
    8182my $opt_obfuscate =     0; 
    8283my $opt_do_extra_days = 0; 
     84my $opt_set = ""; 
    8385my $opt_help =          0; 
    8486my $opt_version =       0; 
    … …  
    109111        'obfuscate'     => \$opt_obfuscate, 
    110112        'no-retry'      => \$opt_dont_retry, 
     113        'set=s'         => \$opt_set, 
    111114        'help'          => \$opt_help, 
    112115        'verbose'       => \$opt_help, 
    … …  
    124127} 
    125128 
     129&set_override if ($opt_set ne ""); 
     130 
    126131die "no channel file specified, see --help for instructions\n", if ($opt_channels_file eq ""); 
    127132 
    … …  
    131136 
    132137my $starttime = time; 
     138&read_cache if ($opt_no_cache == 0); 
    133139 
    134140&log(sprintf "going to %s%s %s%d%s days%s of data into %s (%s%s)", 
    … …  
    161167        } 
    162168} 
    163  
    164 &read_cache if ($opt_no_cache == 0); 
    165169 
    166170my %writer_args = ( encoding => 'ISO-8859-1' ); 
    … …  
    208212        --channels_file=file    where to get channel data from (if not set manually) 
    209213        --timezone=HHMM         timezone for channel data (default: $opt_timezone) 
     214 
     215        --set (option):(1/0)    setting override options (1=enable, 0=disable) 
     216                do_extra_days:1/0   enable/disable fetching up to 24 days 
     217                fast:1/0            enable/disable extra-fast grab speed (not recommended) 
     218                debug:1/0           enable/disable debugging 
     219 
    210220EOF 
    211221; 
    212222 
     223        exit(0); 
     224} 
     225 
     226###################################################################################################### 
     227 
     228sub set_override 
     229{ 
     230        &read_cache; 
     231        my ($setting, $val) = split(/:/,$opt_set); 
     232 
     233        die "--set format is (setting):(value) where value is 0 for disable, 1 for enable.\n" 
     234          if (($val ne "0") && ($val ne "1")); 
     235 
     236        die "unknown '--set' parameter '$setting', see --help for details.\n" 
     237          if (($setting ne "do_extra_days") && 
     238              ($setting ne "fast") && 
     239              ($setting ne "debug")); 
     240 
     241        $override_settings->{$setting} = $val; 
     242        printf "%s: override parameter %s: %s\n", $progname, $setting, ($val eq "0" ? "disabled" : "enabled"); 
     243 
     244        &write_cache; 
    213245        exit(0); 
    214246} 
    … …  
    222254                my $store = Storable::retrieve($opt_cache_file); 
    223255                $data_cache = $store->{data_cache}; 
     256                $override_settings = $store->{override_settings}; 
     257 
     258                # apply settings overrides 
     259                $opt_do_extra_days = 1 if ((defined $override_settings->{do_extra_days}) && ($override_settings->{do_extra_days} == 1)); 
     260                $opt_fast = 1 if ((defined $override_settings->{fast}) && ($override_settings->{fast} == 1)); 
     261                $debug = 1 if ((defined $override_settings->{debug}) && ($override_settings->{debug} > 0)); 
    224262        } else { 
    225263                printf "WARNING: no programme cache $opt_cache_file - have to fetch all details\n"; 
    … …  
    246284        my $store; 
    247285        $store->{data_cache} = $data_cache; 
     286        $store->{override_settings} = $override_settings; 
    248287        Storable::store($store, $opt_cache_file); 
    249288} 

  • grabbers/abc_website.conf

    r475 r587  
    66            'regions' => '', 
    77            'option_ready' => '--version', 
     8            'option_set' => '--set', 
    89            'desc' => 'guide data for ABC only from http://www.abc.net.au/tv/guide/netw/', 
    910            'max_days' => '14', 

  • status

    r586 r587  
    22grabber         yahoo7widget        1.81 
    33grabber         rex                 3.4.5 
    4 grabber         abc_website         2.10 
    5 grabber         abc2_website        2.10 
     4grabber         abc_website         2.11 
     5grabber         abc2_website        2.11 
    66grabber         sbsnews_website     0.08 
    77grabber         oztivo              0.19