#!/usr/bin/perl use strict; use warnings; # PUBLIC at `http://reluk.ca/sys/bin/` — for no particular reason. =pod =head1 NAME llay-Havoc - Place the Havoc monitors on the desktop =head1 DESCRIPTION Places the Havoc monitoring windows on the desktop. =cut # The note apropos of SSH in `./llay-server` applies here, too. { use Zelea::Function qw( system_or_print ); ## - S c r e e n s - 0 - to - 5 --- ( L L L - to - R R R ) ---------------------------------------------- # 1 = LL # ------ system_or_print( qw( nice --adjustment=2 /usr/local/bin/lay-terminal --screen=1 --all-desktops --below --horz --rows=115 ), '--title=Havoc tail', qw( -- -e /home/mike/sys/libexec/tail-remotely Havoc /usr/local/bin/tail-sys tail-sys-filter sys )); #> (CN=Havoc; S=1; nice --adjustment=2 /usr/local/bin/lay-terminal --screen=$S --all-desktops --below --horz --rows=115 --title="${CN} tail" -- -e ~/sys/libexec/tail-remotely $CN /usr/local/bin/tail-sys tail-sys-filter sys) system_or_print( qw( nice --adjustment=1 /usr/local/bin/lay-terminal --screen=1 --all-desktops --below --cols=136 --rows=66 --title=Havoc --undecorated -- -e ssh -t mike@havoc nice --adjustment=2 htop --delay=20 )) or system_or_print( qw( cascade-pilot --prepo=NE_absolute move )); #> (CN=Havoc; S=1; nice --adjustment=1 /usr/local/bin/lay-terminal --screen=$S --all-desktops --below --cols=136 --rows=66 --title=$CN --undecorated -- -e ssh -t mike@${CN,*} nice --adjustment=2 htop --delay=20 && cascade-pilot --prepo=NE_absolute move) }