symlink-remote ( username host target link-name -- )

Vocabulary

mason.common

Inputs

username	an object
host	an object
target	an object
link-name	an object

Outputs

None

Definition

USING: mason.config namespaces ;

IN: mason.common

:: symlink-remote ( username host target link-name -- )
    ssh-command get :> ssh 5 [
        { ssh host "-l" username "ln" "-sf" target link-name }
        short-running-process
    ] retry ;