update autocomplete list of station names (and add update script)

1 files changed, 26 insertions, 0 deletions

diff --git a/scripts/update-autocomplete b/scripts/update-autocomplete
new file mode 100755
index 0000000..9797cd7
--- /dev/null
+++ b/scripts/update-autocomplete
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use 5.020;
+
+use JSON;
+use File::Slurp qw(write_file);
+use Travel::Status::DE::IRIS::Stations;
+
+my @station_names = map { $_->[1] } Travel::Status::DE::IRIS::Stations::get_stations();
+
+my $station_json = JSON->new->utf8->encode([@station_names]);
+
+my $autocomplete = <<"EOF";
+\$(function() {
+	var stations = $station_json;
+	\$('input.station').autocomplete({
+		delay: 0,
+		minLength: 3,
+		source: stations
+	});
+});
+EOF
+
+write_file("public/static/js/autocomplete.js", $autocomplete);