anchor.diff:          Args -> Args
       end.
   
  -get_path() ->
  -    case config:read(cloud_ssh_path) of
  -        failed -> "scalaris";
  -        Args -> Args
  +get_scalaris_service() ->
  +    Path =
  +        case config:read(cloud_ssh_path) of
  +            failed -> "scalaris";
  +            Arg -> Arg
  +        end,
  +    {format("~s/~s", [Path, ?scalaris_start]), format("~s/~s", [Path, ?scalaris_stop])}.
  +
  +get_additional_services() ->
  +    case config:read(cloud_ssh_services) of
  +        failed -> [];
  +        [T|H] -> [T|H]
       end.
   
   get_number_of_active_vms(Hosts) ->
  
positive.code:                   end, Hosts),
      ok.
  
  get_hosts() ->
      case api_tx:read(?cloud_ssh_key) of
          {ok, Val} ->
  
negative.code: -export([init/0, get_number_of_vms/0, add_vms/1, remove_vms/1, killall_vms/0]).
  
  -define(cloud_ssh_key, "2a42cb863313526fca96098a95020db2a904b01157f191a9bb3200829f8596c7").
  -define(scalaris_start, "bin/./scalarisctl -e -detached -s -p 14915 -y 8000 -n node start").
  -define(scalaris_stop, "bin/./scalarisctl -n node gstop").
   
  %%%%%%%%%%%%%%%%%%%%%
  %%%% Behavior methods
  