summaryrefslogtreecommitdiffstats
path: root/app/startstop-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'app/startstop-html.lsp')
-rw-r--r--app/startstop-html.lsp23
1 files changed, 23 insertions, 0 deletions
diff --git a/app/startstop-html.lsp b/app/startstop-html.lsp
new file mode 100644
index 0000000..c0ead72
--- /dev/null
+++ b/app/startstop-html.lsp
@@ -0,0 +1,23 @@
+<? local data, viewlibrary, page_info = ... ?>
+
+<H1>Management</H1>
+<DL>
+<form action="<?= page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action ?>" method="POST">
+<DT>Program control-panel</DT>
+<DD>
+<input class="submit" type="submit" name="action" value="Start" <? if data.value.status.value== "Enabled" then io.write("disabled") end ?>>
+<input class="submit" type="submit" name="action" value="Stop" <? if data.value.status.value== "Disabled" then io.write("disabled") end ?>>
+<input class="submit" type="submit" name="action" value="Restart" <? if data.value.status.value== "Disabled" then io.write("disabled") end ?>>
+</DD>
+</form>
+
+<? if data.value.result then ?>
+<DT>Previous action result</DT>
+<DD>
+<? if data.value.result.descr then ?>
+<P CLASS='descr'><?= string.gsub(data.value.result.descr, "\n", "<BR>") ?></P>
+<? end if data.value.result.errtxt then ?>
+<P CLASS='error'><?= string.gsub(data.value.result.errtxt, "\n", "<BR>") ?></P>
+<? end end ?>
+</DD>
+</DL>