Когда конфигурационный файл включает опцию “ perl_startup ”, вы можете использовать элемен раскрытия строк для вызова подрограмм perl, заданных кодом “ perl_startup ”. Оператор используется в любой из следующих форм:


${perl{foo}} ${perl{foo}{argument}} ${perl{foo}{argument1}{argument2} ... }

вызывающих подпрограмму “ foo ” с заданными параметрами. Может быть передано, максимум, восемь параметров. Передача большего числа приводит к ошибке раскрытия, с сообщением об ошибке, такой формы:


Too many arguments passed to Perl subroutine "foo" (max is 8 )

   Возвращаемое значение подрограммы perl оценивается в скалярных величинах до возвращения его exim`у, чтобы быть вставленным в раскрытую строку. Если возвращённое значение - “ undef ”, раскрытие терпит принудительную неудачу таким же образом, как и явный “fail” в элементе “if” или “lookup”. Если подпрограмма прерывается повинуясь функции perl`a “ die ”, раскрытие неудачно, с сообщением об ошибке, которое переданно “ die ”.



   Внутри любого кода perl, вызыванного из exim, доступна функция “ Exim::expand_string() ”, для обратного вызова в функцию раскрытия exim. Для примера, код perl


my $lp = Exim::expand_string('$local_part');

сделает текущую переменную exim`a “ $local_part ”, доступной в переменной perl “ $ip ”. Отметтьте, что тут одиночные кавычки, а не двойные, для предотвращения интепретации “ $local_part ” как переменной perl.
   Если раскрытие строки принудительно сделано неуспешным, элементом “fail”, результат “ Exim::expand_string() ” - “ undef ”. Если в строке раскрытия есть синтаксическая ошибка, из оригинального раскрытия строки вызывается ошибка perl, с соотвествующим сообщением об ошибке, таким же образом как будто использовалось “ die ”.
   Внутри кода perl доступны две другие функции exim. “ Exim::debug_write() ” записывает строку в стандартный поток ошибок, если включена отладка exim. Если вы хотите добавлять в конец строки символ новой строки, вы его должны подставить. “ Exim::log_write() ” пишет строки в основной лог exim`a, добавляя в начале метку времени. В этом случае, вам не нужно добавлять перевод строки.



   Вы не должны записывать в стандартный поток ошибок, или стандартный вывод изнутри вашего кода perl, поскольку не заданы их установки. В версиях exim до 4.50, это возможно для стандартного вывода или стандартного потока ошибок, для ссылки на SMTP-соединение в течение приёма сообщения даемоном.Запись в этот поток вызывает хаос. С exim 4.50, прогресс, стандартные потоки ошибок и вывода соединены с “ /dev/null ”, в даемоне. Хаос отсутствует, но вывод потерян.
   Утверждение perl “ warn ”, по умолчанию, пишется в стандартный поток ошибок. Вызовы “ warn ” могут быть встроены в модули perl, которые вы используете, но которые не контролируете. Когда exim запускает интерпретатор perl, он принимает меры для записи вывода утверждений “ warn ” в главный лог exim`a. Вы можете изменить это, путём включения соответсвующей perl`овой феньки, где-то внутри его кода. например, чтобы полностью отказаться от вывода “ warn ”, вам необходимо это:


$SIG{__WARN__} = sub { };

   Всякий раз, когда появляется “ warn ”, вызывается безымянная программа. В этом примере, код программы пуст, таким образом, она ничего не делает, но вы можете включить любой код perl, который вам нравится. Текст сообщения “ warn ” передаётся как первый параметра подпрограммы.




=============
Автор перевода: lissyara, оригинал: http://www.lissyara.su/?id=1200




Партнёры:

Хостинг: