anchor.diff:  					[{"secret", NewPassword}] ->
   						Protocol_Atom = string:to_upper(atom_to_list(CurrProtocol)),
   						perform_patch1(Id, CurrDiscPort, Protocol_Atom, NewPassword);
  -					[{"disconnectPort", NewDiscPort},{"protocol", "RADIUS"}] ->
  +					[{"disconnectPort", NewDiscPort},{"protocol", RADIUS}] 
  +							when RADIUS =:= "radius"; RADIUS =:= "RADIUS" ->
   						perform_patch2(Id, NewDiscPort, radius, CurrSecret);
  -					[{"disconnectPort", NewDiscPort},{"protocol", "radius"}] ->
  -						perform_patch2(Id, NewDiscPort, radius, CurrSecret);
  -					[{"disconnectPort", NewDiscPort},{"protocol", "DIAMETER"}] ->
  -						perform_patch2(Id, NewDiscPort, diameter, CurrSecret);
  -					[{"disconnectPort", NewDiscPort},{"protocol", "diameter"}] ->
  +					[{"disconnectPort", NewDiscPort},{"protocol", DIAMETER}]
  +							when DIAMETER =:= "diameter"; DIAMETER =:= "DIAMETER" ->
   						perform_patch2(Id, NewDiscPort, diameter, CurrSecret)
   				end
   			catch
  
positive.code: 			{error, 404}
  	end.
  
  -spec perform_get_all() -> Result 
  	when
  		Result ::{ok, Headers :: [string()],
  				Body :: iolist()} | {error, ErrorCode :: integer()}.
  
negative.code: 	try 
  		{struct, Object} = mochijson:decode(RequestBody),
  		{_, Id} = lists:keyfind("id", 1, Object),
  		DiscPort = proplists:get_value("disconnectPort", Object, 3799),
  		Protocol = case proplists:get_value("protocol", Object, "radius") of
  			RADIUS when RADIUS =:= "radius"; RADIUS =:= "RADIUS" ->
  				radius;
  			DIAMETER when DIAMETER =:= "diameter"; DIAMETER =:= "DIAMETER" ->
  				diameter
  		end,
  		Secret = proplists:get_value("secret", Object, ocs:generate_password()),
  		perform_post1(Id, DiscPort, Protocol, Secret)
  	catch
  		_Error ->
  