diff options
Diffstat (limited to 'fetchmail-status-html.lsp')
-rw-r--r-- | fetchmail-status-html.lsp | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/fetchmail-status-html.lsp b/fetchmail-status-html.lsp new file mode 100644 index 0000000..780abb3 --- /dev/null +++ b/fetchmail-status-html.lsp @@ -0,0 +1,44 @@ +<? local form = ... ?> + +<? +function informationform(myform,tags) + io.write("<DL>") + for k,v in pairs(tags) do + if (myform[v]) then + local val = myform[v] + io.write("\t<DT") + if (#val.errtxt > 0) then io.write(" class='error'") end + io.write(">" .. val.label .. "</DT>\n") + + io.write("\t\t<DD>" .. val.value .. "\n") + if (val.descr) and (#val.descr > 0) then io.write("\t\t<P CLASS='descr'>" .. string.gsub(val.descr, "\n", "<BR>") .. "</P>\n") end + if (#val.errtxt > 0) then io.write("\t\t<P CLASS='error'>" .. string.gsub(val.errtxt, "\n", "<BR>") .. "</P>\n") end + io.write("\t\t</DD>\n") + end + end + io.write("</DL>") +end +?> + +<H1>SYSTEM INFO</H1> +<? +local myform = form.status +local tags = { "status", "version", } +informationform(myform,tags) +?> + +<H2>PROGRAM SPECIFIC OPTIONS/INFORMATION</H2> +<? +local myform = form.status +local tags = { "configfile", } +informationform(myform,tags) +?> + +<? +--[[ 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>") +--]] +?> + |