while true
do
read $input
if $input
then
(light(blinky) = true)
call(SYSAD)
;;
(database(crash) = true)
call(DBA)
;;
(application(slow) = true)
call(application developer)
open(conference call)
;;
(user(squawk) = true)
call(someone who cares)
;;
(server(smoke) = true)
leave(building)
;;
*)
call(supervisor)
supervisor(decide)
follow(decision)
;;
esac
$input = “”
fi
sleep 30 or die “Can’t sleep on duty”
done
No comments:
Post a Comment