lenses/htpasswd.aug

   1 (*
   2 Module: Htpasswd
   3     Parses htpasswd and rsyncd.secrets files
   4
   5 Author: Marc Fournier <marc.fournier@camptocamp.com>
   6
   7 About: Reference
   8     This lens is based on examples in htpasswd(1) and rsyncd.conf(5)
   9
  10 About: Usage Example
  11 (start code)
  12     augtool> set /augeas/load/Htpasswd/lens "Htpasswd.lns"
  13     augtool> set /augeas/load/Htpasswd/incl "/var/www/.htpasswd"
  14     augtool> load
  15
  16     augtool> get /files/var/www/.htpasswd/foo
  17     /files/var/www/.htpasswd/foo = $apr1$e2WS6ARQ$lYhqy9CLmwlxR/07TLR46.
  18
  19     augtool> set /files/var/www/.htpasswd/foo bar
  20     augtool> save
  21     Saved 1 file(s)
  22
  23     $ cat /var/www/.htpasswd
  24     foo:bar
  25 (end code)
  26
  27 About: License
  28     This file is licensed under the LGPL v2+, like the rest of Augeas.
  29 *)
  30
  31 module Htpasswd =
  32 autoload xfm
  33
  34 let entry = Build.key_value_line Rx.word Sep.colon (store Rx.space_in)
  35 let lns   = (Util.empty | Util.comment | entry)*
  36
  37 let filter = incl "/etc/httpd/htpasswd"
  38            . incl "/etc/apache2/htpasswd"
  39            . incl "/etc/rsyncd.secrets"
  40
  41 let xfm = transform lns filter