3 Parses /etc/backuppc/hosts
6 This lens tries to keep as close as possible to `man backuppc` where possible.
9 This file is licenced under the LGPL v2+, like the rest of Augeas.
14 About: Configuration files
15 This lens applies to /etc/backuppc/hosts. See <filter>.
18 module BackupPCHosts =
22 let word = /[^#, \n\t\/]+/
26 let moreusers = Build.opt_list [ label "moreusers" . store word ] Sep.comma in
28 . [ label "host" . store word ] . Util.del_ws_tab
29 . [ label "dhcp" . store word ] . Util.del_ws_tab
30 . [ label "user" . store word ]
31 . (Util.del_ws_tab . moreusers)?
32 . (Util.comment|Util.eol) ]
35 let lns = ( Util.empty | Util.comment | record ) *
38 let filter = incl "/etc/backuppc/hosts"
40 let xfm = transform lns filter