Go to the source code of this file.
Functions | |
| use base | qw (XML::SAX::Base) |
| getopts ('Tvtlu:d:') | |
| if (defined $opt_v) | |
| if (!(defined $loc &&!$loc eq"")) | |
| if (open(CACHE,"$dir/NWSAlert_$loc")) | |
| if (!$state||!$locstr) | |
| my ($updatetime,@warnings) | |
| foreach my | $warning (@warnings) |
| if (!@warnings) | |
| print updatetime::Last Updated on | UnixDate (Date_ConvTZ(ParseDate($updatetime)),"%b %d, %I:%M %p %Z")."\n" |
Variables | |
| package | NWSAlert |
| use | strict |
| my | $alerts |
| my | $currAlert |
| my | $currInfo |
| my | $name = 'NWS-Alerts' |
| my | $version = 0.1 |
| my | $author = 'Lucien Dunning' |
| my | $email = 'ldunning@gmail.com' |
| my | $updateTimeout = 10*60 |
| my | $retrieveTimeout = 30 |
| my | types = ('swlocation', 'updatetime', 'alerts') |
| my | $dir = "./" |
| my | $loc = shift |
| my | $state |
| my | $locstr |
| print $state | n |
| use base qw | ( | XML::SAX::Base | ) |
| getopts | ( | 'Tvtlu:d:' | ) |
| if | ( | defined $ | opt_v | ) |
Definition at line 115 of file nws-alert.pl.
| if | ( | ! | defined $loc &&!$loc eq"" | ) |
Definition at line 147 of file nws-alert.pl.
| if | ( | open(CACHE,"$dir/NWSAlert_$loc") | ) |
Definition at line 154 of file nws-alert.pl.
| if | ( | !$state||!$ | locstr | ) |
Definition at line 160 of file nws-alert.pl.
| my | ( | $ | updatetime, | |
| @ | warnings | |||
| ) |
| foreach my $warning | ( | @ | warnings | ) |
Definition at line 171 of file nws-alert.pl.
| if | ( | !@ | warnings | ) |
Definition at line 177 of file nws-alert.pl.
| print updatetime::Last Updated on UnixDate | ( | Date_ConvTZ(ParseDate($updatetime)) | , | |
| "%b % | d, | |||
| %I:%M%p%Z" | ||||
| ) |
| package NWSAlert |
Definition at line 2 of file nws-alert.pl.
| use strict |
Definition at line 3 of file nws-alert.pl.
| my $alerts |
Definition at line 11 of file nws-alert.pl.
| my $currAlert |
Definition at line 12 of file nws-alert.pl.
| my $currInfo |
Definition at line 13 of file nws-alert.pl.
| my $name = 'NWS-Alerts' |
Definition at line 104 of file nws-alert.pl.
| my $version = 0.1 |
Definition at line 105 of file nws-alert.pl.
| my $author = 'Lucien Dunning' |
Definition at line 106 of file nws-alert.pl.
| my $email = 'ldunning@gmail.com' |
Definition at line 107 of file nws-alert.pl.
| my $updateTimeout = 10*60 |
Definition at line 108 of file nws-alert.pl.
| my $retrieveTimeout = 30 |
Definition at line 109 of file nws-alert.pl.
| my types = ('swlocation', 'updatetime', 'alerts') |
Definition at line 110 of file nws-alert.pl.
| my $dir = "./" |
Definition at line 111 of file nws-alert.pl.
| my $loc = shift |
Definition at line 145 of file nws-alert.pl.
| my $state |
Definition at line 151 of file nws-alert.pl.
| my $locstr |
Definition at line 152 of file nws-alert.pl.
Definition at line 181 of file nws-alert.pl.
1.5.5