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

always read counter.numb (for secret threaded servers)

Browse source
This commit is contained in:
jake 2024-03-16 00:15:52 -04:00
parent d24d8bff7f
commit cea9c0ce5b
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
counter.numb
View file

@ -1 +0,0 @@
0

7
myapp.pl
View file

@ -19,6 +19,7 @@ app->hook(before_server_start => sub ($server, $app) {
}); });
get '/' => sub ($c) { get '/' => sub ($c) {
update_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 :)
@ -28,6 +29,12 @@ get '/' => sub ($c) {
close $fh; close $fh;
}; };
sub update_counter () {
open my $fh, '<', $counter_file;
sysread $fh, $counter, 20;
close $fh;
}
sub to_number_length ($counter) { sub to_number_length ($counter) {
while (length $counter lt 6) { while (length $counter lt 6) {
$counter = "0$counter"; $counter = "0$counter";