Add a few icon options (still need a comprehensive list)
This commit is contained in:
parent
a146b0c199
commit
9d69a634cb
|
@ -11,7 +11,16 @@ if (defined($ARGV[0])) {
|
||||||
my $url = "https://john.me.tz/weather/weather.json";
|
my $url = "https://john.me.tz/weather/weather.json";
|
||||||
|
|
||||||
my %icons = (
|
my %icons = (
|
||||||
|
'01d' => "☀",
|
||||||
|
'01n' => "☾",
|
||||||
|
'02d' => "☁",
|
||||||
|
'02n' => "☁",
|
||||||
|
'03d' => "☁",
|
||||||
|
'03n' => "☁",
|
||||||
'04d' => "☁",
|
'04d' => "☁",
|
||||||
|
'04n' => "☁",
|
||||||
|
'10d' => "🌧",
|
||||||
|
'10n' => "🌧",
|
||||||
);
|
);
|
||||||
use LWP::UserAgent;
|
use LWP::UserAgent;
|
||||||
my $ua = LWP::UserAgent->new();
|
my $ua = LWP::UserAgent->new();
|
||||||
|
|
Loading…
Reference in New Issue