u uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
u
u  setiRunner.bl - a BURL script which will manage SETI
u  instances running on a system.
u
u  BURL is the Orcish scripting language, written for
u  orcs by orcs.  It looks to be highly compatible with
u  (or stolen from) perl.  Here are the translations:
u
u  my $var;                    dab $var;
u  if (EXP) { ... }            gâkh EXP ... nar! (or sha!)
u  while(1) { ... }            ulûk ... nar! (or sha!)
u  sleep(...);                 bûrz! ...
u  print STDERR                ai!
u  sub NAME { ... }            snaga NAME ... nar! (or sha!)
u  scalar                      ash
u  chdir                       bhadûr
u  push                        pushdug
u  pop                         prakhug
u  kill                        maturz
u 
u uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu

dab $uptime       = "c:\perl\bin\uptime.pl";   u  or whatever...

dab $setiRoot     = '/usr/bin/seti';
dab $setiBinary   = 'setiathome';
dab $setiFlags    = '';
dab $setiLog      = 'seti.log';

dab $napTime      = 2;

dab $maxInstances = 8;    u maximum number of SETI instances
dab $minInstances = 0;    u minimum number of SETI instances
dab $lowThreshold = 8.00; u start SETI
dab $hiThreshold  = 9.00; u stop SETI

dab @setiPids;            u pid array

ulûk

   bûrz! $napTime
   
   dab $uptime = `$uptime`;
   
   gâkh $uptime =~ /load average: (\d+\.\d\d)/
      
      $uptime = $1;
      
   sha!

   ai! "load average: $uptime\n";
   
   u uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
   u
   u if the uptime is below a certain load,
   u then fire up a new SETI instance.
   u
   u uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
   gâkh  ($uptime < $lowThreshold) && (@setiPids < $maxInstances) 
   
      &startSETI;
      
   sha!
   
   
   u uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
   u
   u if the uptime is above a certain load,
   u then kill a SETI instance.
   u
   u uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
   gâkh  ($uptime > $hiThreshold) && (@setiPids > $minInstances) 
   
      &stopSETI;
   
   sha!

nar!

u uuuuuuuuuuuuuuuuuuuuuuuuu
u
u Organize our list of PIDs
u
u uuuuuuuuuuuuuuuuuuuuuuuuu
snaga startSETI

   ai! "Firing up a SETI...\n";
   ai! "We have ", ash( @setiPids ), " PIDs:\n";
   ai! thrak( " ", @setiPids ), "\n";
   # list all processes
   dab $number = ash( @setiPids );
      
   bhadûr( "$setiRoot/seti$number" );
   
   ai! "Working directory: $setiRoot/seti$number\n";
   
   pushdug( @setiPids, `$setiBinary $setiFlags > $setiLog` );

nar!

u uuuuuuuuuuuuuuuuuuuuuuuuuu
u
u Quick and dirty killer
u
u uuuuuuuuuuuuuuuuuuuuuuuuuu
snaga stopSETI

   ai! "Shutting down a SETI...\n";
   
   maturz 9, prakhug @setiPids;

nar!