42 lines
1.0 KiB
Plaintext
42 lines
1.0 KiB
Plaintext
(*
|
|
Module: Htpasswd
|
|
Parses htpasswd and rsyncd.secrets files
|
|
|
|
Author: Marc Fournier <marc.fournier@camptocamp.com>
|
|
|
|
About: Reference
|
|
This lens is based on examples in htpasswd(1) and rsyncd.conf(5)
|
|
|
|
About: Usage Example
|
|
(start code)
|
|
augtool> set /augeas/load/Htpasswd/lens "Htpasswd.lns"
|
|
augtool> set /augeas/load/Htpasswd/incl "/var/www/.htpasswd"
|
|
augtool> load
|
|
|
|
augtool> get /files/var/www/.htpasswd/foo
|
|
/files/var/www/.htpasswd/foo = $apr1$e2WS6ARQ$lYhqy9CLmwlxR/07TLR46.
|
|
|
|
augtool> set /files/var/www/.htpasswd/foo bar
|
|
augtool> save
|
|
Saved 1 file(s)
|
|
|
|
$ cat /var/www/.htpasswd
|
|
foo:bar
|
|
(end code)
|
|
|
|
About: License
|
|
This file is licensed under the LGPL v2+, like the rest of Augeas.
|
|
*)
|
|
|
|
module Htpasswd =
|
|
autoload xfm
|
|
|
|
let entry = Build.key_value_line Rx.word Sep.colon (store Rx.space_in)
|
|
let lns = (Util.empty | Util.comment | entry)*
|
|
|
|
let filter = incl "/etc/httpd/htpasswd"
|
|
. incl "/etc/apache2/htpasswd"
|
|
. incl "/etc/rsyncd.secrets"
|
|
|
|
let xfm = transform lns filter
|