diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-06 16:52:38 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-10 20:46:00 -0700 |
| commit | 75f5958f8556032da130f75a9cc8b64e3b67c9f1 (patch) | |
| tree | 6f74709255ba0b65b130c2fc1a8e8aa9a3162778 /src/property/network.lisp | |
| parent | c6f28e53564be4d80d8f4ef98ab0251bec8409cd (diff) | |
| download | consfigurator-75f5958f8556032da130f75a9cc8b64e3b67c9f1.tar.gz | |
NETWORK:STATIC: add NETMASK argument
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/network.lisp')
| -rw-r--r-- | src/property/network.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/property/network.lisp b/src/property/network.lisp index 94aa949..0a59428 100644 --- a/src/property/network.lisp +++ b/src/property/network.lisp @@ -60,7 +60,8 @@ hosting provider, for example." "# Include files from /etc/network/interfaces.d:" "source /etc/network/interfaces.d/*"))) -(defprop static :posix (interface address &optional gateway &rest options) +(defprop static :posix + (interface address &optional gateway netmask &rest options) "Configures an interface with a static IP address. OPTIONS is a list of even length of alternating keys and values." (:desc #?"Static interface ${interface} configured") @@ -70,6 +71,8 @@ OPTIONS is a list of even length of alternating keys and values." (:apply (when gateway (setq options (list* "gateway" gateway options))) + (when netmask + (setq options (list* "netmask" netmask options))) (setq options (list* "address" address options)) (file:has-content (merge-pathnames (string->filename interface) |