1 (* Stunnel configuration file module for Augeas *)
6 let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
7 let sep = IniFile.sep "=" "="
50 | "protocolAuthentication"
68 let entry = IniFile.indented_entry setting sep comment
69 let empty = IniFile.empty
71 let title = IniFile.indented_title ( IniFile.record_re - ".anon" )
72 let record = IniFile.record title entry
74 let rc_anon = [ label ".anon" . ( entry | empty )+ ]
76 let lns = rc_anon? . record*
78 let filter = (incl "/etc/stunnel/stunnel.conf")
80 let xfm = transform lns filter