|
MythTV
0.27pre
|
All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Groups Pages
|
MythTV
0.27pre
|
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 = "/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 |
| our | ( | $opt_v, | |
| $opt_t, | |||
| $opt_T, | |||
| $opt_l, | |||
| $opt_u, | |||
| $opt_d | |||
| ) |
| getopts | ( | 'Tvtlu:d:' | ) |
| my | ( | $latitude, | |
| $longitude | |||
| ) |
| if | ( | ! | defined $opt_u &&defined $latitude &&defined $longitude &&$latitude ne""&&$longitude ne"" | ) |
| if | ( | open(CACHE,"$dir/ndfd18_cache_${latitude}_${longitude}") | ) |
| printf updatetime::Last Updated on s UnixDate | ( | $creationdate, | |
| "%b % | d, | ||
| %I:%M%p%Z" | |||
| ) |
| use lib usr share mythtv mythweather scripts usr local share mythtv mythweather scripts us_nws |
| my types |
| my $param |
1.8.1.2