update-alternatives again: a homemade hack
After convincing myself by a browse of the perl code that none of the
existing options to update-alternatives will make it do what I want, I
wrote the following. Whoever is responsible for update-alternatives
in Debian, please consider merging this into the official version.
begin 755 sane-update-alternatives
M(R$@+W5S<B]B:6XO<&5R;"`M+0H*(R!I='H@4V%T($%P<B`R.2`Q-#HP-SHT
M,"!01%0@,C`P,`HC(&-H;F%G92!A;&P@86QT97)N871I=F5S("AS;&%V97,@
M:6YC;'5D960I(&%T(&]N8V4N"@IU<V4@4$]325@["G5S92!'971O<'0Z.E-T
M9#L*"B,@1VQO8F%L('9A<FEA8FQE<SH*(R`@)&YA;64@("`@("`@("`@("`@
M3F%M92!O9B!T:&4@86QT97)N871I=F4@*'1H92!S>6UL:6YK*2!W92!A<F4@
M<')O8V5S<VEN9PHC("!`<VQA=F5N86UE<R`@("`@("!,:7-T('=I=&@@;F%M
M97,@;V8@<VQA=F5L:6YK<PHC("`E<VQA=F5N=6T@("`@("`@("!-87`@9G)O
M;2!N86UE(&]F('-L879E;&EN:R!T;R!S;&%V92UI;F1E>"`H:6YT;R!`<VQA
M=F5L:6YK<RD*(R`@0'-L879E;&EN:W,@("`@("`@3&ES="!O9B!S;&%V96QI
M;FMS("AI;F1E>&5D(&)Y('-L879E+6EN9&5X*0HC("`E=F5R<VEO;FYU;2`@
M("`@("!-87`@9G)O;2!C=7)R96YT;'D@879A:6QA8FQE('9E<G-I;VYS(&EN
M=&\@0'9E<G-I;VYS(&%N9"!`<')I;W)I=&EE<PHC("!`=F5R<VEO;G,@("`@
M("`@("!,:7-T(&]F(&%V86EL86)L92!V97)S:6]N<R!F;W(@86QT97)N871I
M=F4*(R`@)7!R:6]R:71I97,@("`@("`@36%P(&9R;VT@0'9E<G-I;VXM:6YD
M97@@=&\@<')I;W)I='D*(R`@)7-L879E<&%T:"`@("`@("`@36%P(&9R;VT@
M*$!V97)S:6]N+6EN9&5X+'-L879E;F%M92D@=&\@<VQA=F4M<&%T:`H*)'9E
M<G-I;VX](C$N-BXQ,BXY.2([(",@5&AI<R!L:6YE(&UO9&EF:65D(&)Y($UA
M:V5F:6QE"G-U8B!U<V%G979E<G-I;VX@>PH@("`@<')I;G0H4U1$15)2(#P\
M14Y$*0I5<V%G93H@<V%N92UU<&1A=&4M86QT97)N871I=F5S(#QN86UE/B`\
M<&%T:#X*3W!T:6]N<SH@("UV("UH("UA(#QA;'1?9&ER96-T;W)Y/B`M9"`\
M861M7V1I<F5C=&]R>3X*14Y$"B`@("`@("`@?'P@)G%U:70H(F9A:6QE9"!T
M;R!W<FET92!U<V%G93H@)"$B*3L*?0IS=6(@<75I="![('!R:6YT(%-41$52
M4B`B<V%N92UU<&1A=&4M86QT97)N871I=F5S.B!`7UQN(CL@97AI="@R*3L@
M?0IS=6(@8F%D=7-A9V4@>R!P<FEN="!35$1%4E(@(G-A;F4M=7!D871E+6%L
M=&5R;F%T:79E<SH@0%]<;EQN(CL@)G5S86=E=F5R<VEO;CL@97AI="@R*3L@
M?0H*)&%L=&1I<CT@)R]E=&,O86QT97)N871I=F5S)SL*)&%D;6EN9&ER/2`G
M+W9A<B]L:6(O9'!K9R]A;'1E<FYA=&EV97,G.PHD=F5R8F]S96UO9&4](#`[
M"@II9B`H(6=E=&]P=',H)W9H83ID.B<I*2![(&)A9'5S86=E("=B860@;W!T
M:6]N*',I)SL@?0II9B`H0$%21U8@(3T@,BD@>R!B861U<V%G92`G/&YA;64^
M(&%N9"`\<&%T:#X@87)G=6UE;G1S(')E<75I<F5D)SL@?0H*:68@*"1O<'1?
M:"D@>R`F=7-A9V5V97)S:6]N.R!E>&ET(#`[('T*"FEF("@D;W!T7V$I('L@
M)&%L=&1I<B`]("1O<'1?83L@?0II9B`H)&]P=%]D*2![("1A9&UI;F1I<B`]
M("1O<'1?9#L@?0II9B`H)&]P=%]V*2![("1V97)B;W-E;6]D92`](#$[('T*
M"B1\/3$["B1N86UE(#T@)$%21U9;,%T["B1P871H(#T@)$%21U9;,5T["@H@
M:68@*&]P96XH048L(B1A9&UI;F1I<B\D;F%M92(I*2!["B`@("`D;6%N=6%L
M/2`F9VPH(FUA;F9L86<B*3L*("`@("1M86YU86P@97$@)V%U=&\G('Q\("1M
M86YU86P@97$@)VUA;G5A;"<@?'P@)F)A9&9M="@B;6%N9FQA9R(I.PH@("`@
M)&QI;FL]("9G;"@B;&EN:R(I.PH@("`@=VAI;&4@*"@D<VYA;64]("9G;"@B
M<VYA;64B*2D@;F4@)R<I('L*("`@("`@("!P=7-H*$!S;&%V96YA;65S+"1S
M;F%M92D["B`@("`@("`@9&5F:6YE9"@D<VQA=F5N=6U[)'-N86UE?2D@)B8@
M)F)A9&9M="@B9'5P;&EC871E('-L879E("1T<VYA;64B*3L*("`@("`@("`D
M<VQA=F5N=6U[)'-N86UE?3T@)"-S;&%V96YA;65S.PH@("`@("`@("1S;&EN
M:ST@)F=L*")S;&EN:R(I.PH@("`@("`@("1S;&EN:R!E<2`D;&EN:R`F)B`F
M8F%D9FUT*")S;&%V92!L:6YK('-A;64@87,@;6%I;B!L:6YK("1L:6YK(BD[
M"B`@("`@("`@)'-L879E;&EN:V-O=6YT>R1S;&EN:WTK*R`F)B`F8F%D9FUT
M*")D=7!L:6-A=&4@<VQA=F4@;&EN:R`D<VQI;FLB*3L*("`@("`@("!P=7-H
M*$!S;&%V96QI;FMS+"1S;&EN:RD["B`@("!]"B`@("!W:&EL92`H*"1V97)S
M:6]N/2`F9VPH(G9E<G-I;VXB*2D@;F4@)R<I('L*("`@("`@("!D969I;F5D
M*"1V97)S:6]N;G5M>R1V97)S:6]N?2D@)B8@)F)A9&9M="@B9'5P;&EC871E
M('!A=&@@)'1V97(B*3L*("`@("`@("!P=7-H*$!V97)S:6]N<RPD=F5R<VEO
M;BD["B`@("`@("`@)'9E<G-I;VYN=6U[)'9E<G-I;VY]/2`D:3T@)"-V97)S
M:6]N<SL*("`@("`@("`D<')I;W)I='D]("9G;"@B<')I;W)I='DB*3L*("`@
M("`@("`D<')I;W)I='D@/7X@;2]>6RTK73]<9"LD+R!\?"`F8F%D9FUT*")P
M<FEO<FET>2`D=F5R<VEO;B`D<')I;W)I='DB*3L*("`@("`@("`D<')I;W)I
M=&EE<ULD:5T]("1P<FEO<FET>3L*("`@("`@("!F;W)E86-H("1S;&%V96YA
M;64@*$!S;&%V96YA;65S*2!["B`@("`@("`@("`@("1S;&%V97!A=&A[)&DL
M)'-L879E;F%M97T]("9G;"@B<W!A=&@B*3L*("`@("`@("!]"B`@("!]"B`@
M("!C;&]S92A!1BD["B`@("`D9&%T87)E860],3L*?2!E;'-I9B`H)"$@(3T@
M)D5.3T5.5"D@>PH@("`@)G%U:70H(F9A:6QE9"!T;R!O<&5N("1A9&UI;F1I
M<B\D;F%M93H@)"$B*3L*?0H*)F-O;F9I9U]A;'1E<FYA=&EV97,H)&YA;64I
M.PIE>&ET(#`["@IS=6(@8V]N9FEG7V%L=&5R;F%T:79E<R!["B`@("!G<F5P
M*"@D<&%T:"!E<2`D7RDL($!V97)S:6]N<RD@?'P@)G%U:70H(B1P871H(&ES
M(&YO="!O;F4@;V8@=&AE(&%L=&5R;F%T:79E<R!F;W(@)&YA;64A(BD[(`H@
M("`@<')I;G0@4U1$3U54(")5<VEN9R`D<&%T:"!T;R!P<F]V:61E("1N86UE
M+EQN(CL*("`@("1P<F5F97)R960@/2`D=F5R<VEO;FYU;7LD<&%T:'T["B`@
M("!M>2`D<W!A=&@@/2`D=F5R<VEO;G-;)'!R969E<G)E9%T["B`@("!S>6UL
M:6YK*"(D<W!A=&@B+"(D86QT9&ER+R1N86UE+F1P:V<M=&UP(BD@?'P*("`@
M("`@("`F<75I="@B=6YA8FQE('1O(&UA:V4@)&%L=&1I<B\D;F%M92YD<&MG
M+71M<"!A('-Y;6QI;FL@=&\@)'-P871H.B`D(2(I.PH@("`@<F5N86UE7VUV
M*"(D86QT9&ER+R1N86UE+F1P:V<M=&UP(BPB)&%L=&1I<B\D;F%M92(I('Q\
M"B`@("`@("`@)G%U:70H(G5N86)L92!T;R!I;G-T86QL("1A;'1D:7(O)&YA
M;64N9'!K9RUT;7`@87,@)&%L=&1I<B\D;F%M93H@)"$B*3L*("`@(&EF("@D
M=F5R8F]S96UO9&4I('L@)G!R*")P;VEN=&5D("1A;'1D:7(O)&YA;64@=&\@
M)'-P871H(BD@?3L*("`@(&9O<F5A8V@@)'-L879E;F%M92`H0'-L879E;F%M
M97,I('L*("`@("`@("`D<W!A=&@@/2`D<VQA=F5P871H>R1P<F5F97)R960L
M)'-L879E;F%M97T["B`@("`@("`@<WEM;&EN:R@B)'-P871H(BPB)&%L=&1I
M<B\D<VQA=F5N86UE+F1P:V<M=&UP(BD@?'P*("`@("`@("`@("`@)G%U:70H
M(G5N86)L92!T;R!M86ME("1A;'1D:7(O)'-L879E;F%M92YD<&MG+71M<"!A
M('-Y;6QI;FL@=&\@)'-P871H.B`D(2(I.PH@("`@("`@(')E;F%M95]M=B@B
M)&%L=&1I<B\D<VQA=F5N86UE+F1P:V<M=&UP(BPB)&%L=&1I<B\D<VQA=F5N
M86UE(BD@?'P*("`@("`@("`@("`@)G%U:70H(G5N86)L92!T;R!I;G-T86QL
M("1A;'1D:7(O)'-L879E;F%M92YD<&MG+71M<"!A<R`D86QT9&ER+R1S;&%V
M96YA;64Z("0A(BD["B`@("`@("`@:68@*"1V97)B;W-E;6]D92D@>R`F<'(H
M(G!O:6YT960@)&%L=&1I<B\D<VQA=F5N86UE('1O("1S<&%T:"(I('T["B`@
M("!]"GT*"G-U8B!P<B![('!R:6YT*%-41$]55"`B0%]<;B(I('Q\("9Q=6ET
M*")E<G)O<B!W<FET:6YG('-T9&]U=#H@)"$B*3L@?0IS=6(@<&%F('L*("`@
M("1?6S!=(#U^(&TO7&XO("8F("9Q=6ET*")N97=L:6YE<R!P<F]H:6)I=&5D
M(&EN('5P9&%T92UA;'1E<FYA=&EV97,@9FEL97,@*"1?6S!=*2(I.PH@("`@
M<')I;G0H048@(B1?6S!=7&XB*2!\?"`F<75I="@B97)R;W(@=W)I=&EN9R!S
M=&1O=70Z("0A(BD["GT*<W5B(&=L('L*("`@("0A/3`[("1?/2`\048^.PH@
M("`@;&5N9W1H*"1?*2!\?"`F<75I="@B97)R;W(@;W(@96]F(')E861I;F<@
M)&%D;6EN9&ER+R1N86UE(&9O<B`D7ULP72`H)"$I(BD["B`@("!S+UQN)"\O
M('Q\("9B861F;70H(FUI<W-I;F<@;F5W;&EN92!A9G1E<B`D7ULP72(I.PH@
M("`@)%\["GT*<W5B(&)A9&9M="!["B`@("`F<75I="@B:6YT97)N86P@97)R
M;W(Z("1A9&UI;F1I<B\D;F%M92!C;W)R=7!T.B`D7ULP72(I.PI]"G-U8B!R
M96YA;65?;78@>PH@("`@<F5T=7)N("AR96YA;64H)%];,%TL("1?6S%=*2!\
M?"`H<WES=&5M*"@B;78B+"`D7ULP72P@)%];,5TI*2`]/2`P*2D["GT*97AI
?="@P*3L*"B,@=FEM.B!N;W=R87`@=',]."!S=STT"@``
`
end
--
Ian Zimmerman, Oakland, California, U.S.A.
In his own soul a man bears the source
from which he draws all his sorrows and his joys.
Sophocles.
Reply to: