+ if ($url =~ m#^/#) { # Local file.
+ eval {
+ local $/ = undef;
+ open my $fh, "<", $url
+ or die "$url: $!";
+ my $pgn = <$fh>;
+ close $fh;
+ handle_pgn($pgn, '', $url);
+ };
+ if ($@) {
+ warn "$url: $@";
+ $http_timer = AnyEvent->timer(after => 1.0, cb => sub {
+ fetch_pgn($url);
+ });
+ }
+ } else {
+ AnyEvent::HTTP::http_get($url, sub {
+ handle_pgn(@_, $url);
+ });
+ }