bluesaxman/weatherget
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added Weather Underground/Weather.com API script to sources

Browse Source
This commit is contained in:
bluesaxman 2020-07-22 10:29:32 -06:00
parent 26e671051b
commit 19487f4901
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
weather.sh
View File

@ -8,7 +8,7 @@ pop @path;
my $p = join("/", @path); my $p = join("/", @path);
sub checksources { sub checksources {
my $weather = (`$p/wttrin.sh` || `$p/weatherbug.sh` || `$p/weathergov.sh`) or print "Not Available\n\n#FF0000" and exit 33; my $weather = (`$p/wttrin.sh` || `$p/weatherunder.sh` || `$p/weatherbug.sh` || `$p/weathergov.sh`) or print "Not Available\n\n#FF0000" and exit 33;
return $weather; return $weather;
} }

20
weatherunder.sh Executable file
View File

@ -0,0 +1,20 @@
#!/usr/bin/perl -w
use strict;
use warnings;
use JSON;
my $APIKEY = "6532d6454b8aa370768e63d6ba5a832e";
my $StationID = "KUTRIVER63";
my $Units = "m"; # e = imperial, m = metric
my $info = `curl -sm "https://api.weather.com/v2/pws/observations/current?apiKey=$APIKEY&stationId=$StationID&numericPrecision=decimal&format=json&units=$Units"` or die "Error";
my $json = decode_json $info or die "Error";
my $loc = %{$json}{"observations"}->[0]->{"stationID"};
my $temp = %{$json}{"observations"}->[0]->{"metric"}->{"temp"};
my $windS = %{$json}{"observations"}->[0]->{"metric"}->{"windSpeed"};
my $windD = %{$json}{"observations"}->[0]->{"winddir"};
print "?:".$temp.":".$windS.":".$windD.":".$loc;