blob: 9797cd766344f1ef360a8d41445b0ec1af858cd0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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);
|
