From 08f790eede76fac3c704cef6397dcf38363f56ad Mon Sep 17 00:00:00 2001 From: jake Date: Sun, 17 Mar 2024 21:33:07 -0400 Subject: [PATCH] refactor and remove unused __DATA__ --- myapp.pl | 33 ++++++++++----------------------- 1 file changed, 10 insertions(+), 23 deletions(-) diff --git a/myapp.pl b/myapp.pl index fbce331..9f8aca8 100755 --- a/myapp.pl +++ b/myapp.pl @@ -7,31 +7,31 @@ my $number_length = 6; app->hook(before_server_start => sub ($server, $app) { if (! (-e $counter_file)) { - open my $fh, '>', $counter_file; - syswrite $fh, $counter, length $counter, 0; - close $fh; + write_counter(); } - open my $fh, '<', $counter_file; - sysread $fh, $counter, 20; # 20 bytes to read which is more than enough for a counter - close $fh; + read_counter(); -e '/bin/montage' or die 'ImageMagick not installed? `/bin/montage`'; }); get '/' => sub ($c) { - update_counter(); # hypnotoad or w/e may run on threads or something. awkward. + read_counter(); # hypnotoad or w/e may run on threads or something. awkward. make_image(to_number_length($counter++)); $c->res->headers->header('Content-Security-Policy' => 'img-src * artemis.venus.place'); $c->res->headers->header('Server' => 'nginx/1.22.1'); # lie :) $c->reply->file('tmp/counter.png'); + write_counter(); +}; + +sub write_counter () { open my $fh, '>', $counter_file; syswrite $fh, $counter, length $counter, 0; close $fh; -}; +} -sub update_counter () { +sub read_counter () { open my $fh, '<', $counter_file; - sysread $fh, $counter, 20; + sysread $fh, $counter, 20; # 20 bytes to read which is more than enough for a counter close $fh; } @@ -65,16 +65,3 @@ sub make_image ($counter) { } app->start; -__DATA__ - -@@ index.html.ep -% layout 'default'; -% title 'Welcome'; -

Welcome to the Mojolicious real-time web framework!

- -@@ layouts/default.html.ep - - - <%= title %> - <%= content %> -