jjakke/hit-counter
jjakke/hit-counter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor and remove unused __DATA__

Browse source
This commit is contained in:
jake 2024-03-17 21:33:07 -04:00
parent cea9c0ce5b
commit 08f790eede
1 changed files with 10 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
myapp.pl
View file

@ -7,31 +7,31 @@ my $number_length = 6;
app->hook(before_server_start => sub ($server, $app) { app->hook(before_server_start => sub ($server, $app) {
if (! (-e $counter_file)) { if (! (-e $counter_file)) {
open my $fh, '>', $counter_file; write_counter();
syswrite $fh, $counter, length $counter, 0;
close $fh;
} }
open my $fh, '<', $counter_file; read_counter();
sysread $fh, $counter, 20; # 20 bytes to read which is more than enough for a counter
close $fh;
-e '/bin/montage' or die 'ImageMagick not installed? `/bin/montage`'; -e '/bin/montage' or die 'ImageMagick not installed? `/bin/montage`';
}); });
get '/' => sub ($c) { 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++)); make_image(to_number_length($counter++));
$c->res->headers->header('Content-Security-Policy' => 'img-src * artemis.venus.place'); $c->res->headers->header('Content-Security-Policy' => 'img-src * artemis.venus.place');
$c->res->headers->header('Server' => 'nginx/1.22.1'); # lie :) $c->res->headers->header('Server' => 'nginx/1.22.1'); # lie :)
$c->reply->file('tmp/counter.png'); $c->reply->file('tmp/counter.png');
write_counter();
};
sub write_counter () {
open my $fh, '>', $counter_file; open my $fh, '>', $counter_file;
syswrite $fh, $counter, length $counter, 0; syswrite $fh, $counter, length $counter, 0;
close $fh; close $fh;
}; }
sub update_counter () { sub read_counter () {
open my $fh, '<', $counter_file; 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; close $fh;
} }
@ -65,16 +65,3 @@ sub make_image ($counter) {
} }
app->start; app->start;
__DATA__
@@ index.html.ep
% layout 'default';
% title 'Welcome';
<h1>Welcome to the Mojolicious real-time web framework!</h1>
@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
<head><title><%= title %></title></head>
<body><%= content %></body>
</html>