exim+perl

[shadowpvl]

Hello all
Как я понял для того, чтобы передать переменную exim в perl нужно делать примерно так:

Код: Выделить всё

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

А каким образом можно создать в exim несколько переменных и чтобы perl записал туда какие либо данные? (Что-то типа этого: я изменяю $lp, а в exim при этом изменяется $local_part)

(Я хочу создать в acl несколько переменных в которые одна функция perl записывает необходимую информацию, а роутеры и транспорты должны срабатывать и выполнять определенные действия в зависимости от содержания этих переменных)

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[bigstinky]

Только, что сам такое делал.

К примеру я писал это в acl_check_data

Код: Выделить всё

warn
      set acl_m_your_var = ${perl{your_sub}}

Потом используйте еe по конфигу или в скрипте $acl_m_your_var

Естественно процедура your_sub в вашем скрипте должна возвращать какие-то данные. Я использую в фильтре экзима.

[shadowpvl]

А запросы в БД в функции Perl не делали?

[bigstinky]

Имеете ввиду запросы к БД из перла? Есть модули DBI и DBD::Mysql

[shadowpvl]

Так в том и дело что сам скрипт работает, выполняет запросы к БД. А стоит его подключить к exim как начинает ругаться на mysql. Может из-за того что я осуществляю соединение не внутри функции, а в самом скрипте? А внутри функции использую глобальную переменную, указывающую на соединение с БД.