From 1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 9 Dec 2023 14:16:23 +0000
Subject: more cleaning

---
 driver.pl | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 driver.pl

(limited to 'driver.pl')

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;
-- 
cgit v1.2.3