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: %%      defined for the autoscale process.
  %%      The module is used by autoscale if the following option has been set in
  %%      scalaris.local.cfg:
  %%        {as_cloud_module, cloud_ssh}
  %%      The following options can also be set:
  %%        {cloud_ssh_hosts, ["host1", "host2", ..., "hostn"]}.
  %%        {cloud_ssh_args, "arguments for ssh"}.
  %%        {cloud_ssh_path, "path/to/scalaris/installation/on/host"}.
  %% @end
  %% @version $Id$
  -module(cloud_ssh).
  
negative.code:                   end, Hosts),
      ok.
  
  start_scalaris_vm(Hostname) ->
      Scalaris = get_scalaris_service(),
      Services = [Scalaris | get_additional_services()],
      lists:foreach(fun (Service) ->
                            {StartCmd, _} = Service,
                            Cmd = format("ssh ~s ~s ~s", [get_ssh_args(), Hostname, StartCmd]),
                            io:format("Executing: ~p~n", [Cmd])
                            _ = os:cmd(Cmd)
                    end, Services),
      ok.
  
  stop_scalaris_vm(Hostname) ->
      Scalaris = get_scalaris_service(),
      Services = [Scalaris | get_additional_services()],
      lists:foreach(fun (Service) ->
                            {_, StopCmd} = Service,
                            Cmd = format("ssh ~s ~s ~s", [get_ssh_args(), Hostname, StopCmd]),
                            io:format("Executing: ~p~n", [Cmd])
                            _ = os:cmd(Cmd)
                    end, Services),
      ok.
  
  format(FormatString, Items) ->
      lists:flatten(io_lib:format(FormatString, Items)).
  
  get_hosts() ->
      case api_tx:read(?cloud_ssh_key) of
          {ok, Val} ->
  