/ 
App-Procapult-0.009001
River stage zero No dependents
/ App::Procapult

NAME

App::Procapult - Hand cranked process launcher

SYNOPSIS

$ procapult -s ./ctrl

Then in another shell ...

$ socat - ./ctrl
STATUS: stopped
start sleep 3
STATUS: started 31563 sleep 3
STATUS: stopped
start bash
STATUS: started 31585 bash

And play with the bash in the first shell until you're bored then

stop
STATUS: stopped
die
$

and with that, your procapult will expire in a puff of logic.

DESCRIPTION

The idea for procapult is to have a process launcher that sits around doing nothing, until you tell it to start something, at which point it runs that until it exits or you tell it to stop it.

A procapult can, by design, only run one process at once - it's expected to be started in a screen/tmux/dtach window or an xterm, so the behaviour is as simple as possible.

To control your procapult, you make a unix socket connection to the control socket passed when you started it. Multiple clients are permitted at the same time, and if they step on each others' toes that's considered operator error on your part.

The protocol for the socket is so simple even I can understand it:

  • On connect, procapult sends its current status

  • When the status changes, procapult sends the new status

  • Status lines look like one of

    STATUS: started 12345 some shell process
STATUS: stopped

    where 12345 is the pid of the process procapult is currently running

  • Valid commands are 'start', 'stop' and 'die'

  • 'start some shell process' passes the string 'some shell process' to perl's exec()

  • 'stop' causes procapult to send its process a SIGHUP

  • 'die' causes procapult itself to commit harakiri

  • If your command is malformed or makes no sense, procapult sends an error line

  • Error lines look like

    ERROR: some description of what went wrong

  • A successful command returns nothing, on the assumption that a status line will be along shortly to tell you what happened

  • That's all, folks.

SIGNAL HANDLING

procapult traps both INT and QUIT, because it's likely sat at the root of a terminal. So Ctrl-C and Ctrl-\ won't blow it up. If you actually want your procapult to fall down and go boom, you can either send it a SIGTERM, which incidentally is what 'kill 12345' will do anyway, or send it a die -

$ echo die | socat - /path/to/procapult/socket

SCRIPTING CLIENT

You can also avoid needing to use socat (or your own unix socket logic) by using the built-in client:

# sends start, reads one line, prints, exits
#
$ procapult -s foo start some process name
STATUS: started 12345 some process name
$

# sends stop, reads one line, prints, exits
#
$ procapult -s foo stop
STATUS: stopped
$

# sends start, reads one line, exits if not started, reads until stop, exits
#
$ procapult -s foo run sleep 3
STATUS: started 12345 sleep 3
STATUS: stopped
$

# sends die to kill the procapult, exits
#
$ procapult -s foo die
$

# reads status, prints, exits
#
$ procapult -s foo status
STATUS: stopped
$

# reads status, prints, repeats until killed
#
$ procapult -s foo watch
STATUS: stopped
STATUS: started 12345 sleep 3
STATUS: stopped
...

USAGE EXAMPLE

The purpose for which this code was originally written was that I tend to run clusters of four xterms locally and connect them to matching server sessions. Which gets boring when my connection's a bit patchy. So what I can now do is -

# on the server
#
$ for i in tl tr bl br; do dtach -c ~/dtach/0$i -z bash; done

which starts four dtach sessions running bash (if you don't know dtach, think "screen for grumpy minimalists" and you won't be far wrong). Then on my machine I start my four xterms, and in each one start a procapult -

# in different terminals -
#
$ procapult -s ~/clus0/tl
$ procapult -s ~/clus0/tr
$ procapult -s ~/clus0/bl
$ procapult -s ~/clus0/br

and then with that done, I can cause a full (re)connect simply with -

$ for i in tl tr bl br; do
    procapult -s ~/clus0/$i start ssh -t servername dtach -a dtach/0$i;
  done

noting that the -t is required to get a tty allocated even though we're not just letting ssh start a shell, and if any of the four haven't died then you'll just get an error from those, which procapult will duly print out and assume is now your problem. Obviously, if you care about noticing when something falls over, you wanted either 'run' instead of 'start' or to run 'status' or 'watch' as preferred.

SUPPORT

While you can, in theory, email me, and I will, in theory, reply at some point, you're far better bugging me on #web-simple on irc.perl.org. I'm 'mst' on there, and my client is permanently connected, so while I might not reply until tomorrow if I've already called pubtime I should reply eventually.

AUTHOR

mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>

CONTRIBUTORS

None yet - maybe this software is perfect! (ahahahahahahahahaha)

COPYRIGHT

Copyright (c) 2015 the App::Procapult "AUTHOR" and "CONTRIBUTORS" as listed above.

LICENSE

This library is free software and may be distributed under the same terms as perl itself.