wunderground-animaps.pl File Reference

Go to the source code of this file.

Functions
use lib	dirname (abs_path($0 or $PROGRAM_NAME))
use POSIX	qw (strftime)
	our ($opt_v, $opt_t, $opt_T, $opt_l, $opt_u, $opt_d, $opt_D)
	binmode (STDOUT,":utf8")
	if (!-d $logdir)
	getopts ('Tvtlu:d:D')
	if (defined $opt_v)
	if (not defined $loc or $loc eq"")
	log_print ($logdir,"-d $dir $loc\n")
for my	$attr (sort keys%attrib)
Variables
use	English
use	strict
use	warnings
use Cwd	abs_path
use lib usr share mythtv mythweather scripts	wunderground
use	utf8
my	$name = 'wunderground-animaps'
my	$version = 0.1
my	$author = 'Gavin Hurlbut'
my	$email = 'gjhurlbu@gmail.com'
my	$updateTimeout = 15*60
my	$retrieveTimeout = 30
my	types = ( 'amdesc', 'updatetime', 'animatedimage', 'copyright' )
my	$dir = "/tmp/wunderground"
my	$logdir = "/tmp/wunderground"
my	$config_file = "/maps.csv"
my	$loc = uc shift
my	attrib
my	$search = qr{(?i)^$loc,(.*?)$}
my	names
open my	$fh
my	$now = time
	exit

---

Function Documentation

use lib dirname

(

abs_path($0 or $PROGRAM_NAME)

)

use POSIX qw

(

strftime

)

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

binmode	(	STDOUT	,
		":utf8"
	)

if

(

!-d $

logdir

)

Definition at line 35 of file wunderground-animaps.pl.

getopts

(

'Tvtlu:d:D'

)

if

(

defined $

opt_v

)

Definition at line 41 of file wunderground-animaps.pl.

if

(

not defined $loc or $loc eq""

)

Definition at line 85 of file wunderground-animaps.pl.

log_print	(	$	logdir,
		"-d $dir $loc\n"
	)

for my $attr

(

sort keys%

attrib

)

Definition at line 114 of file wunderground-animaps.pl.

---

Variable Documentation

use English

Definition at line 4 of file wunderground-animaps.pl.

use strict

Definition at line 5 of file wunderground-animaps.pl.

use warnings

Definition at line 6 of file wunderground-animaps.pl.

use Cwd abs_path

Definition at line 10 of file wunderground-animaps.pl.

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

Definition at line 12 of file wunderground-animaps.pl.

use encoding utf8

Definition at line 15 of file wunderground-animaps.pl.

my $name = 'wunderground-animaps'

Definition at line 22 of file wunderground-animaps.pl.

my $version = 0.1

Definition at line 23 of file wunderground-animaps.pl.

my $author = 'Gavin Hurlbut'

Definition at line 24 of file wunderground-animaps.pl.

my $email = 'gjhurlbu@gmail.com'

Definition at line 25 of file wunderground-animaps.pl.

my $updateTimeout = 15*60

Definition at line 26 of file wunderground-animaps.pl.

my $retrieveTimeout = 30

Definition at line 27 of file wunderground-animaps.pl.

my types = ( 'amdesc', 'updatetime', 'animatedimage', 'copyright' )

Definition at line 28 of file wunderground-animaps.pl.

my $dir = "/tmp/wunderground"

Definition at line 29 of file wunderground-animaps.pl.

my $logdir = "/tmp/wunderground"

Definition at line 30 of file wunderground-animaps.pl.

my $config_file = "/maps.csv"

Definition at line 31 of file wunderground-animaps.pl.

my $loc = uc shift

Definition at line 84 of file wunderground-animaps.pl.

my attrib

Definition at line 89 of file wunderground-animaps.pl.

my $search = qr{(?i)^$loc,(.*?)$}

Definition at line 93 of file wunderground-animaps.pl.

my names

Definition at line 94 of file wunderground-animaps.pl.

Referenced by PlayGroup::GetCount(), PlayGroup::GetNames(), PlayGroupEditor::Load(), StorageGroupListEditor::Load(), InputGroup::Load(), and MythUIHelper::SetPalette().

open my $fh

Definition at line 96 of file wunderground-animaps.pl.

my $now = time

Definition at line 111 of file wunderground-animaps.pl.

exit

Definition at line 117 of file wunderground-animaps.pl.