Changeset 1269 for trunk/grabbers/sbsweb

Show
Ignore:
Timestamp:
06/11/10 18:54:15 (3 years ago)
Author:
max
Message:

sbsweb: Datasource format change

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/grabbers/sbsweb

    r1201 r1269  
    1010# 
    1111 
    12 my $version = '3.00'; 
     12my $version = '4.00'; 
    1313 
    1414use strict; 
    … …  
    495495    # or 'Regional'? 
    496496    my $state = Shepherd::Common::which_state($opt->{region}); 
    497     my $loc = "SBS Regional"; 
    498     $loc = "SBS Television"     if ($state eq "NSW"); 
    499     $loc = "SBS Melbourne"      if ($state eq "VIC"); 
    500     $loc = "SBS Queensland"     if ($state eq "QLD"); 
    501     $loc = "SBS SA"             if ($state eq "SA" or $state eq 'NT' or $state eq 'TAS'); 
    502     $loc = "SBS WA"             if ($state eq "WA"); 
     497    $loc = 'SBS Sydney'     if ($state eq 'NSW' or $state eq 'ACT'); 
     498    $loc = 'SBS Melbourne'  if ($state eq 'VIC'); 
     499    $loc = 'SBS Brisbane'   if ($state eq 'QLD'); 
     500    $loc = 'SBS Adelaide'   if ($state eq 'SA'); 
     501    $loc = 'SBS Darwin'     if ($state eq 'NT'); 
     502    $loc = 'SBS Tasmania'   if ($state eq 'TAS'); 
     503    $loc = 'SBS Perth'      if ($state eq 'WA'); 
     504 
     505    unless ($loc) 
     506    { 
     507        &log("Error: No valid location? Using default/national times."); 
     508        $loc = ''; 
     509    } 
    503510 
    504511    &log("Location: $loc") if ($debug);