bindings/erlang/collectd.erl

   1 -module(collectd).
   2 -export([dispatch_values/1]).
   3
   4 -include("collectd.hrl").
   5
   6 dispatch_values (VL) when is_record (VL, value_list) ->
   7         call_cnode (dispatch_values, VL).
   8
   9 call_cnode(Func, Args) ->
  10         {any, 'collectd@leeloo.lan.home.verplant.org'} ! {Func, Args},
  11         receive
  12                 { error, Message } ->
  13                         io:format ("Function ~w failed: ~s~n", [Func, Message]),
  14                         error;
  15                 success ->
  16                         success
  17         end.