yast/yast-yast2

/**
 * File:
 *   cfg_policykit.scr
 * Summary:
 *   SCR Agent for reading/writing /etc/PolicyKit/privilege.d/*.privilege files
 *   using the ini-agent
 * Access:
 *   read/write
 * Authors:
 *   Ladislav Slezak <lslezak@suse.cz>
 * Example:
 *
 *   Read list of available files
 *   SCR::Dir(.etc.policykit.section)
 *
 *   Read list of sections in a file
 *   SCR::Dir(.etc.policykit.section."/etc/PolicyKit/privilege.d/hal-power-hibernate.privilege")
 *   (["Privilege"])
 *
 *   Read list of options in a section
 *   SCR::Dir(.etc.policykit.value."/etc/PolicyKit/privilege.d/hal-power-hibernate.privilege"."Privilege")
 *   (["RequiredPrivileges", "SufficientPrivileges", "Allow", "Deny", "CanObtain", "CanGrant", "ObtainRequireRoot"])
 *
 *   Read an option
 *   SCR::Read(.etc.policykit.value."/etc/PolicyKit/privilege.d/hal-power-hibernate.privilege"."Privilege"."RequiredPrivileges")
 *   ("desktop-console")
 *
 *
 *   Write an option
 *   SCR::Write(.etc.policykit.value."/etc/PolicyKit/privilege.d/hal-power-hibernate.privilege"."Privilege"."RequiredPrivileges", "")
 *   (true)
 *
 *
 *   Flush the changes
 *   SCR::Write(.etc.policykit, nil)
 *
 *
 *   Fore more information see the INI-agent documentation
 *
 * $Id$
 */

.etc.policykit

`ag_ini(
    `IniAgent( ["/etc/PolicyKit/privilege.d/*.privilege"] , $[
    "options" : [ "no_nested_sections", "line_can_continue", "comments_last" ],
    "comments": [
        "^[ \t]*$",        // empty line
        "^[ \t]*#.*$",    // comment char
    ],
    "sections" : [
        $[
        "begin" : [ "^[ \t]*\\[[ \t]*(.*[^ \t])[ \t]*\\][ \t]*", "[%s]" ],
        ]
    ],
    "params" : [
        $[
        "match" : [ "^[ \t]*([^=]*[^ \t=])[ \t]*=[ \t]*(.*[^ \t]|)[ \t]*$" , "%s=%s"],
        ]
    ]
    ]
  )
)