ndfd18.pl File Reference

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)
	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	NDFDParser
use	NWSLocation
my	$name = 'NDFD-18_Hour'
my	$version = 0.1
my	$author = 'Lucien Dunning'
my	$email = 'ldunning@gmail.com'
my	$updateTimeout = 15*60
my	$retrieveTimeout = 30
my	types
my	$dir = './'
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

our	(	$	opt_v,
		$	opt_t,
		$	opt_T,
		$	opt_l,
		$	opt_u,
		$	opt_d
	)

getopts

(

'Tvtlu:d:'

)

if

(

defined $

opt_v

)

Definition at line 26 of file ndfd18.pl.

my	(	$	latitude,
		$	longitude
	)

if

(

!

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

)

Definition at line 63 of file ndfd18.pl.

if

(

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

)

Definition at line 91 of file ndfd18.pl.

if

(

$

getData

)

Definition at line 108 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 134 of file ndfd18.pl.

---

Variable Documentation

use strict

Definition at line 2 of file ndfd18.pl.

use NDFDParser

Definition at line 3 of file ndfd18.pl.

use NWSLocation

Definition at line 4 of file ndfd18.pl.

my $name = 'NDFD-18_Hour'

Definition at line 11 of file ndfd18.pl.

my $version = 0.1

Definition at line 12 of file ndfd18.pl.

my $author = 'Lucien Dunning'

Definition at line 13 of file ndfd18.pl.

my $email = 'ldunning@gmail.com'

Definition at line 14 of file ndfd18.pl.

my $updateTimeout = 15*60

Definition at line 15 of file ndfd18.pl.

my $retrieveTimeout = 30

Definition at line 16 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')

Definition at line 17 of file ndfd18.pl.

my $dir = './'

Definition at line 22 of file ndfd18.pl.

my $locstr = shift

Definition at line 60 of file ndfd18.pl.

my $units = $opt_u

Definition at line 61 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 68 of file ndfd18.pl.

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

Definition at line 84 of file ndfd18.pl.

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

Definition at line 85 of file ndfd18.pl.

my $result

Definition at line 86 of file ndfd18.pl.

my $creationdate

Definition at line 87 of file ndfd18.pl.

my $nextupdate

Definition at line 88 of file ndfd18.pl.

my $getData = 1

Definition at line 89 of file ndfd18.pl.

my $index = 0

Definition at line 129 of file ndfd18.pl.

my $icon

Definition at line 130 of file ndfd18.pl.

printf updatetime::Last Updated on s n

Definition at line 131 of file ndfd18.pl.

my $pop12

Definition at line 133 of file ndfd18.pl.