のperlスクリプト内でeximの変数を取得

Question

私の問題は、私はからexim.pl.localそのアクセスEximの変数でexim.conf

host = "${perl{func}{arg}}" 

でperlの

を使用してホスト名を設定しようexim.confでありますしかし

my $phost = Exim::expand_string('$primary_hostname'); 

方法

次のexim.confは、値が評価され、 「の$ PHOST」の値は、以下のようにリテラルであることを出てくる取得されていません。サブルーチンの結果を得るために、私はexim.confまたはexim.pl.localにコードを変更することができます

print $phost //outputs ${perl{func}{arg}}. 

任意の方法？ /etc/exam.pl.local

sub getprimaryhost { 
    my $phost = Exim::expand_string('$primary_hostname'); 
    return $phost; 
} 

で

Answer 1

次いで/etc/exim.confに

smtp_active_hostname = ${perl{'getprimaryhost'}} 

smtp_active_hostnameが上記の場合に、これまでどのサブリターンに設定されますprimary_hostnameの値になります。また、これはprimary_hostnameでは機能しないようです。