4 use Mojo::UserAgent -signatures;
5 use Mojo::JSON qw(from_json);
6 use Mojo::File qw(curfile);
7 use Mojo::Util qw(getopt dumper);
10 my $board_id = 652041;
11 my $my_name = 'Yenya';
12 my $day = (localtime(time))[3];
15 'n|name=s' => \$my_name,
17 '1|first-task' => sub { $mode = '1' },
18 '2|second-task' => sub { $mode = '2' },
19 'r|relative' => sub { $mode = 'r' },
20 'b|board=i' => \$board_id
21 or die "Usage: $0 [-n username] [-1|-2|-r] [-b board_id]\n";
22 my $cache_filename = "cache-$board_id.json";
23 my $cached = curfile->sibling($cache_filename);
25 if (!$cached->stat || time - $cached->stat->mtime > 900) {
26 warn "Downloading $cache_filename\n";
27 chomp(my $cookie = curfile->sibling('cookie')->slurp);
28 my $res = Mojo::UserAgent->new->get(
29 "https://adventofcode.com/2021/leaderboard/private/view/$board_id.json",
33 $cached->spurt($res->body);
36 my $json = from_json $cached->slurp;
41 for my $name (keys %{ $json->{members} }) {
42 my $member = $json->{members}->{$name};
43 my $level = $member->{completion_day_level}->{$day}
48 $time = $level->{2}->{get_star_ts} - $level->{1}->{get_star_ts};
49 } elsif ($mode eq '1') {
51 $time = $level->{1}->{get_star_ts};
52 } elsif ($mode eq '2') {
54 $time = $level->{2}->{get_star_ts};
56 my $id_or_name = $member->{name} // 'Anonymous user #' . $member->{id};
57 $times{ $id_or_name } = $time;
59 if $id_or_name eq $my_name;
62 for my $name (sort { $times{$a} <=> $times{$b} } keys %times) {
63 $my_time //= $times{$name};
64 printf("%6d %6d %s\n", $times{$name}, $times{$name} - $my_time, $name);