+ do_template("endbox");
+
+ wprintf("</td><td>");
+
+ svprintf("BOXTITLE", WCS_STRING, _("Delete scripts"));
+ do_template("beginbox");
+
+ wprintf(_("To delete an existing script, select the script "
+ "name from the list and click 'Delete'."));
+ wprintf("<br /><br />");
+
+ wprintf("<center>"
+ "<form method=\"POST\" action=\"delete_script\">\n");
+ wprintf("<select name=\"script_name\" size=10 style=\"width:100%%\">\n");
+
+ serv_puts("MSIV listscripts");
+ serv_getln(buf, sizeof buf);
+ if (buf[0] == '1') {
+ while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
+ extract_token(script_name, buf, 0, '|', sizeof script_name);
+ if (extract_int(buf, 1) == 0) {
+ wprintf("<option>");
+ escputs(script_name);
+ wprintf("</option>\n");
+ }
+ }
+ }
+ wprintf("</select><br />\n");
+
+ wprintf("<input type=\"submit\" name=\"delete_button\" value=\"%s\" "
+ "onClick=\"return confirm('%s');\">", _("Delete script"), _("Delete this script?"));
+ wprintf("</form></center>\n");
+ do_template("endbox");
+
+ wprintf("</td></tr></table>\n");