yrnoxml.pl File Reference

Go to the source code of this file.

Functions
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 (!(defined $opt_u &&defined $loc &&!$loc eq""))
	log_print ($logdir,"-u $units -d $dir $loc\n")
foreach	$node ($nodeset->get_nodelist)
foreach my	$hashref (@forecast)
for my	$attr (sort keys%attrib)
Variables
use	strict
use	warnings
use	utf8
use	JSON
my	$name = 'yrno-XML'
my	$version = 0.4
my	$author = 'Gavin Hurlbut'
my	$email = 'gjhurlbu@gmail.com'
my	$updateTimeout = 15*60
my	$retrieveTimeout = 30
my	types
my	$dir = "/tmp/yrnoxml"
my	$logdir = "/tmp/yrnoxml"
my	images
my	$loc = shift
my	attrib
my	$units = $opt_u
my	$base_url
	$file
my	$nodeset = $xp->find('/weatherdata/location/location')
my	$node
my	$tzoffset
$tzoffset *my	$now = 60 time
my	$lastperiod = undef
my	forecast
my	$day = 0
my	$time = 0
	exit

Function Documentation

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 76 of file yrnoxml.pl.

getopts ( 'Tvtlu:d:D' )

if ( defined $ opt_v )

Definition at line 104 of file yrnoxml.pl.

if ( ! defined $opt_u &&defined $loc &&!$loc eq"" )

Definition at line 111 of file yrnoxml.pl.

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

foreach $node ( $nodeset-> get_nodelist )

Definition at line 169 of file yrnoxml.pl.

foreach my $hashref ( @ forecast )

Definition at line 179 of file yrnoxml.pl.

Referenced by $node().

for my $attr ( sort keys% attrib )

Definition at line 214 of file yrnoxml.pl.

Referenced by $attr().

Variable Documentation

use strict

Definition at line 4 of file yrnoxml.pl.

use warnings

Definition at line 5 of file yrnoxml.pl.

use encoding utf8

Definition at line 7 of file yrnoxml.pl.

Referenced by decode_teletext(), MythSocket::ReadStringListReal(), Myth::SendMessage(), SendMessage(), and MythSocket::WriteStringListReal().

use JSON

Definition at line 14 of file yrnoxml.pl.

$name = 'yrno-XML'

Definition at line 21 of file yrnoxml.pl.

my $version = 0.4

Definition at line 22 of file yrnoxml.pl.

my $author = 'Gavin Hurlbut'

Definition at line 23 of file yrnoxml.pl.

my $email = 'gjhurlbu@gmail.com'

Definition at line 24 of file yrnoxml.pl.

my $updateTimeout = 15*60

Definition at line 25 of file yrnoxml.pl.

my $retrieveTimeout = 30

Definition at line 26 of file yrnoxml.pl.

my types

Initial value:

 ( '3dlocation',
              '6dlocation', 'altitude', 'cclocation', 'copyright', 'date-0',
              'date-1', 'date-2', 'date-3', 'date-4', 'date-5', 'geobaseid',
              'high-0', 'high-1', 'high-2', 'high-3', 'high-4', 'high-5',
              'low-0', 'low-1', 'low-2', 'low-3', 'low-4', 'low-5',
              'icon-0', 'icon-1', 'icon-2', 'icon-3', 'icon-4', 'icon-5',
              'latitude', 'longitude', 'observation_time', 
              '18hrlocation', 
              '18icon-0', '18icon-1', '18icon-2', 
              '18icon-3', '18icon-4', '18icon-5', 
              'temp-0', 'temp-1', 'temp-2', 'temp-3', 'temp-4', 'temp-5', 
              'time-0', 'time-1', 'time-2', 'time-3', 'time-4', 'time-5', 
              'pop-0', 'pop-1', 'pop-2', 'pop-3', 'pop-4', 'pop-5',
              'updatetime', 'station_id', 'copyrightlogo' )

Definition at line 27 of file yrnoxml.pl.

my $dir = "/tmp/yrnoxml"

Definition at line 41 of file yrnoxml.pl.

my $logdir = "/tmp/yrnoxml"

Definition at line 42 of file yrnoxml.pl.

my images

Initial value:

 ( "partly cloudy" => "pcloudy.png", "cloudy" => "cloudy.png",
               "sleet" => "rainsnow.png", "fair" => "fair.png", 
               "snow" => "flurries.png", "rain" => "showers.png",
               "sunny" => "sunny.png", "fog" => "fog.png",
               "mostly cloudy" => "mcloudy.png", 
               "rain showers" => "lshowers.png", "heavy rain" => "showers.png",
               "thunder showers" => "thunshowers.png",
               "unknown" => "unknown.png" )

Definition at line 43 of file yrnoxml.pl.

Referenced by ImageLoader::LoadAnimatedImage(), SubtitleScreen::RenderAssTrack(), and MythUIImage::SetAnimationFrames().

my $loc = shift

Definition at line 110 of file yrnoxml.pl.

my attrib

Definition at line 115 of file yrnoxml.pl.

Referenced by VAAPIContext::InitContext(), and VAAPIContext::SetPictureAttribute().

my $units = $opt_u

Definition at line 116 of file yrnoxml.pl.

my $base_url

Initial value:

 'http:
my $file = $loc

Definition at line 120 of file yrnoxml.pl.

$file

Initial value:

~ s/\

my $xp = getCachedXML($base_url . $loc . "/forecast.xml", $dir, $file . ".xml",
                      $updateTimeout, $logdir)

Definition at line 122 of file yrnoxml.pl.

$nodeset = $xp->find('/weatherdata/location/location')

Definition at line 127 of file yrnoxml.pl.

foreach $node

Definition at line 130 of file yrnoxml.pl.

my $tzoffset

Definition at line 152 of file yrnoxml.pl.

$tzoffset* my $now = 60 time

Definition at line 160 of file yrnoxml.pl.

my $lastperiod = undef

Definition at line 166 of file yrnoxml.pl.

my forecast

Definition at line 167 of file yrnoxml.pl.

my $day = 0

Definition at line 177 of file yrnoxml.pl.

my $time = 0

Definition at line 178 of file yrnoxml.pl.

Referenced by $time().

yrnoxml.pl File Reference

Functions

Variables

Function Documentation

Variable Documentation