               (str "sudo " cmd)
               cmd)
         ssh-options (or (:ssh-options m) (find-client-options host user cluster :ssh-options))]
+    (check-valid-options m :sudo :ssh-options :mode :scp-options)
 	(log-with-tag host "ssh" ssh-options cmd)
 	(exec host
           user

        tmp (if use-tmp
              (or *tmp-dir* (str "/tmp/control-" (System/currentTimeMillis) "/"))
              remote)]
    (log-with-tag host "scp" scp-options
      (join " " (concat files [ " ==> " tmp])))
    (if use-tmp


  "
  [key value & kvs]
  (let [options (apply hash-map key value kvs)]
    (check-valid-options options :user :ssh-options :scp-options :rsync-options)
    (swap! *global-options* merge options)))
  
(defn clear-options!
  "Clear global options"
  []
