Current File : //usr/share/augeas/lenses/dist/gshadow.aug
(*
Module: Gshadow
Parses /etc/gshadow
Author: Lorenzo M. Catucci <catucci@ccd.uniroma2.it>
Original Author: Free Ekanayaka <free@64studio.com>
About: Reference
- man 5 gshadow
About: License
This file is licensed under the LGPL v2+, like the rest of Augeas.
About:
Each line in the gshadow files represents the additional shadow-defined
attributes for the corresponding group, as defined in the group file.
*)
module Gshadow =
autoload xfm
(************************************************************************
* USEFUL PRIMITIVES
*************************************************************************)
let eol = Util.eol
let comment = Util.comment
let empty = Util.empty
let colon = Sep.colon
let comma = Sep.comma
let sto_to_spc = store Rx.space_in
let word = Rx.word
let password = /[A-Za-z0-9_.!*-]*/
let integer = Rx.integer
(************************************************************************
* Group: ENTRIES
*************************************************************************)
(* View: member *)
let member = [ label "member" . store word ]
(* View: member_list
the member list is a comma separated list of
users allowed to chgrp to the group without
being prompted for the group's password *)
let member_list = Build.opt_list member comma
(* View: admin *)
let admin = [ label "admin" . store word ]
(* View: admin_list
the admin_list is a comma separated list of
users allowed to change the group's password
and the member_list *)
let admin_list = Build.opt_list admin comma
(* View: params *)
let params = [ label "password" . store password . colon ]
. admin_list? . colon
. member_list?
let entry = Build.key_value_line word colon params
(************************************************************************
* LENS
*************************************************************************)
let lns = (comment|empty|entry) *
let filter
= incl "/etc/gshadow"
. Util.stdexcl
let xfm = transform lns filter
Mini Shell