1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
module Test_xinetd =
let eol_ws = "defaults \t \n{\n enabled = cvs echo \n}\n\n"
let cvs = "# default: off
# description: The CVS service can record the history of your source
# files. CVS stores all the versions of a file in a single
# file in a clever way that only stores the differences
# between versions.
service cvspserver
{
disable = yes
port = 2401
socket_type = stream
protocol = tcp
wait = no
user = root
passenv = PATH
server = /usr/bin/cvs
env -= HOME=/var/cvs
server_args = -f --allow-root=/var/cvs pserver
# bind = 127.0.0.1
log_on_failure += HOST
}
"
let lst_add = "service svc_add
{
log_on_failure += HOST
}
"
test Xinetd.lns get eol_ws =
{ "defaults" { "enabled"
{ "value" = "cvs" }
{ "value" = "echo" } } }
{}
test Xinetd.lns put eol_ws after rm "/defaults/enabled/value[last()]" =
"defaults \t \n{\n enabled = cvs \n}\n\n"
test Xinetd.lns get cvs =
{ "#comment" = "default: off" }
{ "#comment" = "description: The CVS service can record the history of your source" }
{ "#comment" = "files. CVS stores all the versions of a file in a single" }
{ "#comment" = "file in a clever way that only stores the differences" }
{ "#comment" = "between versions." }
{ "service" = "cvspserver"
{ "disable" = "yes" }
{ "port" = "2401" }
{ "socket_type" = "stream" }
{ "protocol" = "tcp" }
{ "wait" = "no" }
{ "user" = "root" }
{ "passenv" { "value" = "PATH" } }
{ "server" = "/usr/bin/cvs" }
{ "env" { "del" } { "value" = "HOME=/var/cvs" } }
{ "server_args"
{ "value" = "-f" }
{ "value" = "--allow-root=/var/cvs" }
{ "value" = "pserver" } }
{ "#comment" = "bind = 127.0.0.1" }
{ "log_on_failure" { "add" } { "value" = "HOST" } } }
(* Switch the '+=' to a simple '=' *)
test Xinetd.lns put lst_add after rm "/service/log_on_failure/add" =
"service svc_add\n{\n log_on_failure = HOST\n}\n"
test Xinetd.lns put "" after
set "/service" "svc";
set "/service/instances" "UNLIMITED" = "service svc
{
\tinstances = UNLIMITED
}
"
(* Local Variables: *)
(* mode: caml *)
(* End: *)
|