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

Fixed fallback code to actually fall back, and a few other reference issues

Browse Source
This commit is contained in:
bluesaxman 2023-02-10 11:21:34 -07:00
parent a9e23843ce
commit f46ddbd809
5 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
weather.sh
View File

@ -7,7 +7,7 @@ use JSON;
my @path = split("/", $0); my @path = split("/", $0);
pop @path; pop @path;
my $p = join("/", @path); my $p = join("/", @path);
my $config_file = -e '~/.location.json' ? '~/.location.json' : 'location_example.json'; my $config_file = -e "$ENV{HOME}/.location.json" ? "$ENV{HOME}/.location.json" : "$p/location_example.json";
# Load up config data # Load up config data
open (CONFIG, $config_file) or goto NOCONFIG; open (CONFIG, $config_file) or goto NOCONFIG;
@ -17,12 +17,12 @@ my %config = %{decode_json($raw_config)};
close(CONFIG); close(CONFIG);
NOCONFIG: NOCONFIG:
my $lat = $config{lat} or scalar(40.48967); my $lat = ($config{lat} or 40.48967);
my $lon = $config{lon} or scalar(-111.93882); my $lon = ($config{lon} or -111.93882);
my $WB_providerID = $config{WBproviderID} or scalar(23); my $WB_providerID = ($config{WBproviderID} or 23);
my $WB_stationID = $config{WBstationID} or scalar("C3430"); my $WB_stationID = ($config{WBstationID} or "C3430");
my $WU_stationID = $config{WUstationID} or scalar("KUTRIVER63"); my $WU_stationID = ($config{WUstationID} or "KUTRIVER63");
my $city = $config{city} or scalar("bluffdale"); my $city = ($config{city} or "bluffdale");
sub checksources { sub checksources {
my $weather = (`$p/wttrin.sh $city` || `$p/weatherunder.sh $WU_stationID` || `$p/weatherbug.sh $lat $lon $WB_providerID $WB_stationID` || `$p/weathergov.sh $lat $lon`) or print "Not Available\n\n#FF0000" and exit 33; my $weather = (`$p/wttrin.sh $city` || `$p/weatherunder.sh $WU_stationID` || `$p/weatherbug.sh $lat $lon $WB_providerID $WB_stationID` || `$p/weathergov.sh $lat $lon`) or print "Not Available\n\n#FF0000" and exit 33;
@ -110,9 +110,9 @@ elsif ($type eq "NA") {$type = "";}
elsif ($type =~ /Snow/) {$type = "";} elsif ($type =~ /Snow/) {$type = "";}
else {$type=$type."...";} else {$type=$type."...";}
my $loc = substr(($weather[4] or "?????"), 0, 5); my $loc = substr(($weather[4] or "??????????"), 0, 9);
my $format = '%5.5s - %5.5s  %03dC  %s %03dmph'; my $format = '%10.10s - %5.5s  %03dC  %s %03dmph';
printf( $format, $loc, $type, $temp, $wdir, $wind); printf( $format, $loc, $type, $temp, $wdir, $wind);
print "\n"; print "\n";
printf( $format, $loc, $type, $temp, $wdir, $wind); printf( $format, $loc, $type, $temp, $wdir, $wind);

10
weatherbug.sh
View File

@ -4,10 +4,10 @@ use warnings;
use JSON; use JSON;
#Have to open the web page and look in developer mode to get this info #Have to open the web page and look in developer mode to get this info
my $URL_lat = $ARGV[0] or scalar(40.48967); my $URL_lat = ($ARGV[0] or 40.48967);
my $URL_lng = $ARGV[1] or scalar(-111.93882); my $URL_lng = ($ARGV[1] or -111.93882);
my $URL_ProID = $ARGV[2] or scalar( 23); my $URL_ProID = ($ARGV[2] or 23);
my $URL_StatID = $ARGV[3] or scalar("C3430"); my $URL_StatID = ($ARGV[3] or "C3430");
my $info = `curl -sm 5 "https://www.weatherbug.com/api/observation?lat=$URL_lat&lng=$URL_lng&providerId=$URL_ProID&stationId=$URL_StatID"` or die "Error"; my $info = `curl -sm 5 "https://www.weatherbug.com/api/observation?lat=$URL_lat&lng=$URL_lng&providerId=$URL_ProID&stationId=$URL_StatID"` or die "Error";
@ -18,4 +18,4 @@ my $temp = %{$json}{"Observation"}->{"Temperature"};
my $windS = %{$json}{"Observation"}->{"WindSpeedAvg"}; my $windS = %{$json}{"Observation"}->{"WindSpeedAvg"};
my $windD = %{$json}{"Observation"}->{"WindDirectionAvg"}; my $windD = %{$json}{"Observation"}->{"WindDirectionAvg"};
print "?:".$temp.":".$windS.":".$windD.":".$loc; print "?:".$temp.":".$windS.":".$windD.":(WB)".$loc;

6
weathergov.sh
View File

@ -3,8 +3,8 @@ use strict;
use warnings; use warnings;
use JSON; use JSON;
my $URL_lat = $ARGV[0] or scalar(40.4936); my $URL_lat = ($ARGV[0] or 40.4936);
my $URL_lon = $ARGV[1] or scalar(-111.9388); my $URL_lon = ($ARGV[1] or -111.9388);
my $info = `curl -sm 5 "https://forecast.weather.gov/MapClick.php?lat=$URL_lat&lon=$URL_lon&unit=0&lg=english&FcstType=json"` or die "Error"; my $info = `curl -sm 5 "https://forecast.weather.gov/MapClick.php?lat=$URL_lat&lon=$URL_lon&unit=0&lg=english&FcstType=json"` or die "Error";
@ -16,4 +16,4 @@ my $windS = %{$json}{"currentobservation"}->{"Winds"};
my $windD = %{$json}{"currentobservation"}->{"Windd"}; my $windD = %{$json}{"currentobservation"}->{"Windd"};
my $desc = %{$json}{"currentobservation"}->{"Weather"}; my $desc = %{$json}{"currentobservation"}->{"Weather"};
print $desc.":".$temp.":".$windS.":".$windD.":".$loc; print $desc.":".$temp.":".$windS.":".$windD.":(WG)".$loc;

4
weatherunder.sh
View File

@ -5,7 +5,7 @@ use warnings;
use JSON; use JSON;
my $APIKEY = "e1f10a1e78da46f5b10a1e78da96f525"; my $APIKEY = "e1f10a1e78da46f5b10a1e78da96f525";
my $StationID = $ARGV[0] or scalar("KUTRIVER63"); my $StationID = ($ARGV[0] or "KUTRIVER63");
my $Units = "m"; # e = imperial, m = metric my $Units = "m"; # e = imperial, m = metric
my $info = `curl -sm 1 "https://api.weather.com/v2/pws/observations/current?apiKey=$APIKEY&stationId=$StationID&numericPrecision=decimal&format=json&units=$Units"` or die "Error"; my $info = `curl -sm 1 "https://api.weather.com/v2/pws/observations/current?apiKey=$APIKEY&stationId=$StationID&numericPrecision=decimal&format=json&units=$Units"` or die "Error";
@ -17,4 +17,4 @@ my $temp = %{$json}{"observations"}->[0]->{"metric"}->{"temp"};
my $windS = %{$json}{"observations"}->[0]->{"metric"}->{"windSpeed"}; my $windS = %{$json}{"observations"}->[0]->{"metric"}->{"windSpeed"};
my $windD = %{$json}{"observations"}->[0]->{"winddir"}; my $windD = %{$json}{"observations"}->[0]->{"winddir"};
print "?:".$temp.":".$windS.":".$windD.":".$loc; print "?:".$temp.":".$windS.":".$windD.":(WU)".$loc;

2
wttrin.sh
View File

@ -15,4 +15,4 @@ my $windS = %{$json}{"current_condition"}->[0]->{"windspeedMiles"};
my $windD = %{$json}{"current_condition"}->[0]->{"winddirDegree"}; my $windD = %{$json}{"current_condition"}->[0]->{"winddirDegree"};
my $desc = %{$json}{"current_condition"}->[0]->{"weatherDesc"}->[0]->{"value"}; my $desc = %{$json}{"current_condition"}->[0]->{"weatherDesc"}->[0]->{"value"};
print $desc.":".$temp.":".$windS.":".$windD.":".$loc; print $desc.":".$temp.":".$windS.":".$windD.":(WT)".$loc;