anchor.diff:  	0 ->
   	    {NewLength, LenBytes + 1}
       end.
  -
  
positive.code: 	undefined ->
  	    0;
  	Key ->
  	    Digits = lists:filter(fun(C) -> (C >= 48) andalso (C =< 57) end, Key),
  	    NumberOfSpaces = length(lists:filter(fun(C) -> C == 32 end, Key)),
  	    list_to_integer(Digits) div NumberOfSpaces
      end.
  
  
  challenge(Key1, Key2, Challenge) ->
      BinaryAnswer =
  
negative.code:      "WebSocket-Location: ", WebSocketLocation, "\r\n",
       "\r\n"].
  
  ws_version(Headers) ->
      case query_header("sec-websocket-key1", Headers) of
  	undefined ->  ws_75;
  	_         ->  ws_76
      end.
  
  %% This should take care of all the Data Framing scenarios specified in
  %% http://tools.ietf.org/html/draft-hixie-thewebsocketprotocol-66#page-26
  