lenses/activemq_conf.aug

   1 (*
   2 Module: ActiveMQ_Conf
   3   ActiveMQ / FuseMQ conf module for Augeas
   4
   5 Author: Brian Redbeard <redbeard@dead-city.org>
   6
   7 About: Reference
   8   This lens ensures that conf files included in ActiveMQ /FuseMQ are properly
   9   handled by Augeas.
  10
  11 About: License
  12   This file is licensed under the LGPL License.
  13
  14 About: Lens Usage
  15   Sample usage of this lens in augtool:
  16
  17     * Get your current setup
  18       > print /files/etc/activemq.conf
  19       ...
  20
  21     * Change ActiveMQ Home
  22       > set /files/etc/activemq.conf/ACTIVEMQ_HOME /usr/share/activemq
  23
  24   Saving your file:
  25
  26       > save
  27
  28 About: Configuration files
  29   This lens applies to relevant conf files located in  /etc/activemq/ and
  30   the file /etc/activemq.conf . See <filter>.
  31
  32 *)
  33
  34 module ActiveMQ_Conf =
  35         autoload xfm
  36
  37 (* Variable: blank_val *)
  38 let blank_val = del /^\z/
  39
  40 (* View: entry *)
  41 let entry =
  42   Build.key_value_line Rx.word Sep.space_equal Quote.any_opt
  43
  44 (* View: empty_entry *)
  45 let empty_entry = Build.key_value_line Rx.word Sep.equal  Quote.dquote_opt_nil
  46
  47 (* View: lns *)
  48 let lns = (Util.empty | Util.comment | entry | empty_entry )*
  49
  50 (* Variable: filter *)
  51 let filter = incl "/etc/activemq.conf"
  52            . incl "/etc/activemq/*"
  53            . excl "/etc/activemq/*.xml"
  54            . excl "/etc/activemq/jmx.*"
  55            . excl "/etc/activemq/jetty-realm.properties"
  56            . excl "/etc/activemq/*.ts"
  57            . excl "/etc/activemq/*.ks"
  58            . excl "/etc/activemq/*.cert"
  59            . Util.stdexcl
  60
  61 let xfm = transform lns filter