Perl

Бонжур!

Доработал недавно (как и обещал в предыдущей публикации - Ansible. Network-scripts. RHEL8) функционал ansible-хелпера "conf_int_ipv4_via_network_scripts". Теперь изменения сетевых настроек возможно применить временно (например, на период тестирования). Для этого достаточно:

1) сконфигурировать целевые интерфейсы посредством правки файла "config";

2) задать время отката настроек на предыдущие через конфиг "additional_configs/config_temporary_apply_ifcfg" (по умолчанию = 10 минут);

3) запустить скрипт "apply_temporary_ifcfg.sh". Выполняет действия, аналогичные "apply_immediately_ifcfg.sh" (т.е. реконфигурирует сеть в соответствии с файлом "config"), но перед рестартом сервиса "network" запускает на удалённом хосте bash-скрипт "rollback_ifcfg_changes.sh", который возвращает сетевые настройки к виду до модификации через временной промежуток, определённый в файле "config_temporary_apply_ifcfg";

4) протестировать сетевые связанности целевых хостов (вероятно, когда-нибудь реализую утилиту на основе стека "ansible + bash + perl");

5) если всё в порядке, то запустить скрипт "apply_immediately_ifcfg.sh", который остановит исполнение сценария "rollback_ifcfg_changes.sh".

Итого, два варианта на выбор пользователя - либо применить новые настройки незамедлительно (just run "apply_immediately_ifcfg.sh"), либо применить их временно (run "apply_temporary_ifcfg.sh") до осуществления тестирования и отмены возврата к предыдущей конфигурации сети хоста (run "apply_immediately_ifcfg.sh").

Конечно, неплохо бы добавить централизованный сбор наименований сетевых интерфейсов и соответствующих им MAC-адресов, дабы в автоматическом режиме (при попытке применить конфигурацию) сверять с тем, что пользователь напишет в конфиге (и прекращать выполнение софта, если, например, для интерфейса задан некорректный MAC), но эту фичу, думаю, реализую позже.

P.S. На очереди небольшой сюрприз для любителей разрешать доступ только к тем сетевым портам, которые необходимы для конкретного сервиса.

===

Ссылка на репозиторий: https://github.com/vladimir-chursin000/ansible_helpers

Есть такой скрипт:

#!/usr/bin/perl
# Copyright(C) Victor Vislobokov, 2011
# Under GNU GPL 2 License
use DB_File;
use Net::POP3;
# имя и пароль для доступа к почтовому ящику
$username = "username";
$password = "password";
# POP3 сервер
$server = "pop.yandex.ru";
# номер сотового куда отправлять SMS
$num = 'XXXXXXXXXX';
# База данных для хранения идентификаторов писем
$db_file = "/var/tmp/sms/id.db";
# Файл журнала для протоколирования действий
$logfile = "/var/tmp/sms/emailtosms.log";
$pop = Net::POP3->new($server, Timeout => 60);
$rc = $pop->login($username, $password);
if ($rc > 0) {
# Открываем БД сохранённых сообщений
$DB = tie(%hash_id, "DB_File", $db_file);
# Получаем список сообщений
$msgnums = $pop->list;
foreach my $msgnum (keys %$msgnums) {
# Получаем уникальный ID сообщения
$uid = $pop->uidl($msgnum);
# Отмечаем это сообщение в хеше текущих в данной сессии
$msgs{$uid} = 1;
# Проверяем не было ли уже обработано данное сообщение
# Если обработано, идём дальше
if (defined $hash_id{$uid}) {
writeLog($logfile, "$uid already processed");
next;
}
# Если нет, обрабатываем
$hash_id{$uid} = 1;
$msg = $pop->get($msgnum);
foreach $line (@$msg) {
if (index($line, "Subject: ") == 0) {
$sms = substr($line, 9, 50);
chomp($sms);
$stamp = getCurrentDateTime();
writeLog($logfile, "SMS '$sms' sended");
system("/usr/bin/smssend \"$num\" \"$stamp $sms\"");
}
}
# $pop->delete($msgnum);
}
} elsif ($rc == 0) {
writeLog($logfile, "No messages in mailbox");
} else {
writeLog($logfile, "Login failed");
}
$pop->quit;
# Удаляем из базы старые ID
foreach $uid (keys %hash_id) {
# Если ID из базы есть в текущей сессии, оставляем
next if (defined $msgs{$uid});
DB_File::DELETE($DB, $uid);
writeLog($logfile, "$uid was been deleted");
}
untie(%hash_id);
# ----------------------------------------------------------------------------
# Получение текущей даты и времени
# ----------------------------------------------------------------------------
sub getCurrentDateTime {
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
$mon++;
$year=$year-100+2000;
return(sprintf("%.4d-%.2d-%.2d %.2d:%.2d:%.2d", $year, $mon, $mday, $hour, $min, $sec));
}
# ----------------------------------------------------------------------------
# Запись в лог
# ----------------------------------------------------------------------------
sub writeLog {
my ($logfile, $msg) = @_;
if (!defined $logfile) {
$logfile = "/dev/null";
}
my ($datetime, $fd, $rc);
$datetime = getCurrentDateTime();
$rc = open($fd, ">>$logfile");
if (!defined $rc) {
if ($main::config{'DEBUG'} > 0) {
# При невозможности вывода в файл, выводим на стандартный ввод
print "$msg\n";
}
} else {
print($fd "$datetime ");
print($fd "$msg");
print($fd "\n");
close($fd);
}
}

