p/desktop-tools
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

wmstatus-weather.pl: fix weather icons

Browse Source 
The API seems to have been removed entirely.
This commit is contained in:
Přemysl Eric Janouch 2024-01-19 04:30:26 +01:00
parent 37b6ce3560
commit fefeb242ae
Signed by: p
GPG Key ID: A0420B94F92B9493
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
wmstatus-weather.pl
View File

@ -20,7 +20,8 @@ my %legends;
sub retrieve_legends { sub retrieve_legends {
# HTTP/Tiny supports TLS, but with non-core IO::Socket::SSL, so use cURL # HTTP/Tiny supports TLS, but with non-core IO::Socket::SSL, so use cURL
open(my $sock, '-|', 'curl', '-sSA', $agent, open(my $sock, '-|', 'curl', '-sSA', $agent,
"$base/weathericon/2.0/legends.txt") or return $!; 'https://raw.githubusercontent.com/' .
'metno/weathericons/main/weather/legend.csv') or return $!;
while (local $_ = <$sock>) { $legends{$1} = $2 if /^(.+?),(.+?),/ } while (local $_ = <$sock>) { $legends{$1} = $2 if /^(.+?),(.+?),/ }
close($sock); close($sock);
} }