anchor.diff:      Message2 = sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {run, "arg_test", "{1, int}"}), 
       sensor:send_message(nodes(), Message2).
   
  -test_me_1() ->
  -    Message=sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {save, "send_test", [], "fun([Args]) -> M=sensor:create_message(node(), 'funrunner', {'funrunner test'}), sensor:send_message(nodes(), M)  end.", "Das ist ein Argument Test"}),
  -    sensor:send_message(nodes(), Message),
  -    Message1=sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {list}), 
  -    sensor:send_message(nodes(), Message1),
  -    Message2=sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {run, "send_test", []}), 
  -    sensor:send_message(nodes(), Message2).
  -
  -test_me_2() ->
  -    Message=sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {save, {<<"horst@ua-TA880GB">>, <<"sample_driver">>, <<"default">>}, "fun([Args]) -> M=sensor:create_message(node(), 'funrunner', {'funrunner test'}), sensor:send_message(nodes(), M), {ok}  end.", "Das ist ein Argument Test"}),
  -    sensor:send_message(Message).
  -
  -test_me_3() ->
  -    Message=sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {run, {<<"horst@ua-TA880GB">>,<<"sample_driver">>,<<"default">>,<<"63559059448">>,{temp, 10.0}}}), 
  -    sensor:send_message(Message).
  -
  -%%{"Licht","11111 2","1"}
  -
  -test_me_4() ->
  -    Message=sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {save, "msg_test", {<<"horst@ua-TA880GB">>, <<"sample_driver">>, <<"default">>}, "fun(Name, [Args]) -> M=sensor:create_message(node(), Name, {\"Licht\",\"11111 2\",\"1\"}), sensor:send_message(M)  end.", "Anschalten Licht"}),
  -    sensor:send_message(Message).
  -
  -test_schimmel() ->
  -    Message=sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {save, "schimmel", {<<"horst@raspberrypi">>,<<"dht22_driver">>,<<"default">>}, "fun(Name, [{temp, Temp}, {hum, Hum}]) -> io:format(\"~p~p~n\", [Temp, Hum]) end.", "Schimmel App"}),
  -    sensor:send_message(Message).
  -
   test_schimmel1() ->
       Message=sensor:create_message(node(), 'testmodule', sensor:get_id([]), {save, "schimmel", {<<"horst@raspberrypi">>,<<"dht22_driver">>,<<"default">>}, "fun(Name, [{temp, Temp}, {hum, Hum}]) -> io:format(\"~p~p~n\", [Temp, Hum]) end.", "Schimmel App"}),
       sensor:send_message(Message).
  
positive.code:     Config;
  
  handle_msg([Node ,Driver, Id, Time, Body] = Msg, Config, Module_config) ->
      Funs = proplists:get_value(funs, Module_config, []),
      case get_fun(Funs, {Node, Driver, Id}) of   
         {Name, Fun} -> handle_msg([Node ,Driver, Id, Time, {run, {Node, Driver, Id, Time, Body}}], Config, Module_config);
         [] -> lager:info("no fun found for : ~p", [Msg]),
  
negative.code: handle_msg([Node ,Sensor, Id, Time, {run,{Node_1, Driver_1, Id_1, Time_1, Body}}], Config, Module_config) ->
      Msg = {Node_1, Driver_1, Id_1, Body},
      lager:info("run fun for message : ~p ", [Msg]),
      Funs = config:get_value(funs, Module_config, []),
      {Name, Fun} = get_fun(Funs, {Node_1, Driver_1, Id_1}),      
      try
          Result = run_fun(Fun, Name, Body),
  