lenses/hostname.aug

   1 (*
   2 Module: Hostname
   3   Parses /etc/hostname and /etc/mailname
   4
   5 Author: Raphael Pinson <raphink@gmail.com>
   6
   7 About: License
   8    This file is licenced under the LGPL v2+, like the rest of Augeas.
   9 *)
  10
  11
  12 module Hostname =
  13 autoload xfm
  14
  15 (* View: lns *)
  16 let lns = [ label "hostname" . store Rx.word . Util.eol ] | Util.empty
  17
  18 (* View: filter *)
  19 let filter = incl "/etc/hostname"
  20            . incl "/etc/mailname"
  21
  22 let xfm = transform lns filter