anchor.diff:  %% --------------------------------------------------------------------
   %%% Internal functions
   %% --------------------------------------------------------------------
  -notify(true, _Name, _Date, []) ->
  +notify(true, _Name, []) ->
       %%lager:info(".... ~p", [Name]),
       false;
  -notify(true, Name, Date, Value) ->
  -    janga_service_event:notify({Name, Date, Value});
  -notify(false, _Name, _Date, _Value) ->
  +notify(true, Name, Value) ->
  +    janga_service_event:notify({Name, Value});
  +notify(false, _Name, _Value) ->
       false.
   
   is_message_well_known({Node, Sensor, Id}, Allowed_msgs) ->    
  
positive.code:     save_data_to_ets(Config, data, Value).
  
  save_data_to_ets(Config, Key, Value) ->
    Table_Id = proplists:get_value(?TABLE, Config),
    ets:insert(Table_Id, [{Key, Value}]).
  
  get_table_id(Config) ->
      proplists:get_value(?TABLE, Config).
  %% --------------------------------------------------------------------
  %% Function: handle_cast/2
  %% Description: Handling cast messages
  
negative.code: handle_call({get_value}, _From, State=#state{value = Value}) ->
      {reply, Value, State};
  handle_call({get_name}, _From, State=#state{config = Config}) ->
      {reply, janga_config:get_value(name, Config) , State};
  handle_call({get_start_time}, _From, State=#state{start_time = Start_time}) ->
      {reply, Start_time, State};
  handle_call({get_type}, _From, State=#state{config = Config}) ->
      {reply, janga_config:get_value(type, Config, undefined) , State};
  handle_call({get_driver}, _From, State=#state{config = Config}) ->
  	{driver, Module, Module_config} = lists:keyfind(driver, 1, Config),
      {reply, {Module, Module_config} , State};
  handle_call({get_icon}, _From, State=#state{config = Config}) ->
      {reply, janga_config:get_value(icon, Config, "service.png") , State};
  handle_call({get_config}, _From, State=#state{config = Config}) ->
      {reply, Config, State};
  handle_call({is_activ}, _From, State=#state{config = Config}) ->
      {reply, janga_config:get_value(activ, Config) , State};
  handle_call({get_timer}, _From, State=#state{config = Config}) ->
      {reply, janga_config:get_value(timer, Config, 0) , State};
  handle_call({get_database}, _From, State=#state{config = Config}) ->
      {reply, janga_config:get_value(database, Config) , State};
  handle_call({get_description}, _From, State=#state{config = Config}) ->
      {reply, janga_config:get_value(description, Config) , State};
  handle_call({get_state}, _From, State) ->
      {reply, State, State};
  handle_call({set_state, New_state}, _From, State) ->
      {reply, State, New_state};
  
  handle_call({get_module_config}, _From, State=#state{config = Config}) ->
      case janga_config:get_value(ets, Config, false) of 
          true -> Table_Id = proplists:get_value(table_id, Config),
                  {reply, ets:tab2list(Table_Id) , State};
          false -> {driver, {_Module, _Func}, Module_config} = lists:keyfind(driver, 1, Config),
                   {reply, Module_config, State}
      end;
  handle_call({get_model}, _From, State=#state{config = Config}) ->    
      Reply = case janga_config:get_value(model_fun, Config, []) of
          [] -> [];
          {Model, Function} -> F=list_to_atom(Function), 
                               Fun = fun Model:F/0,
  