anchor.diff:          {_, active} ->
               add_or_remove_vms(add, Pending, RemainingHosts, UpdatedHosts ++ [Host]);
           {Hostname, _} ->
  -            start_scalaris_vm(Hostname),
  +            scalaris_vm(start, Hostname),
               add_or_remove_vms(add, Pending - 1, RemainingHosts, UpdatedHosts ++ [{Hostname, active}])
       end;
   add_or_remove_vms(remove, Pending, Hosts, UpdatedHosts) ->
       [Host | RemainingHosts] = Hosts,
       case Host of
           {Hostname, active} ->
  -            stop_scalaris_vm(Hostname),
  +            scalaris_vm(stop, Hostname),
               add_or_remove_vms(remove, Pending - 1, RemainingHosts, UpdatedHosts ++ [{Hostname, inactive}]);
           {_, _} ->
               add_or_remove_vms(remove, Pending, RemainingHosts, UpdatedHosts ++ [Host])
  
positive.code: 		_ -> fail
  	end.
  
  -spec get_ssh_args() -> string().
  get_ssh_args() ->
      case config:read(cloud_ssh_args) of
          failed -> "";
          Args -> Args
      end.
  
  -spec get_scalaris_service() ->  tuple(string(), string()).
  get_scalaris_service() ->
      Path =
  
negative.code: %%%% Helper methods
  %%%%%%%%%%%%%%%%%%%
  
  -spec killall_vms() -> fail | ok.
  killall_vms() ->
  	case get_hosts() of
  		{_, Hosts} ->
      		lists:foreach(fun({Hostname, Status}) ->
                                    case Status of
                                        active ->
                                            scalaris_vm(stop, Hostname);
                                        inactive ->
                                            ok
                                    end
                            end, Hosts),
              ok;
  		fail -> fail
      end.
  
  -spec scalaris_vm(start | stop, string()) -> ok.
  scalaris_vm(Action, Hostname) ->
      Scalaris = get_scalaris_service(),
      Services = [Scalaris | get_additional_services()],
      lists:foreach(fun (Service) ->
  				{StartCmd, StopCmd} = Service,
  				ServiceCmd =
  				case Action of
  								  start -> StartCmd;
  								  stop  -> StopCmd
  							  end,
                            Cmd = format("ssh -n -f ~s \"(~s)\"", [Hostname, ServiceCmd]),
                            io:format("Executing: ~p~n", [Cmd]),
                            _ = exec(Cmd)
                    end, Services),
  