From 86b4e4e9892f15e14aaccf95db38546622001738 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Mon, 23 Nov 2009 11:49:08 +0000
Subject: Added new view files for major changes to only handle one config and
 add cert processing.

---
 openvpn-expert-html.lsp     |  1 +
 openvpn-listcerts-html.lsp  | 40 ++++++++++++++++++++++++++++++++++++++++
 openvpn-uploadcert-html.lsp | 16 ++++++++++++++++
 openvpn-viewcert-html.lsp   |  8 ++++++++
 4 files changed, 65 insertions(+)
 create mode 120000 openvpn-expert-html.lsp
 create mode 100644 openvpn-listcerts-html.lsp
 create mode 100644 openvpn-uploadcert-html.lsp
 create mode 100644 openvpn-viewcert-html.lsp

diff --git a/openvpn-expert-html.lsp b/openvpn-expert-html.lsp
new file mode 120000
index 0000000..207f324
--- /dev/null
+++ b/openvpn-expert-html.lsp
@@ -0,0 +1 @@
+../expert-html.lsp
\ No newline at end of file
diff --git a/openvpn-listcerts-html.lsp b/openvpn-listcerts-html.lsp
new file mode 100644
index 0000000..b21bd43
--- /dev/null
+++ b/openvpn-listcerts-html.lsp
@@ -0,0 +1,40 @@
+<% local view, viewlibrary, page_info, session = ... %>
+<% require("viewfunctions") %>
+
+<% displaycommandresults({"deletecert", "generatedhparams"}, session) %>
+<% displaycommandresults({"uploadcert"}, session, true) %>
+
+<H1><%= html.html_escape(view.label) %></H1>
+
+<DL>
+<TABLE>
+	<TR style="background:#eee;font-weight:bold;">
+	<TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Action</TD>
+	<TD style="white-space:nowrap;text-align:left;" class="header">Certificate</TD>
+	</TR>
+<% for i,cert in ipairs(view.value) do %>
+	<TR>
+		<TD style="padding-right:20px;white-space:nowrap;">
+		<%= html.link{value=page_info.script..page_info.prefix..page_info.controller.."/deletecert?cert="..cert.."&redir="..page_info.orig_action, label="Delete "} %>
+		<% if not string.find(cert, "%-key") then %>
+		<%= html.link{value=page_info.script..page_info.prefix..page_info.controller.."/viewcert?cert="..cert.."&redir="..page_info.orig_action, label="View "} %>
+		<% end %>
+		</TD>
+		<TD style="white-space:nowrap;"><%= html.html_escape(cert) %></TD>
+	</TR>
+<% end %>
+</TABLE>
+
+<% if viewlibrary.dispatch_component and session.permissions[page_info.controller].uploadcert then
+	viewlibrary.dispatch_component("uploadcert")
+end %>
+
+<% if session.permissions[page_info.controller].generatedhparams then %>
+<H1>Diffie Hellman Parameters</H1>
+<DL>
+<form action="<%= html.html_escape(page_info.script .. page_info.prefix .. page_info.controller .. "/generatedhparams") %>">
+<DT>Generate Diffie Hellman parameters</DT>
+<DD><input class="submit" type="submit" value="Generate"></DD>
+</form>
+</DL>
+<% end %>
diff --git a/openvpn-uploadcert-html.lsp b/openvpn-uploadcert-html.lsp
new file mode 100644
index 0000000..ad503c3
--- /dev/null
+++ b/openvpn-uploadcert-html.lsp
@@ -0,0 +1,16 @@
+<% local form, viewlibrary, page_info = ... %>
+<% require("viewfunctions") %>
+
+<% --[[ DEBUG INFORMATION
+io.write(html.cfe_unpack(form))
+--]] %>
+
+<H1><%= html.html_escape(form.label) %></H1>
+<%
+	form.action = page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action
+	form.enctype = "multipart/form-data"
+	form.value.cert.type="file"
+	form.value.password.type="password"
+	local order = {"cert", "password"}
+	displayform(form, order)
+%>
diff --git a/openvpn-viewcert-html.lsp b/openvpn-viewcert-html.lsp
new file mode 100644
index 0000000..1acb166
--- /dev/null
+++ b/openvpn-viewcert-html.lsp
@@ -0,0 +1,8 @@
+<% local view, viewlibrary = ... %>
+
+<% --[[ DEBUG INFORMATION
+io.write(html.cfe_unpack(view))
+--]] %>
+
+<H1>Certificate Details</H1>
+<pre><%= html.html_escape(view.value.value) %></pre>
-- 
cgit v1.2.3