diff options
Diffstat (limited to 'fetchmail-listentries-html.lsp')
-rw-r--r-- | fetchmail-listentries-html.lsp | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/fetchmail-listentries-html.lsp b/fetchmail-listentries-html.lsp new file mode 100644 index 0000000..2b2e54e --- /dev/null +++ b/fetchmail-listentries-html.lsp @@ -0,0 +1,40 @@ +<% local data, viewlibrary, page_info, session = ... +require("viewfunctions") +%> +<% +--[[ DEBUG INFORMATION +io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>") +io.write(html.cfe_unpack(data)) +io.write("</span>") +--]] +%> + +<% displaycommandresults({"deleteentry"}, session) %> + +<h1>Edit/View Fetchmail Entries</h1> +<DL> +<TABLE> + <TR style="background:#eee;font-weight:bold;"> + <TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Action</TD> + <TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Entry</TD> + <TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Enabled</TD> + <TD style="white-space:nowrap;text-align:left;" class="header">Method</TD> + </TR> +<% for i,entry in ipairs(data.value) do %> + <TR> + <TD style="padding-right:20px;white-space:nowrap;"> + <% io.write(html.link{value = "editentry?entry=" .. entry.entry, label="Edit " }) %> + <% io.write(html.link{value = "deleteentry?entry=" .. entry.entry, label="Delete " }) %> + </TD> + <TD style="padding-right:20px;white-space:nowrap;"><%= entry.entry %></TD> + <TD style="padding-right:20px;white-space:nowrap;"><%= entry.enabled %></TD> + <TD style="white-space:nowrap;" width="90%"><%= entry.method %></TD> + </TR> +<% end %> +</TABLE> + +<DT>Add new entry</DT> +<DD><form action="<%= page_info.script .. page_info.prefix .. page_info.controller .. "/createentry" %>" method="POST"> +<input type=submit value="New" class="submit"> +</form></DD> +</DL> |