#  Copyright 2021 Northern.tech AS
#  This file is part of CFEngine 3 - written and maintained by Northern.tech AS.
#  This program is free software; you can redistribute it and/or modify it
#  under the terms of the GNU General Public License as published by the
#  Free Software Foundation; version 3.
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA
# To the extent this program is licensed as part of the Enterprise
# versions of Cfengine, the applicable Commercial Open Source License
# (COSL) may apply to this file if you as a licensee so wish it. See
# included file COSL.txt.
###############################################################################
#+begin_src cfengine3
# for more info: http://cfengine.com/docs/master/reference-promise-types-edit_xml.html
body common control
{
  bundlesequence => { run };
  inputs => { "$(sys.libdir)/stdlib.cf" };
}

bundle agent run
{
  vars:
    "file" string => "$(this.promise_filename).txt";

  methods:
    "rm" usebundle => rmxml;
    "make" usebundle => makexml;
    "use" usebundle => maintainxml;
    "report" usebundle => reportxml;
}

bundle agent rmxml
{
  files:
    "$(run.file)" delete => tidy;
}

bundle agent makexml
{
  files:
    "$(run.file)"
      comment => "Create xml file",
      create => "true",
      edit_defaults => empty,
      edit_xml => xml_insert_tree_nopath(
        '<Host name="cfe_host"><Alias>cfe_alias</Alias></Host>'
      );
}

bundle agent reportxml
{
  vars:
    "data" string => readfile($(run.file), 4k);

  reports:
    "Final XML is $(data)";

    # R: Final XML is <?xml version="1.0"?>
    # <Host name="newhostname">newhosttext<Alias>newalias</Alias></Host>
}

bundle agent maintainxml
{
  files:
    "$(run.file)"
      comment => "Maintain xml file: set the Alias node",
      create => "false",
      edit_xml => xml_set_value("newalias", "/Host/Alias");

    "$(run.file)"
      comment => "Maintain xml file: replace a Host node with a name attribute = cfe_host",
      create => "false",
      edit_xml => xml_set_value("newhosttext", "/Host[@name='cfe_host']");

    "$(run.file)"
      comment => "Maintain xml file: replace a Host node's name attribute",
      create => "false",
      edit_xml => xml_set_attribute("name", "newhostname", "/Host");
}

#+end_src
