diff options
author | Ted Trask <ttrask01@yahoo.com> | 2008-08-11 18:42:29 +0000 |
---|---|---|
committer | Ted Trask <ttrask01@yahoo.com> | 2008-08-11 18:42:29 +0000 |
commit | bc7effbae906b23589c625dd401c1fd09bb434e1 (patch) | |
tree | 97cffd084e313992695c1acb4584ea374ea043cc /fetchmail-expert-html.lsp | |
parent | 4788958ba73b4274a5ef9824d0291fe3c82d0d5b (diff) | |
download | acf-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.lsp | 59 |
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 |