Infrastructure updates

diff --git a/get b/get
index 0ed27282bae0c9d080a921ac05130990fd77b368..2f428ed548dd544565b1f841fbee101517c5d913 100755 (executable)
--- a/get
+++ b/get
@@ -3,6 +3,8 @@
 use v5.36;
 use strict;
 
+use FindBin qw($Bin);
+use lib "$Bin/lib";
 use Y::AoC qw(grey red);
 use Y::AoC::UA;
 
@@ -24,7 +26,7 @@ if (!$day) {
        my @now = localtime($now);
        if ($now[4] == 11 && $now[2] >= 5 && $now[2] < 7) {
                $day = $now[3];
-               if ($now[2] == 5 && $now[1] >= 50) {
+               if ($now[2] == 5 && $now[1] >= 45) {
                        my $then = parsedate($start);
                        $sleep = $then - $now;
                }

diff --git a/leaderboard b/leaderboard
index 3f1e7ba898a1499e797e859fd7a6c26d404764ea..1b41c1696032ded1f40d698be594bc1c75716f0f 100755 (executable)
--- a/leaderboard
+++ b/leaderboard
@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 
 use v5.36;
+use FindBin qw($Bin);
+use lib "$Bin/lib";
 use Y::AoC::UA;
 use Y::AoC;
 use Mojo::JSON qw(from_json);

diff --git a/lib/Y/AoC.pm b/lib/Y/AoC.pm
index 31b4532694b97a840f63e4fe9ce9a07e1847d8e2..a0a807e4e6ddbcd460e95f02a0c860b37e222a66 100644 (file)
--- a/lib/Y/AoC.pm
+++ b/lib/Y/AoC.pm
@@ -24,7 +24,7 @@ sub year {
        if (!defined $num) {
                ($num) = getcwd =~ /.*(\d{4})/;
        }
-       $num;
+       $num //= (localtime(time))[5] + 1900;
 }
 
 1;

diff --git a/lib/Y/AoC/UA.pm b/lib/Y/AoC/UA.pm
index 966878a535f9b2f3dfc2fd528eb7e900ac89d03a..0c87fe75cd0f393c48b9d996b34273b62fb432a4 100644 (file)
--- a/lib/Y/AoC/UA.pm
+++ b/lib/Y/AoC/UA.pm
@@ -5,7 +5,8 @@ use v5.36;
 use Mojo::Base -signatures;
 use Mojo::UserAgent;
 use Mojo::DOM;
-use Y::AoC qw(white red);
+use Mojo::Util qw(dumper);
+use Y::AoC qw(white red grey);
 
 our $user_agent = 'kas@yenya.net https://www.fi.muni.cz/~kas/git/aoc.git';
 our $cache_dir = '/home/kas/aoc/cache';
@@ -27,7 +28,7 @@ sub request($url, $args) {
                }
 
                if ($cache->stat) {
-                       say "\n", white('cached'),
+                       say grey('cached'),
                                " response from $cachefile";
                        return $args->{body}
                                ? $cache->slurp
@@ -49,7 +50,9 @@ sub request($url, $args) {
        }
 
        if (!$res->is_success) {
+               say "$url\n", dumper \%hdrs;
                say $res->message;
+               say $res->headers->to_string;
                say "body:\n",  $res->body;
                die red("http request failed");
        }