Есть у меня скрипт на сайте sendmail.pl отправляющий данные с сайта в базу данных, телеграм и битрикс24. Там еще СМС.ру но с ним все ок, как и с отправкой в БД. Все работало прекрасно то отключения на днях телеграм поддержки старых протоколов шифрования (использовался sha1). Сайт находится на шаред хостинге таймвеб.
Соответсвенно у меня вопросы, т.к. только изучаю язык.
Как правильно указать путь до библиотек. Какую библиотеку удобнее и надежнее использовать для tls 1.2 и как поправить рабочий скрипт? Можно и на TLS 1.3 также, как я понимаю.
Буду признателен за помощь или свое предложение по помощи за вознаграждение.
[cut=Сам скрипт сейчас] [code=perl]
package sendmail; use strict; use Encode; use JSON; use LWP::UserAgent; use MIME::Lite; use Digest::SHA qw(sha512_hex);
Кусок с telegram и битрикс
# отправляем в битрикс
$msg =~ s#<[^>]+?>#\n#g;
if ($conf::CRM_HOST && $conf::CRM_LOGIN && $conf::CRM_PASSWORD && $conf::CRM_TITLE) {
my $response = $ua->post($conf::CRM_HOST, [
"LOGIN" => $conf::CRM_LOGIN,
"PASSWORD" => $conf::CRM_PASSWORD,
"TITLE" => $conf::CRM_TITLE,
'NAME' => $fio,
'EMAIL_HOME' => $email,
'PHONE_HOME' => $tel,
'COMMENTS' => $title - $text,
'SOURCE_DESCRIPTION' => $msg,
'SOURCE_ID' => "WEB",
] );
return($response->status_line) if !$response->is_success;
}
Телеграмм сам сделал. Битрикс еще под вопросом.
