anchor.diff:  %% 	on the port.
   %%
   %% @todo implement disconnect radius accouting if balnce in 0
  -%% @todo Chnage update_subscriber_attributes to update subscriber's balance
  +%% @todo Implement decrement subscriber_balance
   request(Address, Port, Packet, #state{} = State)
   		when is_tuple(Address), is_integer(Port), is_binary(Packet) ->
   	case ocs:find_client(Address) of
  
positive.code: 		Authenticator1 = binary_to_list(Hash),
  		case disk_log:log(Log, Attributes) of
  			ok ->
  				case ocs:find_subscriber(Subscriber) of
  					{ok, _, _, Balance} when Balance > 0, CurrentUsage == 0->
  						{ok, response(Id, Authenticator1, Secret, [])};
  					{ok, Password, Attributes, Balance} when Balance > 0 ->
  % Change update_subscriber_attributes to update balance
  %						NewBalance = Balance - CurrentUsage,
  %						case ocs:update_subscriber_attributes(Subscriber, Password, Attributes,
  %							NewBalance) of
  %								ok ->
  %									{ok, response(Id, Authenticator1, Secret, [])};
  %								{error, _} ->
  %									error
  %						end;
  						io:fwrite("Decrement subscribers balannce");
  					{ok, _, _, 0} ->
  						io:fwrite("implement disconnect RADIUS accouting");
  						%% implement disconnect radius accouting
  					error ->
  						{error, subscriber_not_found}
  				end;
  			{error, _Reason} ->
  				{error, ignore}
  
negative.code: 		end,
  		case {InOctets, OutOctets} of
  			{{error, not_found}, {error, not_found}} ->
  				Usage = 0;
  			{{ok,In}, {ok,Out}} ->
  				Usage = In + Out
  		end,
  		{error, not_found} = radius_attributes:find(?UserPassword, Attributes),
  		{error, not_found} = radius_attributes:find(?ChapPassword, Attributes),
  