Pool Member Control app in perl

Hi,

 

 

 

Does anyone know if a perl version of the Pool Member Control app (https://devcentral.f5.com/wiki/iControl.JavaPoolMemberControl.ashx) exist?

 

 

 

It would be nice to be able to drive this via a EAV monitor on the bigip - something along these lines:

 

 

 

@@

 

if [ ${RESPONSECODE} = "404" ];

 

then

 

perl /usr/bin/monitors/member_control.pl ${POOL_NAME} ${IP} ${PORT} DISABLE

 

fi

 

 

 

if [ ${RESPONSECODE} = "200" ];

 

then

 

perl /usr/bin/monitors/member_control.pl ${POOL_NAME} ${IP} ${PORT} ENABLE

 

fi

 

 

 

 

 

As far as i know the java version would need compiling in order to run on a bigip? Is this documented anywhere?

 

 

 

thanks,

 

 

 

Claud