Silly little job applicant program

fetlife_erlang_engineer.erl

-module(fetlife_erlang_engineer).
-compile(export_all).

start_interviewer() ->
  spawn(?MODULE, interviewer, []).

apply_for_job(Level) ->
  Ref = make_ref(),
  interview ! {self(), Ref, {skillz, Level}},
  receive
    {Ref, Reply} -> Reply
  after 2000 ->
    timeout
  end.

interviewer() ->
  process_flag(trap_exit, true),
  Pid = spawn_link(?MODULE, interview, []),
  register(interview, Pid),
  receive
    {'EXIT', Pid, normal} ->
      ok;
    {'EXIT', Pid, shutdown} ->
      ok;
    {'EXIT', Pid, _} ->
      interviewer()
  end.

interview() ->
  receive
    {From, Ref, {skillz, bad}} ->
      From ! {Ref, "Next!"};
    {From, Ref, {skillz, okay}} ->
      From ! {Ref, "Meh."};
    {From, Ref, {skillz, good}} ->
      From ! {Ref, "Ohhh, we're interested."};
    {From, Ref, {skillz, great}} ->
      From ! {Ref, "We are VERY interested!"};
    {From, Ref, {skillz, amazing}} ->
      From ! {Ref, "You're making us hot!"}
   end,
  interview().