Parses SSH authorized_keys
Author: Raphael Pinson raphael.pinson@camptocamp.com
| Authorized_Keys | Parses SSH authorized_keys |
| Reference | This lens tries to keep as close as possible to `man 5 authorized_keys` where possible. |
| License | This file is licenced under the LGPL v2+, like the rest of Augeas. |
| Lens Usage | To be documented |
| Configuration files | This lens applies to SSH authorized_keys. |
| Examples | The Test_Authorized_Keys file contains various examples and tests. |
| Augeas Lenses | |
| option | A key option |
| key_options | A list of key options |
| key_type | |
| key_comment | |
| authorized_key | |
| lns | The authorized_keys lens |
| Augeas Variables | |
| filter |
This lens applies to SSH authorized_keys. See filter.
The Test_Authorized_Keys file contains various examples and tests.
let option = let kv_re = "command" | "environment" | "from" | "permitopen" | "principals" | "tunnel" in let flag_re = "cert-authority" | "no-agent-forwarding" | "no-port-forwarding" | "no-pty" | "no-user-rc" | "no-X11-forwarding" in let option_value = Util.del_str "\"" . store /((\\\\")?[^\\\n"]*)+/ . Util.del_str "\"" in Build.key_value kv_re Sep.equal option_value | Build.flag flag_re
A key option
let key_options = [ label "options" . Build.opt_list option Sep.comma ]
A list of key options
A key option
let option = let kv_re = "command" | "environment" | "from" | "permitopen" | "principals" | "tunnel" in let flag_re = "cert-authority" | "no-agent-forwarding" | "no-port-forwarding" | "no-pty" | "no-user-rc" | "no-X11-forwarding" in let option_value = Util.del_str "\"" . store /((\\\\")?[^\\\n"]*)+/ . Util.del_str "\"" in Build.key_value kv_re Sep.equal option_value | Build.flag flag_re
A list of key options
let key_options = [ label "options" . Build.opt_list option Sep.comma ]
let key_type = let key_type_re = /ecdsa-sha2-nistp[0-9]+/ | /ssh-[a-z0-9]+/ in [ label "type" . store key_type_re ]
let key_comment = [ label "comment" . store Rx.space_in ]
let authorized_key = [ label "key" . (key_options . Sep.space)? . key_type . Sep.space . store Rx.no_spaces . (Sep.space . key_comment)? . Util.eol ]
The authorized_keys lens
let lns = ( Util.empty | Util.comment | authorized_key)*