Update p1_fsm.erl

Fix format_status() by adding Queue and QueueLen fields  to pattern matching StatusData. This way it matches the data sent from decode_message() using sys:handle_system_message(). Otherwise it ends up with badmatch exception when using sys:get_status() on ejabberd_c2s processes.