nwsxml.pl File Reference

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 (!(defined $opt_u &&defined $loc &&!$loc eq""))
	foreach (@types)
Variables
use	strict
use	warnings
use	English
use Cwd	abs_path
use lib usr share mythtv mythweather scripts	us_nws
use	NWSLocation
my	$name = 'NWS-XML'
my	$version = 0.3
my	$author = 'Lucien Dunning'
my	$email = 'ldunning@gmail.com'
my	$updateTimeout = 15*60
my	$retrieveTimeout = 30
my	types
my	$dir = "./"
my	$icon_file = "/icons"
my	$loc = shift
my	$units = $opt_u
my	$base_url
die unless defined	$response
my	$xml = XMLin($response)

---

Function Documentation

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

)

Definition at line 38 of file nwsxml.pl.

if

(

!

defined $opt_u &&defined $loc &&!$loc eq""

)

Definition at line 77 of file nwsxml.pl.

foreach

(

@

types

)

Definition at line 89 of file nwsxml.pl.

---

Variable Documentation

use strict

Definition at line 2 of file nwsxml.pl.

use warnings

Definition at line 3 of file nwsxml.pl.

use English

Definition at line 5 of file nwsxml.pl.

use Cwd abs_path

Definition at line 7 of file nwsxml.pl.

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

Definition at line 9 of file nwsxml.pl.

use NWSLocation

Definition at line 16 of file nwsxml.pl.

my $name = 'NWS-XML'

Definition at line 20 of file nwsxml.pl.

my $version = 0.3

Definition at line 21 of file nwsxml.pl.

my $author = 'Lucien Dunning'

Definition at line 22 of file nwsxml.pl.

my $email = 'ldunning@gmail.com'

Definition at line 23 of file nwsxml.pl.

my $updateTimeout = 15*60

Definition at line 24 of file nwsxml.pl.

my $retrieveTimeout = 30

Definition at line 25 of file nwsxml.pl.

my types

Initial value:

 ('cclocation', 'station_id', 'latitude', 'longitude',
        'observation_time', 'observation_time_rfc822', 'weather',
        'temperature_string', 'temp', 'relative_humidity', 'wind_string',
        'wind_dir', 'wind_degrees', 'wind_speed', 'wind_gust',
        'pressure_string', 'pressure', 'dewpoint_string', 'dewpoint',
        'heat_index_string', 'heat_index', 'windchill_string', 'windchill',
        'visibility', 'weather_icon', 'appt', 'wind_spdgst', 'copyright')

Definition at line 26 of file nwsxml.pl.

my $dir = "./"

Definition at line 33 of file nwsxml.pl.

my $icon_file = "/icons"

Definition at line 34 of file nwsxml.pl.

my $loc = shift

Definition at line 76 of file nwsxml.pl.

my $units = $opt_u

Definition at line 81 of file nwsxml.pl.

my $base_url

Initial value:

 'http:

my $response = get $base_url . $loc . '.xml'

Definition at line 83 of file nwsxml.pl.

die unless defined $response

Definition at line 86 of file nwsxml.pl.

my $xml = XMLin($response)

Definition at line 88 of file nwsxml.pl.