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 | $image (sort @{$results->[0]->{images}}) |
| if (!$size) | |
Variables | |
| use | strict |
| use | MapSearch |
| my | $name = 'Animated-Map-Download' |
| my | $version = 0.1 |
| my | $author = 'Lucien Dunning' |
| my | $email = 'ldunning@gmail.com' |
| my | $updateTimeout = 10*60 |
| my | $retrieveTimeout = 30 |
| my | types = ('amdesc', 'updatetime', 'animatedimage') |
| my | $dir = "./" |
| my | $loc = shift |
| my | $results = MapSearch::doSearch() |
| my | $base = $results->[0]->{animation} |
| my | $desc = $results->[0]->{description} |
| my | $size = $results->[0]->{imgsize} |
| my | $file = $desc |
| my | $i = 0 |
| print amdesc::$desc | n |
| I | __pad0__ |
| our | ( | $ | opt_v, | |
| $ | opt_t, | |||
| $ | opt_T, | |||
| $ | opt_l, | |||
| $ | opt_u, | |||
| $ | opt_d | |||
| ) |
| getopts | ( | 'Tvtlu:d:' | ) |
| if | ( | defined $ | opt_v | ) |
Definition at line 21 of file animaps.pl.
| if | ( | !defined $loc||$loc eq"" | ) |
Definition at line 49 of file animaps.pl.
| foreach my $image | ( | ) |
Definition at line 63 of file animaps.pl.
| if | ( | !$ | size | ) |
Definition at line 68 of file animaps.pl.
| use strict |
Definition at line 2 of file animaps.pl.
| use MapSearch |
Definition at line 6 of file animaps.pl.
| my $name = 'Animated-Map-Download' |
Definition at line 10 of file animaps.pl.
| my $version = 0.1 |
Definition at line 11 of file animaps.pl.
| my $author = 'Lucien Dunning' |
Definition at line 12 of file animaps.pl.
| my $email = 'ldunning@gmail.com' |
Definition at line 13 of file animaps.pl.
| my $updateTimeout = 10*60 |
Definition at line 14 of file animaps.pl.
| my $retrieveTimeout = 30 |
Definition at line 15 of file animaps.pl.
| my types = ('amdesc', 'updatetime', 'animatedimage') |
Definition at line 16 of file animaps.pl.
| my $dir = "./" |
Definition at line 17 of file animaps.pl.
| my $loc = shift |
Definition at line 47 of file animaps.pl.
| my $results = MapSearch::doSearch() |
Definition at line 55 of file animaps.pl.
| my $base = $results->[0]->{animation} |
| my $desc = $results->[0]->{description} |
Definition at line 57 of file animaps.pl.
Definition at line 58 of file animaps.pl.
| $file = $desc |
Definition at line 59 of file animaps.pl.
| my $i = 0 |
Definition at line 62 of file animaps.pl.
| print amdesc::$desc n |
Definition at line 75 of file animaps.pl.
| I __pad0__ |
Definition at line 77 of file animaps.pl.
1.5.5