use Mojo::Base -signatures;
use Mojo::UserAgent;
use Mojo::DOM;
-use Y::AoC qw(white);
+use Y::AoC qw(white red);
our $user_agent = 'kas@yenya.net https://www.fi.muni.cz/~kas/git/aoc.git';
our $cache_dir = '/home/kas/aoc/cache';
$cachefile = $cache_dir . '/' . $args->{cache_to};
$cache = Mojo::File->new("$cachefile");
- if ($args->{max_age}) {
+ if (defined $args->{max_age}) {
$cache->remove
if $cache->stat
&& time - $cache->stat->mtime
if ($cache->stat) {
say "\n", white('cached'),
" response from $cachefile";
- return Mojo::DOM->new($cache->slurp);
+ return $args->{body}
+ ? $cache->slurp
+ : Mojo::DOM->new($cache->slurp);
}
}
}
if ($cache) {
- $cache->spurt($res->body);
+ $cache->spew($res->body);
# say "Stored response to $cachefile";
}
return $args->{body} ? $res->body : $res->dom;