#!/usr/bin/perl

# die commands probably need to be replaced with something else.

use strict;
use warnings;

use IO::Socket;

my $EOL = "\015\012";

my $listen_sock = new IO::Socket::INET (
   LocalAddr => '127.0.0.1',  ###
   LocalPort => '8888',
   Proto     => 'tcp',
   Listen    => 1,
   Reuse     => 1,
) or die("Could not create socket: $!\n");

my $client_sock = $listen_sock->accept()
or die("Error accecpting connnection: $!\n");

{
   local $/ = $EOL;
   my $incoming;
   while (defined($incoming = <$client_sock>)) {
      chomp($incoming);

      die("Received nothing.\n") unless length $incoming;

      my $command;
      ($command, $incoming) = split /\s+/, $incoming, 2;

      if ($command eq "check") {
         my $process_name = $incoming;
         die("check: Bad process name.\n") unless $process_name =~ /^\w+$/;
#         my $num_processes = grep { /$process/ } `ps -ef`;
         my $num_processes = int(rand()*24);  ###
         print $client_sock ($num_processes >= 12 ? "up" : "down"), $EOL;
         next;
      }

      die("Bad command $command.\n");
   }
}

close($client_sock);
close($listen_sock);