[EXIM] Today's hack: a perl director for exim

Página Principal
Apagar esta mensagem
Responder a esta mensagem
Autor: Malcolm Beattie
Data:  
Para: exim-users
Assunto: [EXIM] Today's hack: a perl director for exim
As pennance for stupidly missing off the suid bit on exim and
bothering exim-users with it, I've done a proof-of-concept patch
embedding perl in exim. It's mainly for hack value at the moment but
it's vaguely possible that there are some uses for being able to
write arbitrary perl code to decide how to direct/route/transport
or lookup mail in exim. Currently, I've just done a director, usage
as follows:

# directors
testperl:
driver = perl
startup = sub handler { return 'foo@bar' }
sub = handler

The perl driver captures any local_part at all (same as smartuser
which I used as template code) and runs the given sub named in the
"sub = ..." line. The "startup = ..." line gives some perl code to
be executed at startup time: in general you probably want it to be
"do '/some/file'" or "require Foo" but it can be anything. It can
do any initialisation and define any subs you want, including the
main "handler" sub. (The "startup = ..." string isn't string
expanded by exim so you don't need to backwhack everything in sight).

The return value of the handler sub can be
(1) undef, meaning the director returns FORCEFAIL (fail to handle the
    address and don't pass it on to subsequent directors)
(2) '' (i.e. a zero length string), meaning the director returns FAIL
    (fail to handle the address but pass it on to subsequent
    directors).
(3) a non-zero-length string taken to be a new address. The result is
    the same as though a smartuser director had "new_address = ..."
    for that new value.


Within your perl code, you can use the function "expand_string" which
calls back into exim's expand_string function. So you can say things
like:

    $d = expand_string('$domain');


It shouldn't be too hard allowing the perl code to manipulate exim
address structures/lists directly (the things that the
directors/README file talks about) but I haven't yet figured out
exactly how they work.

If anyone can think of any real applications, I'd be interested (and
only slightly surprised). I'd imagine a perl transport (which let you
do fancy things and "deliver" a message in the context of exim itself)
may be the most likely perl driver to be of use. Or maybe a generic
Perl code "lookup" thing (${lookup {key} perl {some_perl_sub} {arg}}).

I might as well send the whole patch this time: I won't do so if I
make any updates. Before applying this patch (from the top of your
exim tree), do
    touch src/directors/perl-exim.h
    touch src/directors/perl.c
in case your version of patch doesn't like creating files from
scratch. I've had to use "foo = $(shell ...)" in a makefile which
is probably a GNUism. I built/tested using exim 2.02 and perl 5.004_04
on Red Hat 5.1 Linux/Intel. YMMV.


