94 lines
2.8 KiB
Plaintext
94 lines
2.8 KiB
Plaintext
|
(*
|
||
|
|
Module: Services
|
||
|
|
Parses /etc/services
|
||
|
|
|
||
|
|
Author: Raphael Pinson <raphink@gmail.com>
|
||
|
|
|
||
|
|
About: Reference
|
||
|
|
This lens tries to keep as close as possible to 'man services' where possible.
|
||
|
|
|
||
|
|
The definitions from 'man services' are put as commentaries for reference
|
||
|
|
throughout the file. More information can be found in the manual.
|
||
|
|
|
||
|
|
About: License
|
||
|
|
This file is licensed under the LGPL v2+, like the rest of Augeas.
|
||
|
|
|
||
|
|
About: Lens Usage
|
||
|
|
Sample usage of this lens in augtool
|
||
|
|
|
||
|
|
* Get the name of the service running on port 22 with protocol tcp
|
||
|
|
> match "/files/etc/services/service-name[port = '22'][protocol = 'tcp']"
|
||
|
|
* Remove the tcp entry for "domain" service
|
||
|
|
> rm "/files/etc/services/service-name[. = 'domain'][protocol = 'tcp']"
|
||
|
|
* Add a tcp service named "myservice" on port 55234
|
||
|
|
> ins service-name after /files/etc/services/service-name[last()]
|
||
|
|
> set /files/etc/services/service-name[last()] "myservice"
|
||
|
|
> set "/files/etc/services/service-name[. = 'myservice']/port" "55234"
|
||
|
|
> set "/files/etc/services/service-name[. = 'myservice']/protocol" "tcp"
|
||
|
|
|
||
|
|
About: Configuration files
|
||
|
|
This lens applies to /etc/services. See <filter>.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Services =
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* Group: USEFUL PRIMITIVES
|
||
|
|
*************************************************************************)
|
||
|
|
|
||
|
|
(* Group: Generic primitives *)
|
||
|
|
|
||
|
|
(* Variable: eol *)
|
||
|
|
let eol = del /[ \t]*(#)?[ \t]*\n/ "\n"
|
||
|
|
let indent = Util.indent
|
||
|
|
let comment = Util.comment
|
||
|
|
let comment_or_eol = Util.comment_or_eol
|
||
|
|
let empty = Util.empty
|
||
|
|
let protocol_re = /[a-zA-Z]+/
|
||
|
|
let word_re = /[a-zA-Z0-9_.+*\/:-]+/
|
||
|
|
let num_re = /[0-9]+/
|
||
|
|
|
||
|
|
(* Group: Separators *)
|
||
|
|
let sep_spc = Util.del_ws_spc
|
||
|
|
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* Group: LENSES
|
||
|
|
*************************************************************************)
|
||
|
|
|
||
|
|
(* View: port *)
|
||
|
|
let port = [ label "port" . store num_re ]
|
||
|
|
|
||
|
|
(* View: port_range *)
|
||
|
|
let port_range = [ label "start" . store num_re ]
|
||
|
|
. Util.del_str "-"
|
||
|
|
. [ label "end" . store num_re ]
|
||
|
|
|
||
|
|
(* View: protocol *)
|
||
|
|
let protocol = [ label "protocol" . store protocol_re ]
|
||
|
|
|
||
|
|
(* View: alias *)
|
||
|
|
let alias = [ label "alias" . store word_re ]
|
||
|
|
|
||
|
|
(*
|
||
|
|
* View: record
|
||
|
|
* A standard /etc/services record
|
||
|
|
* TODO: make sure a space is added before a comment on new nodes
|
||
|
|
*)
|
||
|
|
let record = [ label "service-name" . store word_re
|
||
|
|
. sep_spc . (port | port_range)
|
||
|
|
. del "/" "/" . protocol . ( sep_spc . alias )*
|
||
|
|
. comment_or_eol ]
|
||
|
|
|
||
|
|
(* View: lns
|
||
|
|
The services lens is either <empty>, <comment> or <record> *)
|
||
|
|
let lns = ( empty | comment | record )*
|
||
|
|
|
||
|
|
|
||
|
|
(* View: filter *)
|
||
|
|
let filter = (incl "/etc/services")
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|