stopping heartbeat from a heartbeat managed service

[Dean Richardson]

I am trying to figure out a way to kill off heartbeat from within a perl 
script that heartbeat manages and it does not seem to be functioning. The 
heartbeat stop  works in the script outside of the heartbeat start process 
sequence, but not in the start sequence.

For example:
heartbeat starts
heartbeat takes over services
heartbeat starts script which will execute heartbeat stop (perl)
heartbeat completes service take over without incident

we dont want that.

We want
heartbeat starts
heartbeat takes over services
heartbeat starts script which will execute heartbeat stop (perl)
heartbeat gets shut down

Anybody have any ideas?

If anyone is wondering why I am trying to do this... I am trying to come up 
with a way to make heartbeat smarter so it does not take over after a power 
failure or other dual server affecting event and make it make sure the 
server that last was in control definitely gets control of the services on 
restart.