CFEngine Help: Re: Deleting extra entries inside config that's built by edit_line(s)

[no-reply]

Forum: CFEngine Help
Subject: Re: Deleting extra entries inside config that's built by edit_line(s)
Author: zzamboni
Link to topic: https://cfengine.com/forum/read.php?3,25689,25709#msg-25709

Hi Tero,

You can use a delete_lines promise to do this. Below if the full example, but 
all that I added was this:

  delete_lines:
      ".*"
        select_region => edit_in_between("^\[$(block)\]","^#\"),
        delete_select => 
not_starting_with("set_config_values_w_delim_and_block.index");


and the corresponding delete_select body:

body delete_select not_starting_with(s)
{
        delete_if_not_startwith_from_list => { @(s) };
}


Best regards,
--Diego


body common control
{
        bundlesequence => { "block_conf" };
}

bundle agent block_conf

{
  vars:  

      "conf"  string => "/tmp/test.conf";

      # List of config blocks we have.
      # Value is the  without []
      # Key is the array variable set below.
      "array_ref"       string =>       "USER";
      "array_ref"       string =>       "HOST";
      "array_ref"        string =>       "API";

      #  block
      "user"                string => "randomuser",
        policy => "free";
      "user"                string => "randompass",
        policy => "free";

      #  block
      "host"                string => "randomhost",
        policy => "free";
      "host"                    string => "randomport",
        policy => "free";

      #  block
      "api"                      string => "/randomget",
        policy => "free";
      "api"                     string => "/randompost",
        policy => "free";

      # Open up the array_ref array.
      "array_ref_keys"        slist => getindices("array_ref");

  files: 
      "$(conf)"
        comment => "Set the $(conf) config values",
        create => "true",
      # Iterate over all available blocks and add the entries.
        edit_line => 
set_config_values_w_delim_and_block("block_conf.$(array_ref_keys)","=","$(array_ref[$(array_ref_keys)])");

}

bundle edit_line set_config_values_w_delim_and_block(v,delim,block)

# Sets the RHS of configuration items in the file of the form
# LHS delim RHS _after_ the given block. Also adds the block as such before 
entries:

# #
# [$(block)]
# lhs $(delim) rhs
# #

# If the line is commented out with #, it gets uncommented first.
# Adds a new line if none exists.

{
  vars:
      "index" slist => getindices("$(v)");

      # Be careful if the index string contains funny chars
      "cindex[$(index)]" string => canonify("$(index)");

  classes:
      "secondpass"  expression => isvariable("index");

  replace_patterns:
      # If the line is there, maybe commented out, uncomment and replace with
      # the correct value
      "^\s*($(index)\s+(?!$(delim)\s+$($(v)[$(index)])).*|# ?$(index)\s+.*)$"
        replace_with => value("$(index) $(delim) $($(v)[$(index)])"),
        select_region => edit_in_between("^\[$(block)\]","^#\"),
        classes => always("replace_attempted_$(cindex[$(index)])");

  insert_lines:

      "#";
      "[$(block)]";
      "#";
      "$(index) $(delim) $($(v)[$(index)])"
      #insert_type => "preserve_block",
        select_region => edit_in_between("^\[$(block)\]","^#\"),
        ifvarclass => "replace_attempted_$(cindex[$(index)])";

  delete_lines:
      ".*"
        select_region => edit_in_between("^\[$(block)\]","^#\"),
        delete_select => 
not_starting_with("set_config_values_w_delim_and_block.index");
      
}

body delete_select not_starting_with(s)
{
        delete_if_not_startwith_from_list => { @(s) };
}


body classes always(x)

# Define a class no matter what the outcome of the promise is

{
        promise_repaired => { "$(x)" };
        promise_kept => { "$(x)" };
        repair_failed => { "$(x)" };
        repair_denied => { "$(x)" };
        repair_timeout => { "$(x)" };
}

body replace_with value(x)
{
        replace_value => "$(x)";
        occurrences => "all";
}

# Select region between start and end patterns
body select_region edit_in_between(start, end) {
        select_start => "$(start)";
        select_end => "$(end)";
                                               }

body replace_with comment(c)
{
replace_value => "$(c) $(match.1)";
occurrences => "all";
}


_______________________________________________
Help-cfengine mailing list
Help-cfengine@cfengine.org
https://cfengine.org/mailman/listinfo/help-cfengine