bindings/erlang/collectd.erl

   1 -module(collectd).
   2 -export([dispatch_values/1, register_read/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 register_read (Callback) ->
  10         call_cnode (register_read, Callback).
  11
  12 call_cnode(Func, Args) ->
  13         {any, 'collectd@leeloo.lan.home.verplant.org'} ! {Func, Args},
  14         receive
  15                 { error, Message } ->
  16                         io:format ("Function ~w failed: ~s~n", [Func, Message]),
  17                         error;
  18                 success ->
  19                         success
  20         end.