diff options
author | Mika Havela <mika.havela@gmail.com> | 2008-04-02 07:04:27 +0000 |
---|---|---|
committer | Mika Havela <mika.havela@gmail.com> | 2008-04-02 07:04:27 +0000 |
commit | afbf9fc47c20d102f516261679b3653bd05fd9fc (patch) | |
tree | a0de81813663e16ba93fc40c294e64d76b639ff5 /quagga-status-html.lsp | |
download | acf-quagga-afbf9fc47c20d102f516261679b3653bd05fd9fc.tar.bz2 acf-quagga-afbf9fc47c20d102f516261679b3653bd05fd9fc.tar.xz |
First commit on quagga. Don't expect anything to work.v0.1
git-svn-id: svn://svn.alpinelinux.org/acf/quagga/trunk@874 ab2d0c66-481e-0410-8bed-d214d4d58bed
Diffstat (limited to 'quagga-status-html.lsp')
-rw-r--r-- | quagga-status-html.lsp | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/quagga-status-html.lsp b/quagga-status-html.lsp new file mode 100644 index 0000000..765de12 --- /dev/null +++ b/quagga-status-html.lsp @@ -0,0 +1,95 @@ +<? local form = ... ?> +<? +--[[ 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>") +--]] +?> + +<? +function informationform(myform,tags) + 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 +end +?> + +<H1>SYSTEM INFO</H1> +<DL> +<? +local myform = form.status +local tags = { "status", "version", "autostart", } +informationform(myform,tags) +?> +</DL> + +<H2>PROGRAM SPECIFIC OPTIONS/INFORMATION</H2> +<DL> +<? + +local myform = form.status.show +io.write("\t<DT") +if (#myform.errtxt > 0) then io.write(" class='error'") end +io.write(">" .. myform.label .. "</DT>\n") +io.write("\t\t<DD>\n") +for k,v in pairs(myform.option or {}) do + io.write("\t\t\t<TABLE STYLE='margin-bottom:10px;'>") + io.write("\n\t\t\t<TR><TD STYLE='font-weight:bold;'><IMG SRC='/static/tango/16x16/places/network-server.png' width='16' height='16' alt> " .. k .. "</TD><TD></TD></TR>\n") + for k1,v1 in pairs(v) do + io.write("\n\t\t\t<TR STYLE='padding-bottom:10px;'><TD WIDTH='150px' STYLE='font-weight:bold;padding-left:20px;'><IMG SRC='/static/tango/16x16/status/") + + if (v1) and (string.lower(v1['Type']['value']) == "incomplete") then + io.write("network-error") + elseif (v1) and (string.lower(v1['Type']['value']) == "negative") then + io.write("network-offline") + elseif (v1) and (string.lower(v1['Flags']['value']) == "up") then + io.write("network-idle") + elseif (v1) and (string.lower(v1['Flags']['value']) == "used up") then + io.write("network-transmit-receive") + elseif (v1) and (string.lower(v1['Flags']['value']) == "used up") then + io.write("network-offline") + else + io.write("network-error") + end + io.write(".png' width='16' height='16' title='" .. (v1['Type']['descr'] or "") .. "'> " .. v1["Protocol-Address"]['value'] .. "</TD><TD STYLE='font-weight:bold;'></TD></TR>\n") + for k2,v2 in pairs(v1) do + +---[[ + if (k2) and not ((string.lower(k2) == "protocol-address") or + (string.lower(k2) == "interface")) then + io.write("<TR><TD STYLE='font-weight:bold;padding-left:40px;'>"..k2.."</TD><TD>"..v2['value']) + if (v2['descr']) and (#v2['descr'] > 0) then + io.write(" <I>(" .. (v2['descr'] or "") .. ")</I>") + end + io.write("</TD></TR>\n") + end +--]] + end + + end + + io.write("\t\t\t</TABLE>") +end +io.write("\t\t</DD>\n") +?> +</DL> + +<? +--[[ 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>") +--]] +?> + |