From 2e2e16a50fad3a9a99fa8021d235de77556bdad9 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Thu, 8 Jan 2009 19:04:51 +0000
Subject: Modified chrony to add key file functionality.

git-svn-id: svn://svn.alpinelinux.org/acf/chrony/trunk@1671 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 chrony-keyfile-html.lsp | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 chrony-keyfile-html.lsp

(limited to 'chrony-keyfile-html.lsp')

diff --git a/chrony-keyfile-html.lsp b/chrony-keyfile-html.lsp
new file mode 100644
index 0000000..9d1188c
--- /dev/null
+++ b/chrony-keyfile-html.lsp
@@ -0,0 +1,21 @@
+<% local form, viewlibrary, page_info, session = ... %>
+<% require("viewfunctions") %>
+
+<% displaycommandresults({"enablekeyfile"}, session) %>
+
+<H1>Key File Status</H1>
+<DL>
+<%
+	displayitem(form.value.status)
+	if form.value.status.errtxt then %>
+<dt></dt><dd><form action="<%= page_info.script .. page_info.prefix .. page_info.controller .. "/enablekeyfile" %>">
+<input class="submit" type="submit" value="Enable"></form></dd>
+<%	end
+%>
+</DL>
+
+<%
+local pattern = string.gsub(page_info.prefix..page_info.controller, "[%(%)%.%%%+%-%*%?%[%]%^%$]", "%%%1")
+local func = haserl.loadfile(page_info.viewfile:gsub(pattern..".*$", "/") .. "filedetails-html.lsp")
+func(form, viewlibrary, page_info, session)
+%>
-- 
cgit v1.2.3