From 579d59adef6ffdacb911419e0e63c599cd393530 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Thu, 30 Oct 2008 15:42:33 +0000
Subject: Added modules controller.

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-baselayout/trunk@1570 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 modules-edit-html.lsp | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 modules-edit-html.lsp

(limited to 'modules-edit-html.lsp')

diff --git a/modules-edit-html.lsp b/modules-edit-html.lsp
new file mode 100644
index 0000000..75c360f
--- /dev/null
+++ b/modules-edit-html.lsp
@@ -0,0 +1,43 @@
+<% local form, viewlibrary, page_info, session = ... %>
+<% require("viewfunctions") %>
+
+<% displaycommandresults({"reload"}, session) %>
+
+<% if form.type == "form" then %>
+<H1>Configuration</H1>
+<H2>Expert Configuration</H2>
+<% else %>
+<H1>View File</H1>
+<% end %>
+<H3>File Details</H3>
+<DL>
+<% 
+displayitem(form.value.filename)
+displayitem(form.value.filesize)
+displayitem(form.value.mtime)
+%>
+</DL>
+
+<H3>File Content</H3>
+<% if form.type == "form" then %>
+<% form.action = page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action %>
+<% displayformstart(form) %>
+<input type="hidden" name="filename" value="<%= form.value.filename.value %>">
+<% end %>
+<textarea name="filecontent">
+<%= html.html_escape(form.value.filecontent.value) %>
+</textarea>
+<% if form.value.filecontent.errtxt then %><P CLASS='error'><%= string.gsub(form.value.filecontent.errtxt, "\n", "<BR>") %></P><% end %>
+<% if form.value.filecontent.descr then %><P CLASS='descr'><%= string.gsub(form.value.filecontent.descr, "\n", "<BR>") %></P><% end %>
+
+<% if form.type == "form" then %>
+<H3>Save</H3>
+<% displayformend(form) %>
+<% end %>
+</form>
+
+<H1>Reload Modules</H1>
+<DL>
+<DT>Reload Modules</DT>
+<DD><form action="<%= page_info.script .. page_info.prefix .. page_info.controller .. "/reload" %>"><input class="submit" type="submit" value="Reload"></form></DD>
+</DL>
-- 
cgit v1.2.3