One Hat Cyber Team

Your IP: 216.73.216.93
Server IP: 65.108.141.171
Server: Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software: Apache
PHP Version: 7.4.33
Buat File | Buat Folder

View File Name : backuppchosts.aug

(*
Module: BackupPCHosts
  Parses /etc/backuppc/hosts

About: Reference
  This lens tries to keep as close as possible to `man backuppc` where possible.

About: License
   This file is licenced under the LGPL v2+, like the rest of Augeas.

About: Lens Usage
   To be documented

About: Configuration files
   This lens applies to /etc/backuppc/hosts. See <filter>.
*)

module BackupPCHosts =
autoload xfm

(* View: word *)
let word = /[^#, \n\t\/]+/

(* View: record *)
let record =
  let moreusers = Build.opt_list [ label "moreusers" . store word ] Sep.comma in
              [ seq "host"
              . [ label "host" . store word ] . Util.del_ws_tab
              . [ label "dhcp" . store word ] . Util.del_ws_tab
              . [ label "user" . store word ]
              . (Util.del_ws_tab . moreusers)?
              . (Util.comment|Util.eol) ]

(* View: lns *)
let lns = ( Util.empty | Util.comment | record ) *

(* View: filter *)
let filter = incl "/etc/backuppc/hosts"

let xfm = transform lns filter