FreeBSD 12.x + модуль TurboSMS - проблема

[Sidius]

Обновили ось на биллинге до 12.2
Столкнулись с странной проблемой не работы модуля TurboSMS
В дебаге выдает ошибку

Код:

RESPONSE (30.018570000 sec.):
500 Can't connect to turbosms.in.ua:80 (Operation timed out)
Content-Type: text/plain
Client-Date: Thu, 25 Feb 2021 22:56:53 GMT
Client-Warning: Internal response

Can't connect to turbosms.in.ua:80 (Operation timed out)

Operation timed out at /usr/local/lib/perl5/site_perl/LWP/Protocol/http.pm line 50.

Причем иногда проходит первый запрос на Auth а на втором (GetCreditBalance) - не проходит, иногда проходят оба запроса и все ок.
Ошибка понятная НО - почему?? Крутятся другие билинги на FreeBSD 9.х-11.х - никаких проблем (специально пытался воспроизвести данную проблему пробуя уйму раз обновлять страницу). Данный биллинг также крутился под 9.1 - тоже не было проблем
Альтернативные модули которые используют p5-libwww - работают на данной машине без проблем.
Гугл результатов не дал.
Может кто знает/сталкивался в чем может быть заковыка и как исправить?

[Cell]

Я сталкивался приблизительно с таким поведением когда сервер на той стороне делал принудительный редирект с 80 на 443 порт с использованием SSL, попробуйте задать урл явно в виде https.
Но это только догадки и теории....

[Sidius]

Я сталкивался приблизительно с таким поведением когда сервер на той стороне делал принудительный редирект с 80 на 443 порт с использованием SSL, попробуйте задать урл явно в виде https.
Но это только догадки и теории....

Да тут видимо заковыка где-то в perl либо модулях под FreeBSD 12.x
Причем иногда оба коннекта нормально проходят и модуль работает. Скажем так - если обновлять страницу модуля то в 1 из 3 попыток таки коннекты проходят.
Странно что остальные модули которые используют LWP - работают нормально без заметных проблем

[Cell]

Да тут видимо заковыка где-то в perl либо модулях под FreeBSD 12.x

Тебе виднее конечно )

[Sidius]

Коллеги - неужели никто не сталкивался и никто не починил?

[Cell]

Коллеги - неужели никто не сталкивался и никто не починил?

Тебе сказали, но ты отмахнулся хотя ключевое тут было:

Альтернативные модули которые используют p5-libwww - работают на данной машине без проблем.

[Sidius]

Коллеги - неужели никто не сталкивался и никто не починил?

Тебе сказали, но ты отмахнулся хотя ключевое тут было:

Альтернативные модули которые используют p5-libwww - работают на данной машине без проблем.

Нет там перехода в https - turbosms пашет по http, ничего не редиректит.

[val_Atero]

Коллеги - неужели никто не сталкивался и никто не починил?

Тебе сказали, но ты отмахнулся хотя ключевое тут было:

Альтернативные модули которые используют p5-libwww - работают на данной машине без проблем.

Нет там перехода в https - turbosms пашет по http, ничего не редиректит.

Приветствую. Вам удалось решить данную проблему?

[Sidius]

Коллеги - неужели никто не сталкивался и никто не починил?

Тебе сказали, но ты отмахнулся хотя ключевое тут было:

Альтернативные модули которые используют p5-libwww - работают на данной машине без проблем.

Нет там перехода в https - turbosms пашет по http, ничего не редиректит.

Приветствую. Вам удалось решить данную проблему?

Нет. Все надеюсь что подскажет кто-то из форума. Но пока безрезультатно. У вас есть какие-то мысли по данном поводу?

[Sidius]

Коллеги ну что - сложно подсказать?

[Sork]

столкнулся с аналогичной проблемой на freebsd 12.1, пробовал разное (дебаг, в цикле серии перезапросов), ничего не помогло, сделал костыль - работает через прокси на соседнем сервере.
думал уже "IP-адрес проклят" 

--- TurboSMS.pm ---

Код:

#!/usr/bin/perl

package TurboSMS;
use strict vars;
use warnings;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Request;
use Encode qw{from_to decode encode};

+my $proxy = 'http://1.2.3.4:8888';

+$ENV{PERL_LWP_ENV_PROXY} = $proxy;
+$ENV{HTTP_PROXY} = $proxy;
+$ENV{HTTPS_PROXY} = $proxy;

sub InitUserAgent{
        my($class,undef) = @_;
        $class->{http_client} = LWP::UserAgent->new(timeout=>$class->{timeout});
+        local $ENV{HTTP_PROXY} = $proxy;
+        local $ENV{HTTPS_PROXY} = $proxy;
+        $class->{http_client}->proxy(['http', 'https', 'ftp'] => $proxy);
        ref $class->{http_client} eq 'LWP::UserAgent' or return;
        $class->{http_client}->default_headers->header(
                'Content-Type'=>$class->{gw} && $class->{gw} eq 'web'?'application/x-www-form-urlencoded':'text/xml; charset=utf-8',
                'User-Agent'=>$class->{gw} && $class->{gw} eq 'web'?'Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1':'Perl/SOAP',
        );
        return 1;
}

[Demeo]

Тупо увеличил таймаут в 251 строке...

$self->{timeout}=$args{timeout}||'45';

[SerjioMati]

https://local.com.ua/forum/topic/118643-freebsd12-vs-turbosms/?do=findComment&comment=1331600

[maxx]

Ога, проблема во включенном плавающем окне сегментации тсп. Нахера ее по дефолту включили в 12 фрихе, понять не могу.

[Sidius]

Ога, проблема во включенном плавающем окне сегментации тсп. Нахера ее по дефолту включили в 12 фрихе, понять не могу.

И причем я уверен что автор модуля и его камрады - знали о решении и специально молчали.