summaryrefslogtreecommitdiffstats
path: root/fetchmail-expert-html.lsp
diff options
context:
space:
mode:
authorTed Trask <ttrask01@yahoo.com>2008-08-11 18:42:29 +0000
committerTed Trask <ttrask01@yahoo.com>2008-08-11 18:42:29 +0000
commitbc7effbae906b23589c625dd401c1fd09bb434e1 (patch)
tree97cffd084e313992695c1acb4584ea374ea043cc /fetchmail-expert-html.lsp
parent4788958ba73b4274a5ef9824d0291fe3c82d0d5b (diff)
downloadacf-fetchmail-bc7effbae906b23589c625dd401c1fd09bb434e1.tar.bz2
acf-fetchmail-bc7effbae906b23589c625dd401c1fd09bb434e1.tar.xz
Modified fetchmail to clean up status and expert, and add startstop. Still have to implement config.
git-svn-id: svn://svn.alpinelinux.org/acf/fetchmail/trunk@1375 ab2d0c66-481e-0410-8bed-d214d4d58bed
Diffstat (limited to 'fetchmail-expert-html.lsp')
l---------[-rw-r--r--]fetchmail-expert-html.lsp59
1 files changed, 1 insertions, 58 deletions
diff --git a/fetchmail-expert-html.lsp b/fetchmail-expert-html.lsp
index 533c32f..207f324 100644..120000
--- a/fetchmail-expert-html.lsp
+++ b/fetchmail-expert-html.lsp
@@ -1,58 +1 @@
-<% local form = ...
-require("viewfunctions")
-%>
-<%
---[[ DEBUG INFORMATION
-io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
-io.write(html.cfe_unpack(form))
-io.write("</span>")
---]]
-%>
-
-<H1>SYSTEM INFO</H1>
-<DL>
-<%
-local myform = form.status
-local tags = { "status", "version", "autostart", }
-displayinfo(myform,tags,"viewonly")
-%>
-</DL>
-
-<H1>CONFIGURATION</H1>
-<% local myform = form.config %>
-<form action="<%= form.option.script .. "/" .. form.option.prefix ..
- form.option.controller .. "/" .. form.option.action %>" method="POST">
-
-<H2>EXPERT CONFIGURATION</H2>
-<H3>FILE DETAILS</H3>
-<DL>
-<%
-local tags = { "filename", "filesize", "mtime", "sumerrors" }
-displayinfo(myform,tags,"viewonly")
-%>
-</DL>
-
-<H3>FILE CONTENT</H3>
-<%
-io.write(html.form[form.config.filecontent.type](form.config.filecontent))
-%>
-
-<H2>SAVE AND APPLY ABOVE SETTINGS</H2>
-<DL>
-<%
-local tags = { "cmdsave", }
-displayinfo(myform,tags)
-%>
-</DL>
-
-<%
--- Management buttons
-local myform = form.management
-local tags = { "start", "stop", "restart" }
-if (myform) then
- io.write("<H1>MANAGEMENT</H1>\n<DL>")
- displaymanagement(myform,tags)
- io.write("</DL>")
-end
-%>
-</form>
+../expert-html.lsp \ No newline at end of file