diff options
author | dakkar <dakkar@thenautilus.net> | 2023-12-09 14:16:23 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2023-12-09 14:16:23 +0000 |
commit | 1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a (patch) | |
tree | edc8da3dfdfbfc6838fac95f1f5c47b960bf6ad5 | |
parent | Merge branch 'new-api' (diff) | |
download | HomePanel-1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a.tar.gz HomePanel-1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a.tar.bz2 HomePanel-1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a.zip |
more cleaning
-rw-r--r-- | driver.pl | 33 | ||||
-rw-r--r-- | forecast.pl | 22 | ||||
-rw-r--r-- | tfl-live-bus-and-river-bus-arrivals-api-documentation.pdf | bin | 357567 -> 0 bytes |
3 files changed, 0 insertions, 55 deletions
diff --git a/driver.pl b/driver.pl deleted file mode 100644 index df8e1fa..0000000 --- a/driver.pl +++ /dev/null @@ -1,33 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use 5.014; -use WebService::ForecastIo::Response; -use WebService::TFL::Bus; -use WebService::TFL::Bus::Request; -use WebService::TFL::TubeStatus; -use HomePanel::Render; -use Path::Class; - -my $forecast = WebService::ForecastIo::Response->new( - file($ARGV[0])->slurp(iomode=>'<:raw') -); -my $bus = WebService::TFL::Bus->new()->request( - WebService::TFL::Bus::Request->new({ - StopPointName => 'Hotspur Road', - #Towards => 'Islip Manor', - ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)], - }), -); -my $tube = WebService::TFL::TubeStatus->new()->request(); -my $template = file(__FILE__)->parent->file('forecast.html.tt'); - -binmode STDOUT,':utf8'; - -print - HomePanel::Render->new({ - template_file => $template, - forecast => $forecast, - bus => $bus, - tube => $tube, - })->render; diff --git a/forecast.pl b/forecast.pl deleted file mode 100644 index 927e980..0000000 --- a/forecast.pl +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use 5.014; -use WebService::ForecastIo; -use JSON; -use Data::Printer; - -my $key=$ARGV[0]; - -my $fio = WebService::ForecastIo->new({ - api_key => $key, -}); - -my $json = $fio->request({ - latitude => 51.54, - longitude => -0.37, - exclude => ['flags','sources'], - raw => 1, -}); - -say $json; diff --git a/tfl-live-bus-and-river-bus-arrivals-api-documentation.pdf b/tfl-live-bus-and-river-bus-arrivals-api-documentation.pdf Binary files differdeleted file mode 100644 index 7dfd882..0000000 --- a/tfl-live-bus-and-river-bus-arrivals-api-documentation.pdf +++ /dev/null |