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/ndfd_cache_${latitude}_${longitude}")) | |
| if ($getData) | |
| printf updatetime::Last Updated on s | UnixDate ($creationdate,"%b %d, %I:%M %p %Z") |
| foreach | $time (sort(keys(%$result))) |
| return ($lat, $lon) | |
| if ($lat eq 'NA'||$lon eq 'NA') | |
Variables | |
| package | main |
| use | strict |
| use | NDFDParser |
| use | NWSLocation |
| my | $name = 'NDFD-6_day' |
| 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("8am tomorrow", "%O") |
| my | $d2 = UnixDate(DateCalc($d1, "+ 168 hours"), "%O") |
| my | $result |
| my | $creationdate |
| my | $nextupdate |
| my | $getData = 1 |
| my | $lowindex = 0 |
| my | $hiindex = 0 |
| my | $dateindex = 0 |
| my | $iconindex = 0 |
| my | dates |
| my | $time |
| my | $date |
| printf updatetime::Last Updated on s | n |
| my | $location = $results->[0] |
| $lat = $location->{latitude} | |
| $lon = $location->{longitude} | |
| 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/ndfd_cache_${latitude}_${longitude}") | ) |
| printf updatetime::Last Updated on s UnixDate | ( | $ | creationdate, | |
| "%b % | d, | |||
| %I:%M%p%Z" | ||||
| ) |
| return | ( | $ | lat, | |
| $ | lon | |||
| ) |
| package main |
Definition at line 6 of file ndfd.pl.
Referenced by av_adler32_update(), CC608Decoder::GetRatingString(), and PlaybackProfileConfig::InitUI().
| use NDFDParser |
| use NWSLocation |
| my types |
Initial value:
('3dlocation', '6dlocation', 'updatetime', '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', 'date-0', 'date-1', 'date-2', 'date-3', 'date-4', 'date-5')
| my $param |
| my $result |
Definition at line 90 of file ndfd.pl.
Referenced by genreform(), getPlaylistM3u(), getplaylistnames(), getRandItems(), internalGetPlaylist(), play(), playlist_rem(), randAdd(), sajax_handle_client_request(), searchMusic(), MythTV::StatusCommand(), and viewPlaylist().
| my dates |
| my $time |
1.5.5