From 7d9c43916b0600ac4879dfe9793eab807a83ab2b Mon Sep 17 00:00:00 2001
From: Kaarle Ritvanen <kaarle.ritvanen@datakunkku.fi>
Date: Mon, 10 Mar 2014 22:45:18 +0200
Subject: rename ACF2 to Alpine Configurator (aconf)

---
 aconf/model/permission.lua | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 aconf/model/permission.lua

(limited to 'aconf/model/permission.lua')

diff --git a/aconf/model/permission.lua b/aconf/model/permission.lua
new file mode 100644
index 0000000..e90099b
--- /dev/null
+++ b/aconf/model/permission.lua
@@ -0,0 +1,25 @@
+--[[
+Copyright (c) 2012-2014 Kaarle Ritvanen
+See LICENSE file for license details
+--]]
+
+local M = {}
+
+local node = require('aconf.model.node')
+local start_txn = require('aconf.transaction')
+
+function M.define(path, ...)
+   local txn = start_txn()
+   local db = txn:fetch('/auth/permissions')
+   for _, permission in ipairs{...} do node.insert(db, permission..path) end
+   txn:commit()
+end
+
+function M.defaults(path)
+   M.define(path, 'read', 'create', 'modify', 'delete')
+   for _, action in ipairs(node.meta(start_txn():fetch(path)).actions or {}) do
+      M.define(path, action.name)
+   end
+end
+
+return M
-- 
cgit v1.2.3