An OpenFlow controller implemented in Erlang