anchor.diff:  	Answer.
   	
   authenticate_subscriber1(Socket, Address,
  -		Port, PeerID, Password, Secret, NasID, ReqAuth, RadID, AcctSessionID) ->
  +		Port, PeerID, Password, Secret, NasID, ReqAuth, RadID,
  +		DiscPort, AcctSessionID) ->
   	RadAttribute = radius_attributes:add(?UserPassword, Password, []),
   	access_request(Socket, Address, Port, PeerID, Secret,
   			NasID, ReqAuth, RadID, AcctSessionID, RadAttribute),
  -	disconnect_request(),
  +	disconnect_request(DiscPort),
   	access_accept(Socket, Address, Port, RadID).
   
  
positive.code: 	{ok, [{auth, AuthInstance}, {acct, AcctInstance}]} = application:get_env(ocs, radius),
  	[{AuthAddress, AuthPort, _} | _] = AuthInstance,
  	[{AcctAddress, AcctPort, _} | _] = AcctInstance,
  	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, binary]), 
  	PeerID = ocs:generate_identity(),
  	Secret = ct:get_config(radius_shared_secret),
  	Password = ocs:generate_password(),
  
negative.code: 	AccAttributes = radius_attributes:codec(A2),
  	Acc1Length = size(AccAttributes) + 20,
  	AccAuthenticator = crypto:hash(md5, [<<?AccountingRequest, RadID,
  			Acc1Length:16, 0:128>>, AccAttributes, Secret]),
  	AccountingRequest = #radius{code = ?AccountingRequest, id = RadID,
  			authenticator = AccAuthenticator, attributes = AccAttributes},
  	AccPacket = radius:codec(AccountingRequest),
  