38 lines
1.1 KiB
Plaintext
38 lines
1.1 KiB
Plaintext
|
(*
|
||
|
|
Module: Tinc
|
||
|
|
Parses Tinc VPN configuration files
|
||
|
|
|
||
|
|
Author: Thomas Weißschuh <thomas.weissschuh@amadeus.com>
|
||
|
|
|
||
|
|
About: License
|
||
|
|
This file is licensed under the LGPL v2+, like the rest of Augeas.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Tinc =
|
||
|
|
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
let no_spaces_no_equals = /[^ \t\r\n=]+/
|
||
|
|
let assign = del (/[ \t]*[= ][ \t]*/) " = "
|
||
|
|
let del_str = Util.del_str
|
||
|
|
|
||
|
|
let entry = Build.key_value_line /[A-Za-z]+/ assign (store no_spaces_no_equals)
|
||
|
|
|
||
|
|
let key_section_start = "-----BEGIN RSA PUBLIC KEY-----\n"
|
||
|
|
let key_section_end = "\n-----END RSA PUBLIC KEY-----"
|
||
|
|
(* the last line does not include a newline *)
|
||
|
|
let base_64 = /[A-Za-z0-9+\/=\n]+[A-Za-z0-9+\/=]/
|
||
|
|
let key_section = del_str key_section_start .
|
||
|
|
(label "#key" . store base_64) .
|
||
|
|
del_str key_section_end
|
||
|
|
|
||
|
|
(* we only support a single key section *)
|
||
|
|
let lns = (Util.comment | Util.empty | entry) * . [(key_section . Util.empty *)]?
|
||
|
|
|
||
|
|
let filter = incl "/etc/tinc.conf"
|
||
|
|
. incl "/etc/tinc/*/tinc.conf"
|
||
|
|
. incl "/etc/tinc/hosts/*"
|
||
|
|
. incl "/etc/tinc/*/hosts/*"
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|