diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/update-all-reports | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/bin/update-all-reports b/bin/update-all-reports index 4c0e96d31..24192d5be 100755 --- a/bin/update-all-reports +++ b/bin/update-all-reports @@ -17,7 +17,10 @@ BEGIN { } use FixMyStreet::Script::UpdateAllReports; +use File::Path (); +use File::Slurp; use Getopt::Long::Descriptive; +use JSON::MaybeXS; my ($opt, $usage) = describe_options( '%c %o', @@ -27,8 +30,15 @@ my ($opt, $usage) = describe_options( ); print($usage->text), exit if $opt->help; +my ($data, $filename); if ($opt->table) { - FixMyStreet::Script::UpdateAllReports::generate($opt->areas); + $data = FixMyStreet::Script::UpdateAllReports::generate($opt->areas); + $filename = 'all-reports.json'; } else { - FixMyStreet::Script::UpdateAllReports::generate_dashboard(); + $data = FixMyStreet::Script::UpdateAllReports::generate_dashboard(); + $filename = 'all-reports-dashboard.json'; } + +my $json = encode_json($data); +File::Path::mkpath(FixMyStreet->path_to('../data/')->stringify); +File::Slurp::write_file(FixMyStreet->path_to("../data/$filename")->stringify, \$json); |