nws-alert.pl File Reference

Go to the source code of this file.

Functions
use lib	dirname (abs_path($0 or $PROGRAM_NAME))
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)
Variables
use	strict
use	warnings
use	English
use Cwd	abs_path
use lib usr share mythtv mythweather scripts	us_nws
my	$alerts
my	$currAlert
my	$currInfo
my	$loc_file = dirname(abs_path($0 or $PROGRAM_NAME)) . "/bp16mr06.dbx"
my	$name = 'NWS-Alerts'
my	$version = 0.3
my	$author = 'Lucien Dunning'
my	$email = 'ldunning@gmail.com'
my	$updateTimeout = 10*60
my	$retrieveTimeout = 30
my	types = ('swlocation', 'updatetime', 'alerts', 'copyright')
my	$dir = "./"
my	$loc = shift
my	$state
my	$locstr
print $state	n
	$updatetime = ParseDate($updatetime)

---

Function Documentation

use lib dirname

(

abs_path($0 or $PROGRAM_NAME)

)

use base qw

(

XML::SAX::Base

)

getopts

(

'Tvtlu:d:'

)

if

(

defined $

opt_v

)

Definition at line 180 of file nws-alert.pl.

if

(

!

defined $loc &&!$loc eq""

)

Definition at line 186 of file nws-alert.pl.

if

(

open(CACHE,"$dir/NWSAlert_$loc")

)

Definition at line 193 of file nws-alert.pl.

if

(

!$state||!$

locstr

)

Definition at line 199 of file nws-alert.pl.

my	(	$	updatetime,
		@	warnings
	)

foreach my $warning

(

@

warnings

)

Definition at line 210 of file nws-alert.pl.

if

(

!@

warnings

)

Definition at line 216 of file nws-alert.pl.

---

Variable Documentation

use strict

Definition at line 2 of file nws-alert.pl.

use warnings

Definition at line 3 of file nws-alert.pl.

use English

Definition at line 5 of file nws-alert.pl.

use Cwd abs_path

Definition at line 7 of file nws-alert.pl.

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

Definition at line 9 of file nws-alert.pl.

my $alerts

Definition at line 20 of file nws-alert.pl.

my $currAlert

Definition at line 21 of file nws-alert.pl.

my $currInfo

Definition at line 22 of file nws-alert.pl.

my $loc_file = dirname(abs_path($0 or $PROGRAM_NAME)) . "/bp16mr06.dbx"

Definition at line 23 of file nws-alert.pl.

my $name = 'NWS-Alerts'

Definition at line 143 of file nws-alert.pl.

my $version = 0.3

Definition at line 144 of file nws-alert.pl.

my $author = 'Lucien Dunning'

Definition at line 145 of file nws-alert.pl.

my $email = 'ldunning@gmail.com'

Definition at line 146 of file nws-alert.pl.

my $updateTimeout = 10*60

Definition at line 147 of file nws-alert.pl.

my $retrieveTimeout = 30

Definition at line 148 of file nws-alert.pl.

my types = ('swlocation', 'updatetime', 'alerts', 'copyright')

Definition at line 149 of file nws-alert.pl.

my $dir = "./"

Definition at line 150 of file nws-alert.pl.

my $loc = shift

Definition at line 184 of file nws-alert.pl.

my $state

Definition at line 190 of file nws-alert.pl.

my $locstr

Definition at line 191 of file nws-alert.pl.

print National Weather Service n

Definition at line 220 of file nws-alert.pl.

$updatetime = ParseDate($updatetime)

Definition at line 222 of file nws-alert.pl.