Автор скрипта описывает его работу так:

Работа скрипта проста. Вы запускаете его по cron с нужной вам периодичностью. Скрипт лезет в почтовый ящик на сервере и забирает оттуда письма. Для каждого письма у POP3 сервера есть свой уникальный идентификатор, мы его получаем и проверяем нет ли у нас его в базе. Если есть, пропускаем письмо, так как считаем, что оно уже обработано, если идентификатора в базе нет, то мы сохраняем его туда. Затем получаем с сервера само сообщение, но используем только его тему (Subject:) для отправки по SMS. При этом не всю тему, а только 50 знаков, чтобы не превысить размер SMS. Затем отправяем SMS, предварительно сформировав текущее время, чтобы при получении было ясно, когда была отправка. После осуществления отправок всех SMS, чистим базу от старых идентификаторов сообщений, если сообщений с такими идентификаторами в ящике уже нет. Скрипт не удаляет само сообщение из ящика - этот вызов закомментирован.

Скрипт работает, но проблема в том, что тему письма он получает в кодировке base64 такого вида:

=?UTF-8?B?RGF2aWQgS3VyZXh5YW4g0L/RgNC40LPQu9Cw0YjQsNC10YIg0JLQsNGBINGB?=

Декодер от Лебедева - https://www.artlebedev.ru/decoder/ - расшифровывает условно правильно, в итоге результат такой:

?Q1-??David Kurexyan приглашает Вас с?

Но в самом скрипте дешифровка не предусмотрена и в смс уходит изначальной кодированный текст. На Тостере пишут, что

Это base64. Декодировать надо то, что после после «=?UTF-8?B?»
Ответ: «David Kurexyan приглашает Вас с»

Это декодируется с помощью Encode::MIME::Header

Вопрос: как изменить скрипт, чтобы тема письма декодировалась из base64 перед отправкой смс? Сам ни разу не программист, пытался по аналогии сделать, но нужного результата не добился.

Доброго времени суток!
(Доброго утра! Доброго дня! Доброго вечера! Доброй Ночи!)

Зарегистрировался на Пикабу для поиска потенциальных покупателей узкоспециализированного ПО собственной разработки (на Perl 5).

Подробнее тут:
1) https://vk.com/wall-171156115_117
2) https://t.me/server_soft_pro/8

Основные преимущества (ПО для осуществления SMS-рассылок) обозначены ниже.

1) Возможность обработки отчётов о доставке (если при отправке короткого сообщения был выставлен соответствующий флаг) с сохранением результатов в машино-понятном виде для последующей обработки.

