[lvs-users] ldirectord checktype external-perl

Bright Fulton bright.fulton at gmail.com
Fri Jan 16 03:26:38 GMT 2009


Thanks.  Will do.

Bright


On Thu, Jan 15, 2009 at 10:15 PM, Simon Horman <horms at verge.net.au> wrote:
> On Wed, Jan 14, 2009 at 06:27:05PM -0500, Bright Fulton wrote:
>> On Tue, Jan 13, 2009 at 5:42 PM, Bright Fulton <bright.fulton at gmail.com> wrote:
>> > I'm using the following (and attached, if it gets through) patch to
>> > ldirectord which adds a new checktype: external-perl.  This allows an
>> > external check which is written in Perl to run as a call to an
>> > anonymous subroutine instead of to system().  I'd appreciate any
>> > comments on the concept, implementation and possibility of acceptance.
>>
>> Apologies, the following is also required.  This fixes a bug in the
>> introduced exit() wrapping: we need to pass a scalar to CORE::exit or
>> ldirectord will always exit 1.
>>
>> diff -r --exclude=.hg heartbeat-dev/ldirectord/ldirectord.in
>> heartbeat-dev-2/ldirectord/ldirectord.in
>> 729c729
>> <       *CORE::GLOBAL::exit = sub { CORE::exit @_; }
>> ---
>> >       *CORE::GLOBAL::exit = sub { CORE::exit(@_ ? shift : 0); };
>>
>> The cumulative patch is attached.
>
> Thanks, I have applied this to the linux-ha dev tree, and it should appear
> in the next release.
>
> http://hg.linux-ha.org/dev/rev/f2ec804aa6b7
>
> If you have any updates please send them to lvs-users or lvs-devel
> and CC me.
>
> Thanks
>
> --
> Simon Horman
>  VA Linux Systems Japan K.K., Sydney, Australia Satellite Office
>  H: www.vergenet.net/~horms/             W: www.valinux.co.jp/en
>
>




More information about the lvs-users mailing list