------------------------------ cut here ------------------------------
begin 644 exim-perl.patch.gz
M'XL("%[/)#8``V5X:6TM<&5R;"YP871C:`#56WMWVDJ2_]OW4W28/,`&XU<>
MQIL[BVWL88.-#]B9[,[LT1528W0B)$8MX7"3?/>IJNZ6NH6PDYV[>\YR.0[]
MJJZNQZ^J6KK;V]ML.&Y?N9_Y-`AYZYQ/W2Q,=X>C_M9?N<^&7LKVC^#;.7K3
M.80?Q\?O?FFU6E6+K`6O._`]>B,7;-L?;+/]-\?-_;='C#J0HNQXS>!WZQ?&
MX/LG-A@./]S=./WKL\'=>>]]J\_:F4C:8>RY83OTW44[B+PP\SFSA\0_0CUB
MTAGT3\?O6P.31C!AK1`IX3\3GORR8TU^7A<S'H9LP9.0M:YZ7]*[-`A%I].;
M3^"T+<Y"/UZDHB$YILU&W6M8R\0LSD*?33@3/&5IS$0\Y^DLB.Y9.G-3YL=<
ML"B6/7'$Q$JD?"[T(`Z1H(27!+`#B7L01)_%FG(..OO'G;UWA7+6EI1T"=,/
M#C:KYGBO>?RZ4`PVWVJUA!%K";:[VX:O2+RV'R3<2^-$2(%F@B>['H./T7QT
MF9B[24KS9KC,:/[@,L]>YH$&-R]#/;;XEV`N=S.:3RZ3&S&]C([E^3`]-];@
M,W\(!&?3.`$M<N;%?M%(XBSEB9`JM8AK/ZK2ZY&MU\IU)>4>ONX</J+<@^8[
MJ5ID&504HOD%8'&:[JZ[RVYG@6#PQ7$@/DWB.1UB[@81_/D,QX*-F\R=PIE`
M"J^`"!$$,\=Y.3$FLHENK$A2S]CP]#_8>^:&@2OHV#'*Z,%-?-4J+"<V]!I+
M,1ML=D@7S^M`#]UO:XNU)T'43N:L-37GD>CPV,J$_W\=6QK;OW#Z:O!M'NR9
MT-L$/%#BL;CJT!Y_.1^-&]:`9[5FZ#1>'$V#>^FVQ5$TFY*$C1%%"Q<99[87
MV:YN`L2.$DXG]\Q\D7+1';;UF\+N,^(/(?O5(@FBE-6>/Y=]7SWO>^W5;[#V
M[&+0O835S^LJY#38;YNAW_,0^G]C+:]`!#*'7N3G?J[%LNO+*%D)WP>=@V/;
MS=>6K2\Y.GK$RP^:!V\+!6.SL'\@&42<G?='O;/;X<BY&([^VAV=7_0'O:KA
MP?"L.[@;]T95@^.K[NB6!G?6!V]ZHX&2B1XZ=?3H?SI7P_,>*6WO[>L]>Q+L
M^<&Y[5_UAG>W2K-O]@KL3%)W$G*QZU4+\_5!"3/S^>4<Y6WGZ/@1*;[=`S$:
MH5!V'.>2U-E'K3*>U7`*C_Q@BD(`^013.&%)/#N55(S`5,,IDLH.B5)2&8%D
M>B/G?'C5[4.^,;ZU^%'1INW'B%UA(%*+G:K#'K[9:QZ^,0Y[^.:H>?AN7Q^6
ML9?YV1S-J0,>$,21<+PXB]+F$],<;<QRH@A^Y_&T_@C5"4#$YP:<F['O35,.
M&T3)V%?Z6T/YU9KT&W\6E'F4)JNJ@2`*4ME_?3<8-)&_]C8D82P-_%6V8+20
M;;<KEBINY>J7E6-:/AMG&*+9*41334M)A4FI&#;VE=5J3<7_^M^]_`?[3AIO
M^WS9CK(PW+K-.+MR5XR]9@?[D#YT`#PV9!V&95K.]*;S^EUG[W"S,YGQIGF@
M\OP=%/)-$BS=%/+D-,F\-$N*I&FA1M3)=Z7\X9NN%AP-0"Y16O=F;L*VY\$\
M\$Z,#I&B?2VLKFR"S>_5BI0"/I$[`7_G;NH22PEW?9F_/\(:_P*>%ZE^]+SJ
M3?[VWR?%9`Q'C]A-P<HI<@:)992"6R,KRFS8$B(I7^?BD?-5CN5F6&QYJQ,@
M-_(9>DD`.<SO+LY63K&(@7^1*TV3+/.R?DA:7C=<$%05>9QM0XKE^PD7P@F@
M)H(VZ<[N6YOT0QVGP^&@<6+QM8P#OP(,JOAJ%&*!&,]B(].2-<(,#_TO^58I
M1KW%.GKOD7S><JM#6)+[%<IL>TN5+BW6`Y^5=:S>D";(66?Q8I4$][.4U;T&
M;08\AUX<SMDI=],TX,;D,>>D:,S]V/7PMG_6(^6#6?H!61A*!A"=3,8'%TB"
M288#NT1`F441K7J?()1=JU"7]TJ!VGV?QG>GND]&@-[IW24VL\AJE@+%17<P
M[A73\F9IVNWHSIBE6\4DS0:DNT9PMC@VHC9\;Z"G'X&9+1*.-<,VCCID;`%U
M0TFP5QC54#HH$PON!=/`TX6%I;;"R9_&&"`OL1%"`P$CQ`<8=%`ET?TB3:1G
MX:=.?K#=J,?3J>#IX]&GR8A:HR'C,M%7./N'[:#HV7MDDS^.?C9!VA@'"@V,
M(?"B]:+4U7Q&Z1/K1CE@N$F`^22;N0(U-.%H[#X3L;R\"5(!Q!3T0#$)T+E8
M<(@[`*)(5R:CS,AB<XT^$0C8^R>S@T9;C1;&8:"6NJHK1R\F(T(>=JO-[7\<
M3'(KK.6Y'F@1^2$KTEE5GG@QE7TI"S#'F36>3>38]PI$G\1QZIRO(G<0NSY/
MZF<?V;:W)%F`MY.#WPR<R#4*%VHSV95GW,7TWF@T_FA,IS:K7R[''^L\2>Z7
MC49IY:=Q_8MP^)<%`*&R6)SR59FL_VG<'5V.3U13IRN).@U^@BFK!W0O^.P]
MV\?%6UX2NY_KM3OAWO,.LXC7U1ZUAJ8)'2#]\?+F8WU\6]]K-.4A\W'JA!EB
MZ1S,8[#(L![QA_''Q;*^1AD6[S5HY7?)(.@G!?61N.&<%#6Q89Y1'HI"Q7OF
M.%AD.H[>';8"$=4*+74Z);6!G91ZFA1W&B42%K.PJ"QV8Y7-_!I"DQ<&*8'T
MVFG69L]7-%%S`T9Y':=@F)#$/LPX.%.""#'%NR,WN??:\&?)P,TBF*7,FFE6
MT/EQ$@AJ_\0>DE+$Q7\[(%!G-8PD-4KF]5S%"PR3-[HA>&8]%Q3U08B6*7-=
M3;:'%VXBN!YJ:ITVB2OZNT03L)8D6;1&"V23@1L:LE$R1W&N`<FF9,O/J[^O
MYH8;`&@[GA`Z;CT&^A@<)-G6KW8U57*Y9_&D]2O"R\N7[)E>L>1),%TY`*JK
M!O&T%<;WSD,"_EF'XFHPO'1NNM?],^>\W_N&K;/A]47_\@`CU-86H-\+D:-J
MY^\1(_Q"0U#AGON@3[U9Y,X+(T>63(Y`A]Y\H;N:)JXV_G=9CN*HE6^FX!N/
ML.(0]^:+D,\AJ<>#*`*5Q_E>^I<D7LZ,%+\5"5/AGD1Q*Y>."A>/"P`WI#2Q
M?M2`\FF2W3MT'SA%$.$>Y*E05J&?Y^$'[_$[[(7X>Z2.A0<S-I1<Y`;*H19S
M`#^-&4V9<39.$"`^??JD'PZEB;M@$#KPRIC08,L4S?<\)UCS&5DYT=R-GM/,
MXZ2O"]B4+KAI'I1Q5,(I$+(+)6P5D5A1T0G-`T(9P%N<?%:/KBII$!&'[GB;
M)@V\=:>T%EF90NN5D#?!CY%)^#Q.>?,),G+68W0@6C2-(RVR%`.(G@I)&9P&
M,/M1&B+S/,[]ID$#TH%`S"`%?`C2F4'-)(65)Y/FV&`5'RRUH>#`L!&I>2A>
M6OU_!(!%O`:;G*.NWU/2M38&]NJDL=V-PE]R9\8Q2`L])IM.B/D2%#]@\.49
M&/7(39H,,B<`0+JR;++$RW,4R-S$LLA81H/>-0MY9.\/>G24Y$N,N0].Q:"M
M6CU!C_KC&R,DX"453\"#YK+H!5`2*4=?PPI7`-\`AJ2SP)-NY<VX]]FXCZ&P
MB)%=ZL6A<6<JO+IV5MS=`GR8#CG?\`,E?2JD2J&H21+%#LHH9D!V_B0+?IKX
M9>.RW!L,(@GN&_:IQP#K@(!8%"B84F)K(HMNM-I\PGN>.LI4U)JZA!5]X/RZ
MVT!59?A-]C*WLI^3B;SVP(_%/.Q,-Q.`,J@Q::NRAI/6J&N?8K4W"T)@.Y+5
M8)"??#>?\LC!YUETG_O"#YS[I>4:<'S;FWY6!JQ'D8P7U5Q>*A6&<UPV'/U8
M]$8OD";#5)J1,]&[ONV-<G?L?NS=7MWD1<S-W?@O5]W1A_KXIL@'/9V3XA9Y
M;,3,Y=(9GW4'W=&W2Z?WL3LHZI*;[F6W?YVGP4N@<#.\$:8@QDL$S#J588U-
MZ0T^'OEFY3F@`>.$6)2;'E/3F8\?:#Q')*1:ZX4HI&%G:CK=H4*+&-*%UEK2
M4ZAP_P_G65H#\/W"5S?"%.W!B-"*]S=R#QJJY//9>#G\4!=++=T->5/.6KX_
M7:`U51MMZF(X.NM==/L#L"B9+RG+S0?,_8O:3F.'+F(%5"``_6OY.O;])(^O
M7ED,5O%68@L_E@L]O8O.&\VSF,R7@A,<TRZ[-RS#.C.;`U9Z^6V4D.\KP/(@
M64%$S:93RM.B^,'.3VS(5MM%<_<+;-[:+^,(C`H,:%,W"+&J!2#D`=6U+H,Q
M8"#&G[DMXCP(*)X7)_BL1(,EPV3-U8]%=ED7`=?#T$3S8:'@;N+-\($&SV_*
M>+X]XF_XX*Y$05#$T]0^"[E66:`RA6FH*5]UP2"W<T`ROD-[$ISF%8*,B,KS
M\7Z$U.&(HE30G(%C;?9(\$D\H+0#VPK*+FCIW5$[%Z6%,LGSWH7$7JH4MG@H
MN,7WQLKF478+'O,<H>1_/\GM#Z0F<D\C-:D$5*T)JA#P?B)=$XGV4JMV*DSX
MR@TQ<8.MC$P?#4X]&\=6<5>;"7(DSG_/D^]*,**;$H>B-H1\G>"4C$^F,7/Y
M2^:XFO>7E.N^U,FN*@]M4ZXP8_;MF^(;>_8LJY:"FK@B\##QBF)@$T+1]=`Y
M[9YWS\]'O?'X("^8\PQ?^0<K4O[:/!""'B[23K63@GKN$/H<9;_XMQ?B5]9B
M$X@XFO5['O'$34$!DY5I=6OFMB:]DLE)!AL&.W9^B>!I=1@SZ8H%+`BTA5X`
MT>2F=];O#IR+4:_W7ST3]4%FP]&3T2CA%+)SU5N,8UYB*A4_6FTH,F^6V`M>
M_?NK!HC-W&*'E;#X+.%X94]YZ2[KTS,*"<@N7B1$8A%C$47OJ;G,BQ>K_$%&
MZ!>PF>\)U5%TKQ]G*^XP.9;%.+H:0/T7CR_24DVZ6Q`;(@_TTJ/:=I(@"</3
MUA%::S7G&7.A-8S6HB"!Q0G'M+JN'FV8I9M,L+:VC?G;NI`C0W^F:FX+)O5L
M$U@*E$?91;:"I'Q:^P7Z%"1RS=KJD]UKR$1!5\)VU6%]'@;`L8/RI#Z;C\*F
MM@H&@OL()43&S[Z]9^N]%>:,-6V68B1`;<ELL4D&X,51!!Z*$1ODPJ-2E"WV
MW>1^Q=6`,=<L<"C-J;@+**;;]0_Y6]7U0K&`X#6_]4!!:O#@#^NSY;F8%)5Y
M(]#ZE?Q+/F[;V3E9DQ=55')U'*G'L^I&"#T*Q*D?`T)U7#@*8`MD9737X*:I
MZV$R!JN#%.`1_&R1Q!Y>&?FVJ"5'$<A*F[6^?=(\6YW&>:PT=2T.,P.4#5]%
M1);_:5RVI887!'EW?:,=:'?^,ZM1G,%K`SAKC77P_:2?6;]QRD]3JC7D]J4D
M>KA`*8##Y=$J$)0QT_O;:`EK^C#\7-$JR.&-@_4*S,,L@)P6@-;'7(>N$>J+
M&*+K)%PAF4:^[[K:UVS99AT"@('[]-HRO3,*23ID%O_(>";+_PW[R?L.-S42
M=$T+GW6O#&HL"_SV?8#50QCBT^YI0+=*F*3'\0\`?,-,4`J6"Q_-^\PX3.\P
M.G00=8-BWBB;U\*_J$LMR/[IO4?SC9WU6Y<&^S,;?@!KV!3HT2[RN(8B-'%]
M&G`PBGDF4OV_=M13_=HXWNDIN<`J?$Q12'>:191Z-"3&`DB0,9%(T>"`&+U'
M10$9@0&T8-QR$Q-K05PA#NIRFB54E2DDP3#]%)08R)AWE"!1J6+X`1\,W?:O
J[WHGROHB'Z\ZN80Z&6+U4PU\/2V(,G7SK02[\94I>OS_3[QA)6Z(-```
`
end
------------------------------ cut here ------------------------------

--Malcolm

--
Malcolm Beattie <mbeattie@???>
Unix Systems Programmer
Oxford University Computing Services

--
*** Exim information can be found at http://www.exim.org/ ***