ndfd18.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)
	my ($latitude, $longitude)
	if (!(defined $opt_u &&defined $latitude &&defined $longitude &&$latitude ne""&&$longitude ne""))
	if (open(CACHE,"$dir/ndfd18_cache_${latitude}_${longitude}"))
	if ($getData)
printf updatetime::Last Updated on s	UnixDate ($creationdate,"%b %d, %I:%M %p %Z")
foreach my	$time (sort keys%$result)
Variables
use	strict
use	warnings
use	English
use Cwd	abs_path
use lib usr share mythtv mythweather scripts	us_nws
use	NDFDParser
use	NWSLocation
my	$name = 'NDFD-18_Hour'
my	$version = 0.5
my	$author = 'Gavin Hurlbut / Lucien Dunning'
my	$email = 'gjhurlbu@gmail.com / ldunning@gmail.com'
my	$updateTimeout = 15*60
my	$retrieveTimeout = 30
my	types
my	$dir = './'
my	$icon_file = dirname(abs_path($0 or $PROGRAM_NAME)) . "/icons"
my	$locstr = shift
my	$units = $opt_u
my	$param
my	$d1 = UnixDate("now", "%O")
my	$d2 = UnixDate(DateCalc($d1, "+ 18 hours"), "%O")
my	$result
my	$creationdate
my	$nextupdate
my	$getData = 1
my	$index = 0
my	$icon
printf updatetime::Last Updated on s	n
my	$pop12

---

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 67 of file ndfd18.pl.

my	(	$	latitude,
		$	longitude
	)

if

(

!

defined $opt_u &&defined $latitude &&defined $longitude &&$latitude ne""&&$longitude ne""

)

Definition at line 74 of file ndfd18.pl.

if

(

open(CACHE,"$dir/ndfd18_cache_${latitude}_${longitude}")

)

Definition at line 102 of file ndfd18.pl.

if

(

$

getData

)

Definition at line 119 of file ndfd18.pl.

printf updatetime::Last Updated on s UnixDate	(	$	creationdate,
		"%b %	d,
		%I:%M%p%Z"
	)

Type Constraints

foreach my $time

(

sort keys%$

result

)

Definition at line 148 of file ndfd18.pl.

---

Variable Documentation

use strict

Definition at line 2 of file ndfd18.pl.

use warnings

Definition at line 3 of file ndfd18.pl.

use English

Definition at line 5 of file ndfd18.pl.

use Cwd abs_path

Definition at line 7 of file ndfd18.pl.

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

Definition at line 9 of file ndfd18.pl.

use NDFDParser

Definition at line 12 of file ndfd18.pl.

use NWSLocation

Definition at line 13 of file ndfd18.pl.

my $name = 'NDFD-18_Hour'

Definition at line 20 of file ndfd18.pl.

my $version = 0.5

Definition at line 21 of file ndfd18.pl.

my $author = 'Gavin Hurlbut / Lucien Dunning'

Definition at line 22 of file ndfd18.pl.

my $email = 'gjhurlbu@gmail.com / ldunning@gmail.com'

Definition at line 23 of file ndfd18.pl.

my $updateTimeout = 15*60

Definition at line 24 of file ndfd18.pl.

my $retrieveTimeout = 30

Definition at line 25 of file ndfd18.pl.

my types

Initial value:

 ('18hrlocation',  'updatetime', 
        'temp-0', 'temp-1', 'temp-2', 'temp-3', 'temp-4', 'temp-5',
        '18icon-0', '18icon-1', '18icon-2', '18icon-3', '18icon-4', '18icon-5',
        'pop-0', 'pop-1', 'pop-2', 'pop-3', 'pop-4', 'pop-5',
        'time-0', 'time-1', 'time-2', 'time-3', 'time-4', 'time-5',
        'copyright', 'copyrightlogo')

Definition at line 26 of file ndfd18.pl.

my $dir = './'

Definition at line 32 of file ndfd18.pl.

my $icon_file = dirname(abs_path($0 or $PROGRAM_NAME)) . "/icons"

Definition at line 33 of file ndfd18.pl.

my $locstr = shift

Definition at line 71 of file ndfd18.pl.

my $units = $opt_u

Definition at line 72 of file ndfd18.pl.

my $param

Initial value:

 { maxt => 0,
    mint =>0,
    temp =>1,
    dew=>0,
    pop12=>1,
    qpf=>0,
    sky=>0,
    snow=>0,
    wspd=>0,
    wdir=>0,
    wx=>0, 
    waveh=>0,
    icons=>1,
    rh=>0,
    appt=>0 }

Definition at line 79 of file ndfd18.pl.

my $d1 = UnixDate("now", "%O")

Definition at line 95 of file ndfd18.pl.

my $d2 = UnixDate(DateCalc($d1, "+ 18 hours"), "%O")

Definition at line 96 of file ndfd18.pl.

my $result

Definition at line 97 of file ndfd18.pl.

my $creationdate

Definition at line 98 of file ndfd18.pl.

my $nextupdate

Definition at line 99 of file ndfd18.pl.

my $getData = 1

Definition at line 100 of file ndfd18.pl.

my $index = 0

Definition at line 141 of file ndfd18.pl.

my $icon

Definition at line 142 of file ndfd18.pl.

print copyrightlogo::none n

Definition at line 143 of file ndfd18.pl.

my $pop12

Definition at line 147 of file ndfd18.pl.