envcan_maps.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-Static-Map'
my	$version = 0.3
my	$author = 'Gavin Hurlbut'
my	$email = 'gjhurlbu@gmail.com'
my	$updateTimeout = 10*60
my	$retrieveTimeout = 30
my	types = ('smdesc', 'updatetime', 'map', 'copyright', 'copyrightlogo')
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_maps.pl.

if

(

!-d

$dir

)

Definition at line 73 of file envcan_maps.pl.

if

(

!defined $loc||$loc eq""

)

Definition at line 79 of file envcan_maps.pl.

foreach my $line

(

split(/\n/, $response)

)

Definition at line 99 of file envcan_maps.pl.

Variable Documentation

use strict

Definition at line 14 of file envcan_maps.pl.

use warnings

Definition at line 15 of file envcan_maps.pl.

use English

Definition at line 17 of file envcan_maps.pl.

use Cwd abs_path

Definition at line 20 of file envcan_maps.pl.

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

Definition at line 22 of file envcan_maps.pl.

use ENVCANMapSearch

Definition at line 28 of file envcan_maps.pl.

my $name = 'ENVCAN-Static-Map'

Definition at line 33 of file envcan_maps.pl.

my $version = 0.3

Definition at line 34 of file envcan_maps.pl.

my $author = 'Gavin Hurlbut'

Definition at line 35 of file envcan_maps.pl.

my $email = 'gjhurlbu@gmail.com'

Definition at line 36 of file envcan_maps.pl.

my $updateTimeout = 10*60

Definition at line 37 of file envcan_maps.pl.

my $retrieveTimeout = 30

Definition at line 38 of file envcan_maps.pl.

my types = ('smdesc', 'updatetime', 'map', 'copyright', 'copyrightlogo')

Definition at line 39 of file envcan_maps.pl.

my $dir = "/tmp/envcan"

Definition at line 40 of file envcan_maps.pl.

my $loc = shift

Definition at line 77 of file envcan_maps.pl.

my $results = ENVCANMapSearch::doSearch()

Definition at line 85 of file envcan_maps.pl.

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

Definition at line 86 of file envcan_maps.pl.

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

Definition at line 89 of file envcan_maps.pl.

my image_list

Definition at line 92 of file envcan_maps.pl.

my $size

Definition at line 93 of file envcan_maps.pl.

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

Definition at line 94 of file envcan_maps.pl.

my $file = $loc

Definition at line 95 of file envcan_maps.pl.

my $path = "$dir/$file"

Definition at line 96 of file envcan_maps.pl.