FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции RU.BINKD


	Добро пожаловать, Гость. Пожалуйста авторизуйтесь здесь.

Введите FGHI ссылку:

Присутствуют сообщения из эхоконференции RU.BINKD с датами от 14 Jul 13 17:53:22 до 13 May 24 22:17:00, всего сообщений: 1927

Ответить на сообщение

К списку сообщений

Предыдущее сообщение

Следующее сообщение

= Сообщение: 930 из 1927 ========================================== RU.BINKD =
От   : Mihail Kapitanov                 2:463/1104.239     19 Dec 16 13:44:24
Кому : Stas Mishchenkov                                    19 Dec 16 13:44:24
Тема : Perl
FGHI : area://RU.BINKD?msgid=2:463/1104.239+5857c9ef
На   : area://RU.BINKD?msgid=2:460/58+5857c076
= Кодировка сообщения определена как: CP866 ==================================
Ответ: area://RU.BINKD?msgid=2:460/58+58584ffb
==============================================================================
Привет, Stas!

19 Дек 16 14:11, ты писал(а) мне:

MK>> Спасибо. У меня в комплекте с бинком ддл-ка версии 5.16.
MK>> Получается перл 5.22 не подойдет? Или это не важно?
SM> Не знаю. У меня работает. ;)

Hасколько я понял, та библиотека perl510(6).dll которая идет в комлекте с бинком и есть интерпретатор перла и ничего больше не нужно (бинку). Могу ошибаться, конечно.
ДЛЛ от ягодного перла я пробовал подсововать, но валятся ошибки в лог, и бинк падает если, например, конфиг перегрузить.

Вышел из положения так:

1) В хуках делаю вызов другого скрипта:

sub on_log {
    if(/^holding/) {
         system('C:\Users\user\Fido\Perl\SendEmail.pl "BinkD" "' . $_ . '"');
    }
}

2) В "большом" скрипте уже делаю что мне нужно:

use Net::SMTP;

my ($subj, $body) = @ARGV;

if(my $smtp = Net::SMTP->new('smtp.kapitan0v.com')) {
    if($smtp->auth('mihail', 'password')) {
         $smtp->mail('fido@kapitan0v.com');
         $smtp->to('mihail@kapitan0v.com');
         $smtp->data();
         $smtp->datasend("To: mihail\@kapitan0v.com\n");
         $smtp->datasend("From: fido\@kapitan0v.com\n");
         $smtp->datasend("Subject: $subj\n");
         $smtp->datasend("\n");
         $smtp->datasend("$body\n");
         $smtp->dataend();
    }
    $smtp->quit();
}

В результате получаю сообщение когда линк отвалился. Со строкой лога из бинка.

Mihail

--- GoldED+/W32-MSVC 1.1.5-b20160322
* Origin: Per rectum ad astra (2:463/1104.239)

К главной странице гейта