summaryrefslogtreecommitdiff
path: root/forecast-file.pl
diff options
context:
space:
mode:
Diffstat (limited to 'forecast-file.pl')
-rw-r--r--forecast-file.pl57
1 files changed, 0 insertions, 57 deletions
diff --git a/forecast-file.pl b/forecast-file.pl
deleted file mode 100644
index 02dba1c..0000000
--- a/forecast-file.pl
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.014;
-use WebService::ForecastIo::Response;
-use Path::Class;
-use Template::Provider::Encoding;
-use Template::Stash::ForceUTF8;
-use Template;
-
-my %icon_for=(
- 'clear-day' => '2',
- 'clear-night' => '3',
- rain => '18',
- snow => '23',
- sleet => '24',
- wind => '6',
- fog => '13',
- cloudy => '14',
- 'partly-cloudy-day' => '8',
- 'partly-cloudy-night' => '9',
-);
-
-sub icon_for {
- my ($status) = @_;
-
- return "icons/".($icon_for{$status}//'45').".svg";
-}
-
-my $res = WebService::ForecastIo::Response->new(
- file($ARGV[0])->slurp(iomode=>'<:raw')
-);
-my $tf = file(__FILE__)->parent->file('forecast.html.tt');
-my $t = Template->new(
- LOAD_TEMPLATES => [ Template::Provider::Encoding->new(
- ABSOLUTE => 1,
- RELATIVE => 1,
- ) ],
- STASH => Template::Stash::ForceUTF8->new,
-);
-binmode STDOUT,':utf8';
-$t->process($tf->stringify,{
- f => $res,
- icon_for => \&icon_for,
-})
- or die $t->error;
-
-__DATA__
-[% MACRO dtspan BLOCK -%]
-<[% x.start_time.strftime('%H:%M%z') %] - [%x.stop_time.strftime('%H:%M%z') %]> [% x.value %]
-[%- END -%]
-Currently: [% f.currently.summary %] [% f.currently.temperature %]°
-[% f.hourly.summary %]
-
-[% FOREACH x IN f.hourly.spans_by_string('summary'); dtspan(x=x); ' '; END %]
-[% FOREACH x IN f.hourly.spans_by_number('temperature',2); dtspan(x=x); ' '; END %]
-