envcan_animaps.pl File Reference

Go to the source code of this file.

Functions
	our ($opt_v, $opt_t, $opt_T, $opt_l, $opt_u, $opt_d)
	getopts ('Tvtlu:d:')
	if (defined $opt_v)
	if (!defined $loc||$loc eq"")
foreach my	$line (split(/\n/, $response))
Variables
use	strict
use	ENVCANMapSearch
my	$name = 'ENVCAN-Animated-Map'
my	$version = 0.3
my	$author = 'Joe Ripley'
my	$email = 'vitaminjoe@gmail.com'
my	$updateTimeout = 10*60
my	$retrieveTimeout = 30
my	types = ('amdesc', 'updatetime', 'animatedimage')
my	$dir = "./"
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

our	(	$	opt_v,
		$	opt_t,
		$	opt_T,
		$	opt_l,
		$	opt_u,
		$	opt_d
	)

getopts

(

'Tvtlu:d:'

)

if

(

defined $

opt_v

)

Definition at line 30 of file envcan_animaps.pl.

if

(

!defined $loc||$loc eq""

)

Definition at line 61 of file envcan_animaps.pl.

foreach my $line

(

split(/\n/, $response)

)

Definition at line 81 of file envcan_animaps.pl.

---

Variable Documentation

use strict

Definition at line 12 of file envcan_animaps.pl.

use ENVCANMapSearch

Definition at line 16 of file envcan_animaps.pl.

my $name = 'ENVCAN-Animated-Map'

Definition at line 19 of file envcan_animaps.pl.

my $version = 0.3

Definition at line 20 of file envcan_animaps.pl.

my $author = 'Joe Ripley'

Definition at line 21 of file envcan_animaps.pl.

my $email = 'vitaminjoe@gmail.com'

Definition at line 22 of file envcan_animaps.pl.

my $updateTimeout = 10*60

Definition at line 23 of file envcan_animaps.pl.

my $retrieveTimeout = 30

Definition at line 24 of file envcan_animaps.pl.

my types = ('amdesc', 'updatetime', 'animatedimage')

Definition at line 25 of file envcan_animaps.pl.

my $dir = "./"

Definition at line 26 of file envcan_animaps.pl.

my $loc = shift

Definition at line 59 of file envcan_animaps.pl.

my $results = ENVCANMapSearch::doSearch()

Definition at line 67 of file envcan_animaps.pl.

Referenced by $image().

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

Definition at line 68 of file envcan_animaps.pl.

Referenced by $line().

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

Definition at line 71 of file envcan_animaps.pl.

my image_list

Definition at line 74 of file envcan_animaps.pl.

my $size

Definition at line 75 of file envcan_animaps.pl.

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

Definition at line 76 of file envcan_animaps.pl.

Referenced by if().

my $file = $loc

Definition at line 77 of file envcan_animaps.pl.

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

Definition at line 78 of file envcan_animaps.pl.