2) Максимальная скорость рассылки ~ 2500 смс в секунду (на один экземпляр рассыльщика с одним smpp-коннектом).

3) Настраиваемая скорость отправки для каждого конкретного smpp-соединения.

4) Динамическое понижение скорости отправки при получении от целевого smpp-коннекта (SMS-центра) заранее определённых (в файле конфигурации) кодов ошибок.

5) Отправка SMS с использованием функций выбора целевого smpp-коннекта (любой доступный, по номеру отправителя, по номеру получателя);

6) Отложенная отправка (с указанием конкретной даты начала рассылки);

7) Настраиваемая совместная обработка очередей сообщений различными приложениями-рассыльщиками;

8) Настраиваемый контроль smpp-соединений (отправка / приём enquire_link / enquire_link_resp).

9) Настраиваемая скорость приёма входящего трафика (отчёты о доставке и проч.) для каждого smpp-соединения.

10) Возможность скрывать содержание входящих и исходящих сообщений в лог-файлах для определённого smpp-коннекта.

11) Настраиваемые условия (по коду ошибки в resp-ах) автоматического переподключения к smpp-соединению.

12) Возможность автоматической транслитерации содержания отправляемых сообщений.

13) Встроенный функционал вида "перезвони мне / заплати за меня".

14) Концепция приложения - максимальная независимость от сторонних модулей, т.к. ПО представляет собой монолитное решение, для работы которого требуется минимальный набор компонентов (в рамках целевой операционной системы).
15) Функционал "SMS-чат / simple_chat".

Ссылка на ПО и документацию: https://github.com/vladimir-chursin000/sms_sender

На данный момент софт работает под CentOS7 (RHEL7-based) и AlmaLinux8 (RHEL8-based).

Работал я в банке, в ~2007 году. По приходу в этот банк - закупил новый сервер, поставил в туда новый опердень, поднял DC, протянул и настроил сеть, закупил и настроил новые машины для операционистов, всё завёл, всё работает. Ну, такой банк, да. Да, не было сети у многих. Но речь не об том.

Дело идёт к концу года. Я уже сижу и просто мониторю машины, бэкапы. Чегототам программирую от нечего делать.

Замечаю что главбух (Г) уже неделю задерживается чуть ли не до ночи. Интересуюсь что случилось.

Г:- Да вот, годовой баланс свожу

Я:- Ну так опердень же умеет. Давайте найду как

Г:- Да опердень то умеет но проблема в другом. Во первых, в опердне только часть транзакций, с того времени как внедрили. Во вторых, есть старый опердень и там ещё часть транзакций за исключением тех, которые туда не попали из-за аварий и от тех транзакций осталось только платёжки.

Я:- Так, и что вы делаете?

Г:- Ну вот у меня есть старый опердень, есть новый, есть текстовые файлики с платёжками. Вот это всё в эксель переношу и считаю.

Я:- Понял. Могу помочь. Рассказывайте что в итоге должно быть и как считать.

Главбух бровь подняла, но начала рассказывать. В итоге я понял что в принципе достаточно ей html странички, где по каждому счёту нужно показать остатки. Показала где какие данные.

Взял я в руки perl и пошёл говнокодить. Сначала разобрался с новым оперднем. Делал в него запрос, в БД, вытаскивал данные в нужном формате. Во вторых, старый опердень. БД - dbf. Тоже относительно просто откопал оттуда нужное. В третьих - файлики текстовые. Где-то cp866, гдето 1251... Конечно же регекспы! Провозился чуть дольше но и это осилил. Время от времени ходил к главбуху, показывал промежуточное и выяснял правильно ли иду. На третий день уже она начала мне помогать. Про двойную книгу рассказала, местами помогла найти ошибки в логике расчётов. В общем, недели две или три вот так вот мы с ней в команде работали и таки родили результат. Довольная была как не знаю даже кто. Говорила что сама бы провозилась месяца два минимум.

Собственноручно выписала мне премию хорошую такую за труды. И до сих пор при встрече всегда здоровается, улыбается интересуется делами и так далее.