Forum: CFEngine Help
Subject: Help with coding needed
Author: robson
Link to topic: https://cfengine.com/forum/read.php?3,23758,23758#msg-23758
Hi everybody,
I'm beginner with cfengine. I'm using CFEngine Core 3.2.1. I learned some stuff
myself, but I'm struggling with this. I have the code bellow in my promise
file, but I want to use lists as a parameters. It works for a list with a
single item, but it doesn't for lists with multiple items. I don't have enough
experience to fix or modify the code. Basically I'm passing 4 lists each with 3
items as arguments "change_or_add(eres,values,lstarts,addlines)" and I want
change_or_add bundle to loop through 3 loops where first it takes all first
items from all 4 lists and processes them, then it takes all second items from
lists and processes them and eventually all the last items.
If there is a solution for what I'm trying to do and somebody could please help
me with fixing the code, I would really appreciate it. I also welcome any
comment regards my code.
========================================================================
This is a working code (works for a single item lists) which I use now:
bundle agent secure {
vars:
"pamsysauth_ere" slist => {
"\s*password\s+\S+\s*pam_cracklib\.so\s+","\s*password\s+\S+\s*pam_unix\.so\s+","\s*auth\s+\S+\s*pam_tally2\.so\s+"
};
"pamsysauthsu_val" slist => { "try_first_pass retry=3 minlen=8 lcredit=1
ucredit=1 dcredit=1 ocredit=1 difok=3",
"shadow nullok try_first_pass use_authtok
remember=12","onerr=fail deny=5 per_user" };
"pamsysauthsu_stl" slist => {
"\s*password\s+","\s*password\s+sufficient\s+","\s*auth\s+" };
"pamsysauthsu_add" slist => { "password requisite pam_cracklib.so
","password sufficient pam_unix.so ",
"auth required pam_tally2.so " };
file:
"/etc/pam.d/system-auth"
comment => "BC_3266,BC_3021,BC_3020,BC_3014 password complexity
and aging",
create => "true",
edit_line => change_or_add(
$(pamsysauth_ere)","$(pamsysauth_val)","$(pamsysauth_stl)","$(pamsysauth_add)"
);
}
bundle edit_line change_or_add(eres,values,lstarts,addlines) {
vars:
"value" slist => { @(values)};
"ere" slist => { @(eres)};
"addline" slist => { @(addlines)};
"lstart" slist => { @(lstarts)};
"lncnt" int => countlinesmatching("^$(ere).*$","$(edit.filename)");
"tmp" int => getfields("^$(lstart).*$","$(edit.filename)","","line");
classes:
"add1" expression => islessthan("$(lncnt)","1");
replace_patterns:
"^($(ere))(?!$(value)$)[^\n]*"
replace_with => value("$(match.1)$(value)");
insert_lines:
add1::
"$(addline)$(value)"
location => before_line("^$(line[1])$");
}
_______________________________________________
Help-cfengine mailing list
Help-cfengine@cfengine.org
https://cfengine.org/mailman/listinfo/help-cfengine
