4 changed files with 0 additions and 31 deletions
@ -1,31 +0,0 @@ |
|||
#! /usr/bin/env racket |
|||
#lang racket |
|||
|
|||
(require bolt) |
|||
|
|||
(define linode |
|||
(remote |
|||
#:host "linode" |
|||
#:user "wes" |
|||
#:key "/home/wes/.ssh/id_rsa.key")) |
|||
|
|||
(define (test) |
|||
(with-cwd "gforth" |
|||
(exec "sudo whoami") |
|||
(with-cwd "src" |
|||
(pwd) |
|||
(ls) |
|||
(with-cwd "gforth-0.7.3" |
|||
(ls)))) |
|||
(pwd) |
|||
(exec "cat /etc/passwd") |
|||
(become "http" (ls))) |
|||
|
|||
; This is based on an entry in ~/.ssh/config |
|||
(with-host linode |
|||
(become "root" |
|||
(become "http" |
|||
(pwd) |
|||
(exec "ls /etc")) |
|||
(pwd)) |
|||
(pwd)) |
Loading…
Reference in new issue