сломан импорт
Импорт из LJ уже больше недели не работает.
У нас ничего не менялось, очевидно, livejournal.com
постигли очередные "улучшения" кода.

Симптомы таковы:

my $ua = LWPx::ParanoidAgent->new(timeout => 60);
$USER_AGENT = "LJR::Import/0.01; http://lj.rossia.org/; lj-admin\@rossia.org";
$ua->agent($LJR::USER_AGENT);
$idres = $ua->get($ru->{"servername"} . "/users/" . $remote_user . "/info/");
  
if (!($idres && ($idres->is_success || $idres->code == 403))) {
    return $err->("LWPx: Can't get remote user id: $remote_user\n");
}

И в этот момент она нам сообщает
"LWPx: Can't get remote user id", очевидно, будучи не
в состоянии законнектиться и сгрузить юзеринфо.

В чем причина этого, мне не очевидно. Разбираемся.
Ради интереса я попытался сделать с того же сервера

wget http://www.livejournal.com/users/repressii/info/ -U "LJR::Import/0.01; http://lj.rossia.org/; lj-admin\@rossia.org"

и все работало, то есть дело, видимо,
не в строчке с юзер-агентом.

Приносим извинения всем пострадавшим.

Привет

my $ures = URI::Fetch->fetch($url,
                                 UserAgent        => $self->ua,
                                 Cache            => $self->cache,
                                 ContentAlterHook => $hook,
                                 )
        or return $self->_fail("url_fetch_error", "Error fetching URL: " URI::Fetch->errstr);