#!/usr/bin/perl # # Keep track of Zaza's processes system("ps -ax >/var/tmp/pslist"); open (PROCESSES, "/var/tmp/pslist"); $tcxServer_running = "red"; $baseServer_running = "red"; $buttonServer_running = "red"; $pantiltServer_running = "red"; $laserServer_running = "red"; $colliServer_running = "clear"; $wanderlaser_running = "clear"; $wander_running = "clear"; $wandercolli_running = "clear"; $buttoncall_running = "clear"; while () { $_ =~ m/\d+:\d+.(.*)/; if ($1 eq "bin/tcxServer ") { $tcxServer_running = "green"; } if ($1 eq "bin/baseServer ") { $baseServer_running = "green"; } if ($1 eq "bin/buttonServer ") { $buttonServer_running = "green"; } if ($1 eq "bin/pantiltServer ") { $pantiltServer_running = "green"; } if ($1 eq "bin/laserServer ") { $laserServer_running = "green"; } if ($1 eq "bin/colliServer ") { $colliServer_running = "green"; } if ($1 eq "src/beeExamples/buttoncall ") { $buttoncall_running = "green"; } if ($1 eq "src/beeExamples/wander ") { $wander_running = "green"; } if ($1 eq "src/beeExamples/wander-laser ") { $wanderlaser_running = "green"; } if ($1 eq "src/beeExamples/wander-colli ") { $wandercolli_running = "green"; } } close PROCESSES; # Check values returned from form, startup or shutdown servers and apps. # Don't block while doing so, and return status when completed. print "Content-Type: text/html\n\n"; print ""; print ""; print ""; print "

"; print "

Servers Running

"; print "

tcxServer	"; print ""; print "
baseServer	"; print ""; print "
buttonServer	"; print ""; print "
pantiltServer	"; print ""; print "
laserServer	"; print ""; print "
colliServer	"; print ""; print "

"; print "

Applications Running

"; print "

buttoncall	"; print ""; print "
wander	"; print ""; print "
wander-laser	"; print ""; print "
wander-colli	"; print ""; print "

"; print "\n";