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.4 |
| my | $author = 'Joe Ripley' |
| my | $email = 'vitaminjoe@gmail.com' |
| my | $updateTimeout = 10*60 |
| my | $retrieveTimeout = 30 |
| my | types = ('amdesc', 'updatetime', 'animatedimage', 'copyright') |
| 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-" |
| our | ( | $ | opt_v, | |
| $ | opt_t, | |||
| $ | opt_T, | |||
| $ | opt_l, | |||
| $ | opt_u, | |||
| $ | opt_d | |||
| ) |
| getopts | ( | 'Tvtlu:d:' | ) |
| if | ( | defined $ | opt_v | ) |
Definition at line 68 of file envcan_animaps.pl.
| if | ( | !-d $ | dir | ) |
Definition at line 72 of file envcan_animaps.pl.
| if | ( | !defined $loc||$loc eq"" | ) |
Definition at line 78 of file envcan_animaps.pl.
| foreach my $line | ( | split(/\n/, $response) | ) |
Definition at line 98 of file envcan_animaps.pl.
| 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.
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.4 |
Definition at line 33 of file envcan_animaps.pl.
| my $author = 'Joe Ripley' |
Definition at line 34 of file envcan_animaps.pl.
| my $email = 'vitaminjoe@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 = ('amdesc', 'updatetime', 'animatedimage', 'copyright') |
Definition at line 38 of file envcan_animaps.pl.
| my $dir = "/tmp/envcan" |
Definition at line 39 of file envcan_animaps.pl.
| my $loc = shift |
Definition at line 76 of file envcan_animaps.pl.
| my $results = ENVCANMapSearch::doSearch() |
Definition at line 84 of file envcan_animaps.pl.
| my $desc = $results->[0]->{satellite} |
Definition at line 85 of file envcan_animaps.pl.
Referenced by $line().
| die unless defined $response = get $results->[0]->{animated_url} |
Definition at line 88 of file envcan_animaps.pl.
Referenced by if().
| my image_list |
Definition at line 91 of file envcan_animaps.pl.
| my $size |
Definition at line 92 of file envcan_animaps.pl.
| my $base_url = "http://www.weatheroffice.gc.ca" |
Definition at line 93 of file envcan_animaps.pl.
Referenced by if().
| my $file = $loc |
Definition at line 94 of file envcan_animaps.pl.
Referenced by if().
| my $path = "$dir/$file-" |
Definition at line 95 of file envcan_animaps.pl.
Referenced by $line().
1.6.3
