From 8924d9d43cc555347dfce677cf175b11af3f1928 Mon Sep 17 00:00:00 2001 From: Natalie Rose Date: Thu, 17 Sep 2026 01:02:42 +1000 Subject: [PATCH] Fix wonky server overview --- bin/summarize_server.pl | 8 ++++---- bin/summarize_spies.pl | 8 +++++--- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/bin/summarize_server.pl b/bin/summarize_server.pl index 6e51072f..1f0be1be 100644 --- a/bin/summarize_server.pl +++ b/bin/summarize_server.pl @@ -164,16 +164,16 @@ sub generate_overview { $out{glyphs}{types}{$glyph->type} = $glyph->quantity; } - my $read; - if (-e '/home/lacuna/server/public/server/server_overview.json') { - open my $read, '<', '/home/lacuna/server/public/server/server_overview.json'; + open my $read, '<', '/home/lacuna/server/public/server/server_overview.json' + or die "Couldn't read server_overview.json: $!"; my $old_stats = from_json(do { local $/; <$read> }); $out{spies} = $old_stats->{spies}; } - open my $fh, '>', '/home/lacuna/server/public/server/server_overview.json'; + open my $fh, '>', '/home/lacuna/server/public/server/server_overview.json' + or die "Couldn't write server_overview.json: $!"; print $fh to_json(\%out); close $fh; } diff --git a/bin/summarize_spies.pl b/bin/summarize_spies.pl index 056c068f..8ae46abd 100644 --- a/bin/summarize_spies.pl +++ b/bin/summarize_spies.pl @@ -97,13 +97,15 @@ sub generate_overview { my $stats = {}; if (-e '/home/lacuna/server/public/server/server_overview.json') { - open my $read, '<', '/home/lacuna/server/public/server/server_overview.json'; + open my $read, '<', '/home/lacuna/server/public/server/server_overview.json' + or die "Couldn't read server_overview.json: $!"; $stats = from_json(do { local $/; <$read> }); } $stats->{spies} = $out{spies}; - open my $fh, '>', '/home/lacuna/server/public/server/server_overview.json'; - print $fh to_json(\%out); + open my $fh, '>', '/home/lacuna/server/public/server/server_overview.json' + or die "Couldn't write server_overview.json: $!"; + print $fh to_json($stats); close $fh; } -- 2.51.2