digitalocean/setupdroplet.hs at master · slcz/digitalocean · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
------------------------------------------------------------------------------
--
------------------------------------------------------------------------------

{-# LANGUAGE OverloadedStrings, DeriveGeneric #-}
{-# LANGUAGE ExtendedDefaultRules #-}
{-# OPTIONS_GHC -fno-warn-type-defaults #-}

import Shelly hiding (find)
import qualified Data.Text as T
import Control.Monad
import Data.Aeson
import Data.Maybe
import Data.List
import Data.List.Split
import Data.Text.Lazy.Encoding
import qualified Data.Text.Lazy as LT
import Data.Monoid
import System.Environment (getArgs)
default (T.Text)

main :: IO ()
main = do
    args <- getArgs
    when (length args /= 2) $ ioError (userError
        ("setupvm <ip_address> <user>"))
    address <- return $ T.pack $ head args
    user <- return $ T.pack $ head $ tail args
    home <- return $ "/home/" `T.append` user `T.append` "/"
    shelly $ verbosely $ do
        sshPairs_ ("root@" `T.append` address) [("useradd", ["-m", user]),
             ("mkdir", ["-p",  home `T.append` ".ssh"])]
        return ("%" `T.append` user `T.append` " ALL=(ALL) NOPASSWD: ALL\n")
            -|- sshPairs_ ("root@" `T.append` address) [("cat",
                [">>", "/etc/sudoers"])]
        run_ "scp" [home `T.append` ".ssh/id_rsa.pub", "root@"
             `T.append` address `T.append` ":" `T.append`
             home `T.append` ".ssh/authorized_keys"]
        sshPairs_ ("root@" `T.append` address)
            [("chown", ["-R", user `T.append` ":" `T.append` user,
              home `T.append` ".ssh"])]
        sshPairs_ address [("sudo", ["apt-get", "update", "-q", "-y"]),
                           ("sudo", ["apt-get", "install", "build-essential", "-q", "-y"]),
                           ("sudo", ["apt-get", "install", "nbd-server", "-q", "-y"]),
                           ("sudo", ["apt-get", "install", "nbd-client", "-q", "-y"]),
                           ("sudo", ["apt-get", "install", "fio", "-q", "-y"]),
                           ("sudo", ["apt-get", "install", "sysstat", "-q", "-y"]),
                           ("sudo", ["apt-get", "install", "libaio1", "-q", "-y"])]
        run_ "scp" [home `T.append` "pebble-bin/pebble",
             address `T.append` ":" `T.append` home]
        run_ "scp" [home `T.append` "pebble-bin/nbd-client",
             address `T.append` ":" `T.append` home]
        return ("set -o vi") -|- sshPairs_ address [("cat", [">>", "~/.bashrc"])]
        sshPairs_ address [("sudo", ["chsh", "-s", "/bin/bash", user])]
        return ()