75 lines
2.1 KiB
Text
75 lines
2.1 KiB
Text
(*
|
|
Module: NutUpsSchedConf
|
|
Parses @CONFPATH@/upssched.conf
|
|
|
|
Author: Raphael Pinson <raphink@gmail.com>
|
|
Frederic Bohe <fredericbohe@eaton.com>
|
|
|
|
About: License
|
|
This file is licensed under the GPL.
|
|
|
|
About: Lens Usage
|
|
Sample usage of this lens in augtool
|
|
|
|
* Print the command script:
|
|
> print /files@CONFPATH@/upssched.conf/CMDSCRIPT
|
|
|
|
About: Configuration files
|
|
This lens applies to @CONFPATH@/upssched.conf. See <filter>.
|
|
*)
|
|
|
|
module NutUpsschedConf =
|
|
autoload upssched_xfm
|
|
|
|
|
|
(************************************************************************
|
|
* Group: UPSSCHED.CONF
|
|
*************************************************************************)
|
|
|
|
(* general *)
|
|
let sep_spc = Util.del_ws_spc
|
|
let eol = Util.eol
|
|
let num = /[0-9]+/
|
|
let word = /[^"#; \t\n]+/
|
|
let empty = Util.empty
|
|
let comment = Util.comment
|
|
|
|
(* Variable: quoted_word *)
|
|
let word_space = /"[^"\n]+"/
|
|
let quoted_word = /"[^" \t\n]+"/
|
|
|
|
(* Variable: word_all *)
|
|
let word_all = word_space | word | quoted_word
|
|
|
|
let upssched_re = "CMDSCRIPT"
|
|
| "PIPEFN"
|
|
| "LOCKFN"
|
|
|
|
let upssched_opt = [ key upssched_re . sep_spc . store word_all . eol ]
|
|
|
|
let upssched_start_timer = [ key "START-TIMER" . sep_spc
|
|
. [ label "timername" . store word ] . sep_spc
|
|
. [ label "interval" . store num ] ]
|
|
|
|
|
|
let upssched_cancel_timer = [ key "CANCEL-TIMER" . sep_spc
|
|
. [ label "timername" . store word ]
|
|
. ( sep_spc . [ label "cmd" . store word_all ])* ]
|
|
|
|
let upssched_execute_timer = [ key "EXECUTE" . sep_spc
|
|
. [ label "command" . store word_all ] ]
|
|
|
|
|
|
let upssched_command = (upssched_start_timer|upssched_cancel_timer|upssched_execute_timer)
|
|
|
|
let upssched_at = [ key "AT" . sep_spc
|
|
. [ label "notifytype" . store word ] . sep_spc
|
|
. [ label "upsname" . store word ] . sep_spc
|
|
. upssched_command . eol ]
|
|
|
|
let upssched_lns = (upssched_at|upssched_opt|comment|empty)*
|
|
|
|
let upssched_filter = ( incl "@CONFPATH@/upssched.conf" )
|
|
. Util.stdexcl
|
|
|
|
let upssched_xfm = transform upssched_lns upssched_filter
|