#!/usr/bin/perl
#

print "Starting wander demo...\n";

system("killall -HUP wander");

#/home/bee-new/src/beeExamples/wander -safetyMargin=30 -exploreRange=1000 -transSpeed=20 -transAccel=60 &
#/home/bee-new/src/beeExamples/wander-laser -usePantilt=n -safetyMargin=20 -exploreRange=1000 -transSpeed=20 -transAccel=60 &
#/home/bee-new/src/beeExamples/reaction3 -zap=Y -Dynamic=Y &

system("echo \"Starting wander demo.\" | /home/bee/speakit.pl >/dev/null 2>&1 &") == 0
         or print "speakit.pl execution failed: $?";

system("cd /home/bee-new; src/beeExamples/wander-laser -limp=Y -usePantilt=n -safetyMargin=20 -exploreRange=1000 -transSpeed=20 -transAccel=60 & >/usr/local/apache/htdocs/logs/wander-laser.log 2>&1 &") == 0
         or print "wander-laser startup failed: $?";

system("cd /home/bee-new; src/beeExamples/reaction3 -zap=Y -Dynamic=Y & >/usr/local/apache/htdocs/logs/reaction.log 2>&1 &") == 0
         or print "reaction startup failed: $?";