MythTV  0.28pre
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Groups Pages
Functions | Variables
envcan_animaps.pl File Reference

Go to the source code of this file.

Functions

use lib dirname (abs_path($0 or $PROGRAM_NAME))
 
 our ($opt_v, $opt_t, $opt_T, $opt_l, $opt_u, $opt_d)
 
 getopts ('Tvtlu:d:')
 
 if (defined $opt_v)
 
 if (!-d $dir)
 
 if (!defined $loc||$loc eq"")
 
foreach my $line (split(/\n/, $response))
 

Variables

use strict
 
use warnings
 
use English
 
use Cwd abs_path
 
use lib usr share mythtv
mythweather scripts 
ca_envcan
 
use ENVCANMapSearch
 
my $name = 'ENVCAN-Animated-Map'
 
my $version = 0.5
 
my $author = 'Joe Ripley / Gavin Hurlbut'
 
my $email = 'vitaminjoe@gmail.com / gjhurlbu@gmail.com'
 
my $updateTimeout = 10*60
 
my $retrieveTimeout = 30
 
my types
 
my $dir = "/tmp/envcan"
 
my $loc = shift
 
my $results = ENVCANMapSearch::doSearch()
 
my $desc = $results->[0]->{satellite}
 
my $response = get $results->[0]->{animated_url}
 
my image_list
 
my $size
 
my $base_url = "http://www.weatheroffice.gc.ca"
 
my $file = $loc
 
my $path = "$dir/$file-"
 

Function Documentation

use lib dirname ( abs_path($0 or $PROGRAM_NAME)  )
our (   $opt_v,
  $opt_t,
  $opt_T,
  $opt_l,
  $opt_u,
  $opt_d 
)
getopts ( 'Tvtlu:d:'  )
if ( defined  $opt_v)

Definition at line 44 of file envcan_animaps.pl.

if ( !-d  $dir)

Definition at line 73 of file envcan_animaps.pl.

if ( !defined $loc||$loc eq""  )

Definition at line 79 of file envcan_animaps.pl.

foreach my $line ( split(/\n/, $response)  )

Definition at line 99 of file envcan_animaps.pl.

Referenced by open().

Variable Documentation

use strict

Definition at line 13 of file envcan_animaps.pl.

use warnings

Definition at line 14 of file envcan_animaps.pl.

use English

Definition at line 16 of file envcan_animaps.pl.

use Cwd abs_path

Definition at line 19 of file envcan_animaps.pl.

use lib usr share mythtv mythweather scripts usr local share mythtv mythweather scripts ca_envcan

Definition at line 21 of file envcan_animaps.pl.

use ENVCANMapSearch

Definition at line 27 of file envcan_animaps.pl.

my $name = 'ENVCAN-Animated-Map'

Definition at line 32 of file envcan_animaps.pl.

my $version = 0.5

Definition at line 33 of file envcan_animaps.pl.

my $author = 'Joe Ripley / Gavin Hurlbut'

Definition at line 34 of file envcan_animaps.pl.

my $email = 'vitaminjoe@gmail.com / gjhurlbu@gmail.com'

Definition at line 35 of file envcan_animaps.pl.

my $updateTimeout = 10*60

Definition at line 36 of file envcan_animaps.pl.

my $retrieveTimeout = 30

Definition at line 37 of file envcan_animaps.pl.

my types
Initial value:
= ('amdesc', 'updatetime', 'animatedimage', 'copyright',
'copyrightlogo')

Definition at line 38 of file envcan_animaps.pl.

my $dir = "/tmp/envcan"

Definition at line 40 of file envcan_animaps.pl.

Referenced by $line().

my $loc = shift

Definition at line 77 of file envcan_animaps.pl.

Definition at line 85 of file envcan_animaps.pl.

my $desc = $results->[0]->{satellite}

Definition at line 86 of file envcan_animaps.pl.

Referenced by $line().

die unless defined $response = get $results->[0]->{animated_url}

Definition at line 89 of file envcan_animaps.pl.

Referenced by if().

my image_list

Definition at line 92 of file envcan_animaps.pl.

my $size

Definition at line 93 of file envcan_animaps.pl.

my $base_url = "http://www.weatheroffice.gc.ca"

Definition at line 94 of file envcan_animaps.pl.

Referenced by if().

my $file = $loc

Definition at line 95 of file envcan_animaps.pl.

my $path = "$dir/$file-"

Definition at line 96 of file envcan_animaps.pl.