X-Git-Url: https://code.citadel.org/?a=blobdiff_plain;f=webcit%2Fmainmenu.c;h=14b3cedc3fb1e7e25af947bcfd6a2c39e4dafdcb;hb=2362c3d4de86f20822ab81015222a196137fd20e;hp=92b11d4efc92dc80123af6df73bff760ea1cfa40;hpb=c7a28913ad7fbcd263888e0bbb24b380d3a81b9c;p=citadel.git

diff --git a/webcit/mainmenu.c b/webcit/mainmenu.c
index 92b11d4ef..14b3cedc3 100644
--- a/webcit/mainmenu.c
+++ b/webcit/mainmenu.c
@@ -1,256 +1,195 @@
 /*
  * $Id$
  */
-/**
- * \defgroup DispAdvancedMenu Displays the "advanced" (main) menu.
- *
- */
-/*@{*/
+
 #include "webcit.h"
 
-/**
- * \brief The Main Menu
+/*
+ * The Main Menu
  */
 void display_main_menu(void)
 {
+	char buf[SIZ];
 	output_headers(1, 1, 1, 0, 0, 0);
 
 	wprintf("<div class=\"fix_scrollbar_bug\">"
-		"<TABLE WIDTH=100%%>"
-		"<TR><TD COLSPAN=2>\n");
+		"<table width=\"100%%\" cellspacing=\"10px\" cellpadding=\"0\">"
+		"<tr><td colspan=\"2\" class=\"advanced\">\n");
 
-	svprintf("BOXTITLE", WCS_STRING, _("Basic commands"));
+	svput("BOXTITLE", WCS_STRING, _("Basic commands"));
 	do_template("beginbox");
 
-	wprintf("\n"
-		"<TABLE border=0 cellspacing=1 cellpadding=1 width=100%%>"
-		"<TR>"
-		"<TD>");	/**< start of first column */
+	/* start of first column */
+	wprintf("<ul class=\"adminitems col1\">");
 
-	wprintf("<a href=\"knrooms\"><span class=\"mainmenu\">");
+	wprintf("<li><a href=\"knrooms\">");
 	wprintf(_("List known rooms"));
-	wprintf("</span></A><br /><span class=\"menudesc\">");
+	wprintf("</a><span>");
 	wprintf(_("Where can I go from here?"));
-	wprintf("</span><br />\n");
+	wprintf("</span></li>\n");
 
-	wprintf("<a href=\"gotonext\">"
-		"<span class=\"mainmenu\">");
+	wprintf("<li><a href=\"gotonext\">");
 	wprintf(_("Goto next room"));
-	wprintf("</span></A><br />"
-		"<span class=\"menudesc\">");
-	wprintf(_("...with <EM>unread</EM> messages"));
-	wprintf("</span><br />\n");
+	wprintf("</a><span>");
+	wprintf(_("...with <em>unread</em> messages"));
+	wprintf("</span></li>\n");
 
-	wprintf("<a href=\"skip\">"
-		"<span class=\"mainmenu\">");
+	wprintf("<li><a href=\"skip\">");
 	wprintf(_("Skip to next room"));
-	wprintf("</span></a><br />"
-		"<span class=\"menudesc\">");
+	wprintf("</a><span>");
 	wprintf(_("(come back here later)"));
-	wprintf("</span>\n");
+	wprintf("</span></li>\n");
 
-	if ((strlen(WC->ugname) > 0) && (strcasecmp(WC->ugname, WC->wc_roomname))) {
-		wprintf("<br />"
-			"<a href=\"ungoto\">"
-			"<span class=\"mainmenu\">");
+	if ((!IsEmptyStr(WC->ugname)) && (strcasecmp(WC->ugname, WC->wc_roomname))) {
+		wprintf("<li><a href=\"ungoto\">");
 		wprintf(_("Ungoto"));
-		wprintf("</span></A><br />"
-			"<span class=\"menudesc\">");
+		wprintf("</a><span>");
 		wprintf(_("(oops! Back to %s)"), WC->ugname);
-		wprintf("</span>\n");
+		wprintf("</span></li>\n");
 	}
 
-	wprintf("</TD><TD>\n");	/* start of second column */
+	wprintf("</ul>\n");
 
-	wprintf("<a href=\"readnew\">"
-		"<span class=\"mainmenu\">");
+	/* start of second column */
+
+	wprintf("<ul class=\"adminitems col2\">");
+
+	wprintf("<li><a href=\"readnew\">");
 	wprintf(_("Read new messages"));
-	wprintf("</span></A><br />"
-		"<span class=\"menudesc\">");
+	wprintf("</a><span>");
 	wprintf(_("...in this room"));
-	wprintf("</span><br />\n");
+	wprintf("</span></li>\n");
 
-	wprintf("<a href=\"readfwd\">"
-		"<span class=\"mainmenu\">");
+	wprintf("<li><a href=\"readfwd\">");
 	wprintf(_("Read all messages"));
-	wprintf("</span></A><br />"
-		"<span class=\"menudesc\">");
+	wprintf("</a><span>");
 	wprintf(_("...old <EM>and</EM> new"));
-	wprintf("</span><br />\n");
+	wprintf("</span></li>\n");
 
-	wprintf("<a href=\"display_enter\">"
-		"<span class=\"mainmenu\">");
+	wprintf("<li><a href=\"display_enter\">");
 	wprintf(_("Enter a message"));
-	wprintf("</span></A><br />"
-		"<span class=\"menudesc\">");
+	wprintf("</a><span>");
 	wprintf(_("(post in this room)"));
-	wprintf("</span>\n");
+	wprintf("</span></li>\n");
+
+	if (WC->room_flags & QR_VISDIR) {
+		wprintf("<li><a href=\"display_room_directory\">");
+		wprintf(_("File library"));
+		wprintf("</a><span>");
+		wprintf(_("(List files available for download)"));
+		wprintf("</span></li>\n");
+	}
+
+	wprintf("</ul>\n");
 
-	wprintf("</TD><TD>");	/* start of third column */
+	/* start of third column */
 
-	wprintf("<a href=\"summary\">"
-		"<span class=\"mainmenu\">");
+	wprintf("<ul class=\"adminitems lastcol\">");
+
+	wprintf("<li><a href=\"summary\">");
 	wprintf(_("Summary page"));
-	wprintf("</span></A><br />"
-		"<span class=\"menudesc\">");
+	wprintf("</a><span>");
 	wprintf(_("Summary of my account"));
-	wprintf("</span><br />\n");
+	wprintf("</span></li>\n");
 
-	wprintf("<a href=\"userlist\">\n"
-		"<span class=\"mainmenu\">");
+	wprintf("<li><a href=\"userlist\">\n");
 	wprintf(_("User list"));
-	wprintf("</span></A><br />"
-		"<span class=\"menudesc\">");
+	wprintf("</a><span>");
 	wprintf(_("(all registered users)"));
-	wprintf("</span><br />\n");
+	wprintf("</span></li>\n");
 
-	wprintf("<a href=\"termquit\" TARGET=\"_top\">"
-		"<span class=\"mainmenu\">");
+	wprintf("<li><a href=\"termquit\" TARGET=\"_top\">");
 	wprintf(_("Log off"));
-	wprintf("</span></A><br />"
-		"<span class=\"menudesc\">");
+	wprintf("</a><span>");
 	wprintf(_("Bye!"));
-	wprintf("</span>\n");
-
-	wprintf("</TD></TR></TABLE>\n");
-	do_template("endbox");
-
-	wprintf("</TD></TR>"
-		"<TR VALIGN=TOP><TD>");
-
-	svprintf("BOXTITLE", WCS_STRING, _("Your info"));
-	do_template("beginbox");
-
-	wprintf("<a href=\"display_preferences\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Change your preferences and settings"));
-	wprintf("</span><br />\n");
-
-	wprintf("<a href=\"display_reg\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Update your contact information"));
-	wprintf("</span><br />\n");
+	wprintf("</span></li>\n");
 
-	wprintf("<a href=\"display_changepw\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Change your password"));
-	wprintf("</span></A><br />\n");
+	wprintf("</ul>\n");
 
-	wprintf("<a href=\"display_editbio\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Enter your 'bio'"));
-	wprintf("</span></a><br />\n");
-
-	wprintf("<a href=\"display_editpic\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Edit your online photo"));
-	wprintf("</span></a>\n");
+	wprintf("&nbsp;");
 
 	do_template("endbox");
 
-	wprintf("</TD><TD>");
-
-	svprintf("BOXTITLE", WCS_STRING, _("Advanced room commands"));
-	do_template("beginbox");
-
-	if ((WC->axlevel >= 6) || (WC->is_room_aide)) {
-		wprintf("<a href=\"display_editroom\">"
-			"<span class=\"mainmenu\">");
-		wprintf(_("Edit or delete this room"));
-		wprintf("</span></A><br />\n");
-	}
-
-	wprintf("<a href=\"display_private\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Go to a 'hidden' room"));
-	wprintf("</span></A><br />\n");
-
-	wprintf("<a href=\"display_entroom\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Create a new room"));
-	wprintf("</span></A><br />\n");
+	wprintf("</td></tr>"
+		"<tr valign=top><td width=50%%>");
+
+	print_menu_box(_("Your info"), "adminitems", 8,
+		       "display_preferences", _("Change your preferences and settings"),
+		       "display_reg", _("Update your contact information"),
+		       "display_changepw", _("Change your password"),
+		       "display_editbio", _("Enter your 'bio'"),
+		       "display_editpic", _("Edit your online photo"), 
+		       "display_sieve", _("View/edit server-side mail filters"),
+		       "display_pushemail", _("Edit your push email settings"),
+		       "display_openids", _("Manage your OpenIDs")
+	);
 
-	wprintf("<a href=\"display_zap\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Zap (forget) this room (%s)"), WC->wc_roomname);
-	wprintf("</span></A><br />\n");
+	wprintf("</td><td width=50%%>");
 
-	wprintf("<a href=\"zapped_list\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("List all forgotten rooms"));
-	wprintf("</span></A>\n");
+	snprintf(buf, SIZ, _("Zap (forget) this room (%s)"), WC->wc_roomname);
 
-	do_template("endbox");
+	if ( (WC->axlevel >= 6) || (WC->is_room_aide) || (WC->is_mailbox) )
+		print_menu_box(_("Advanced room commands"),"adminitems", 5,
+			       "display_editroom", _("Edit or delete this room"),
+			       "display_private", _("Go to a 'hidden' room"),
+			       "display_entroom", _("Create a new room"),
+			       "display_zap",buf,
+			       "zapped_list",_("List all forgotten rooms"));
+	else
+		print_menu_box(_("Advanced room commands"),"adminitems", 4,
+			       "display_private", _("Go to a 'hidden' room"),
+			       "display_entroom", _("Create a new room"),
+			       "display_zap",buf,
+			       "zapped_list",_("List all forgotten rooms"));
 
 	wprintf("</td></tr></table></div>");
 	wDumpContent(2);
 }
 
 
-/**
- * \brief System administration menu
+/*
+ * System administration menu
  */
 void display_aide_menu(void)
 {
 	output_headers(1, 1, 2, 0, 0, 0);
-	wprintf("<div id=\"banner\">\n"
-		"<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
-		"<SPAN CLASS=\"titlebar\">");
-	wprintf(_("System Administration Menu"));
-	wprintf("</SPAN>"
-		"</TD></TR></TABLE>\n"
-		"</div>\n<div id=\"content\">\n"
-	);
-
-	wprintf("<div class=\"fix_scrollbar_bug\">"
-		"<table border=0 width=100%%><tr valign=top><td>");
 
-	svprintf("BOXTITLE", WCS_STRING, _("Global Configuration"));
-	do_template("beginbox");
-
-	wprintf("<a href=\"display_siteconfig\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Edit site-wide configuration"));
-	wprintf("</span></A><br />\n");
-
-	wprintf("<a href=\"display_inetconf\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Domain names and Internet mail configuration"));
-	wprintf("</span></a><br />\n");
-
-	wprintf("<a href=\"display_netconf\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Configure replication with other Citadel servers"));
-	wprintf("</span></A>\n");
+        wprintf("<div id=\"banner\">\n");
+        wprintf("<h1>");
+	wprintf(_("System Administration Menu"));
+        wprintf("</h1>");
+        wprintf("</div>\n");
 
-	do_template("endbox");
+	wprintf("<div id=\"content\" class=\"service\">");
 
-	wprintf("</td><td>");
+	wprintf("<div class=\"fix_scrollbar_bug\">"
+		"<table> "
+		"<tr valign=top><td width=50%% valign=\"top\">");
 
-	svprintf("BOXTITLE", WCS_STRING, _("User account management"));
-	do_template("beginbox");
+	print_menu_box(_("Global Configuration"), "adminitems", 4,
+		       "display_siteconfig", _("Edit site-wide configuration"), 
+		       "display_inetconf",_("Domain names and Internet mail configuration"),
+		       "display_netconf", _("Configure replication with other Citadel servers"), 
+		       "display_smtpqueue", _("View the outbound SMTP queue"));
+	
+	wprintf("</td><td width=50%% valign=\"top\">");
 
-	wprintf("<a href=\"select_user_to_edit\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Add, change, delete user accounts"));
-	wprintf("</span></A><br />\n");
+	print_menu_box(_("User account management"), "adminitems", 2, 
+		       "select_user_to_edit", _("Add, change, delete user accounts"),
+		       "validate", _("Validate new users"));
 
-	wprintf("<a href=\"validate\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Validate new users"));
-	wprintf("</span></A><br />\n");
+	wprintf("</td></tr><tr><td width=50%% valign=\"top\">");
 
-	do_template("endbox");
 
-	svprintf("BOXTITLE", WCS_STRING, _("Rooms and Floors"));
-	do_template("beginbox");
+	print_menu_box(_("Shutdown Citadel"), "adminitems", 3, 
+		       "server_shutdown?when=now", _("Restart Now"),
+		       "server_shutdown?when=page", _("Restart after paging users"),
+		       "server_shutdown?when=idle", _("Restart when all users are idle"));
 
-	wprintf("<a href=\"display_floorconfig\">"
-		"<span class=\"mainmenu\">");
-	wprintf(_("Add, change, or delete floors"));
-	wprintf("</span></A>\n");
+	wprintf("</td><td width=50%% valign=\"top\">");
 
-	do_template("endbox");
+	print_menu_box(_("Rooms and Floors"), "adminitems", 1, 
+		       "display_floorconfig", _("Add, change, or delete floors"));
 
 	wprintf("</td></tr></table></div>");
 	wDumpContent(2);
@@ -258,53 +197,52 @@ void display_aide_menu(void)
 
 
 
-
-
-/**
- * \brief Display the screen to enter a generic server command
+/*
+ * Display the screen to enter a generic server command
  */
 void display_generic(void)
 {
 	output_headers(1, 1, 2, 0, 0, 0);
-	wprintf("<div id=\"banner\">\n"
-		"<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
-		"<SPAN CLASS=\"titlebar\">");
+	wprintf("<div id=\"banner\">\n");
+	wprintf("<h1>");
 	wprintf(_("Enter a server command"));
-	wprintf("</SPAN></TD></TR></TABLE>\n"
-		"</div>\n<div id=\"content\">\n"
-	);
+	wprintf("</h1>");
+	wprintf("</div>\n");
+
+	wprintf("<div id=\"content\" class=\"service\">\n");
 
 	wprintf("<div class=\"fix_scrollbar_bug\">"
-		"<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
+		"<table class=\"mainmenu_background\"><tr><td>\n");
 
-	wprintf("<CENTER>");
+	wprintf("<center>");
 	wprintf(_("This screen allows you to enter Citadel server commands which are "
 		"not supported by WebCit.  If you do not know what that means, "
 		"then this screen will not be of much use to you."));
 	wprintf("<br />\n");
 
-	wprintf("<FORM METHOD=\"POST\" action=\"do_generic\">\n");
+	wprintf("<form method=\"post\" action=\"do_generic\">\n");
+	wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
 
 	wprintf(_("Enter command:"));
-	wprintf("<br /><INPUT TYPE=\"text\" NAME=\"g_cmd\" SIZE=80 MAXLENGTH=\"250\"><br />\n");
+	wprintf("<br /><input type=\"text\" name=\"g_cmd\" size=80 maxlength=\"250\"><br />\n");
 
 	wprintf(_("Command input (if requesting SEND_LISTING transfer mode):"));
-	wprintf("<br /><TEXTAREA NAME=\"g_input\" ROWS=10 COLS=80 WIDTH=80></TEXTAREA><br />\n");
+	wprintf("<br /><textarea name=\"g_input\" rows=10 cols=80 width=80></textarea><br />\n");
 
-	wprintf("<FONT SIZE=-2>");
+	wprintf("<font size=-2>");
 	wprintf(_("Detected host header is %s://%s"), (is_https ? "https" : "http"), WC->http_host);
-	wprintf("</FONT>\n");
-	wprintf("<INPUT TYPE=\"submit\" NAME=\"sc_button\" VALUE=\"%s\">", _("Send command"));
+	wprintf("</font>\n");
+	wprintf("<input type=\"submit\" name=\"sc_button\" value=\"%s\">", _("Send command"));
 	wprintf("&nbsp;");
-	wprintf("<INPUT TYPE=\"submit\" NAME=\"cancel_button\" VALUE=\"%s\"><br />\n", _("Cancel"));
+	wprintf("<input type=\"submit\" name=\"cancel_button\" value=\"%s\"><br />\n", _("Cancel"));
 
-	wprintf("</FORM></CENTER>\n");
+	wprintf("</form></center>\n");
 	wprintf("</td></tr></table></div>\n");
 	wDumpContent(1);
 }
 
-/**
- * \brief what???
+/*
+ * Interactive window to perform generic Citadel server commands.
  */
 void do_generic(void)
 {
@@ -313,7 +251,7 @@ void do_generic(void)
 	char *junk;
 	size_t len;
 
-	if (strlen(bstr("sc_button")) == 0) {
+	if (!havebstr("sc_button")) {
 		display_main_menu();
 		return;
 	}
@@ -323,14 +261,14 @@ void do_generic(void)
 	serv_printf("%s", bstr("g_cmd"));
 	serv_getln(buf, sizeof buf);
 
-	svprintf("BOXTITLE", WCS_STRING, _("Server command results"));
+	svput("BOXTITLE", WCS_STRING, _("Server command results"));
 	do_template("beginbox");
 
-	wprintf("<TABLE border=0><TR><TD>Command:</TD><TD><TT>");
+	wprintf("<table border=0><tr><td>Command:</td><td><tt>");
 	escputs(bstr("g_cmd"));
-	wprintf("</TT></TD></TR><TR><TD>Result:</TD><TD><TT>");
+	wprintf("</tt></td></tr><tr><td>Result:</td><td><tt>");
 	escputs(buf);
-	wprintf("</TT></TD></TR></TABLE><br />\n");
+	wprintf("</tt></td></tr></table><br />\n");
 
 	if (buf[0] == '8') {
 		serv_printf("\n\n000");
@@ -343,7 +281,7 @@ void do_generic(void)
 		wprintf("000");
 	}
 	if (buf[0] == '4') {
-		text_to_server(bstr("g_input"), 0);
+		text_to_server(bstr("g_input"));
 		serv_puts("000");
 	}
 	if (buf[0] == '6') {
@@ -360,29 +298,30 @@ void do_generic(void)
 		free(junk);
 	}
 	wprintf("<hr />");
-	wprintf("<a href=\"display_generic\">Enter another command</A><br />\n");
-	wprintf("<a href=\"display_advanced\">Return to menu</A>\n");
+	wprintf("<a href=\"display_generic\">Enter another command</a><br />\n");
+	wprintf("<a href=\"display_advanced\">Return to menu</a>\n");
 	do_template("endbox");
 	wDumpContent(1);
 }
 
 
-/**
- * \brief Display the menubar.  
- * \param as_single_page Set to display HTML headers and footers -- otherwise it's assumed
+/*
+ * Display the menubar.  
+ *
+ * Set 'as_single_page' to display HTML headers and footers -- otherwise it's assumed
  * that the menubar is being embedded in another page.
  */
 void display_menubar(int as_single_page) {
 
 	if (as_single_page) {
 		output_headers(0, 0, 0, 0, 0, 0);
-		wprintf("<HTML>\n"
-			"<HEAD>\n"
-			"<TITLE>MenuBar</TITLE>\n"
-			"<STYLE TYPE=\"text/css\">\n"
-			"BODY	{ text-decoration: none; }\n"
-			"</STYLE>\n"
-			"</HEAD>\n");
+		wprintf("<html>\n"
+			"<head>\n"
+			"<title>MenuBar</title>\n"
+			"<style type=\"text/css\">\n"
+			"body	{ text-decoration: none; }\n"
+			"</style>\n"
+			"</head>\n");
 		do_template("background");
 	}
 
@@ -396,4 +335,83 @@ void display_menubar(int as_single_page) {
 }
 
 
-/*@}*/
+/*
+ * Display the wait / input dialog while restarting the server.
+ */
+void display_shutdown(void)
+{
+	char buf[SIZ];
+	char *when;
+	
+	when=bstr("when");
+	if (!strcmp(when, "now")){
+		serv_printf("DOWN 1");
+		serv_getln(buf, sizeof buf);
+		if (atol(buf) == 500)
+		{ /* upsie. maybe the server is not running as daemon? */
+			wprintf("<html><head></head><body>Attention: %s</body></html>", &buf[4]);
+
+		}
+		else {
+			wprintf("<html>\n"
+				"<head>\n"
+				"<meta http-equiv=\"refresh\" content=\"15; URL=knrooms\"/>\n"
+				"</head>\n"
+				"<body bgcolor=\"#FFFFFF\">\n"
+				"<img src=\"static/throbber.gif\" /> <font color=\"#AAAAAA\">%s </font>"
+				"</body>\n</html>\n",
+				_("Please wait while the Citadel server is restarted... ")
+				);
+		}
+		wDumpContent(0);
+		lingering_close(WC->http_sock);
+		sleeeeeeeeeep(10);
+		serv_printf("NOOP");
+		serv_printf("NOOP");
+	}
+	else if (!strcmp(when, "page")) {
+		char *message;
+	       
+		message = bstr("message");
+		if ((message == NULL) || (IsEmptyStr(message)))
+		{
+			output_headers(1, 1, 1, 0, 0, 0);
+			svput("BOXTITLE", WCS_STRING, _("Message to your Users:"));
+			do_template("beginbox");
+			wprintf("<form action=\"server_shutdown\">\n"
+				"<input type=\"hidden\" name=\"when\" value=\"page\">\n"
+				"<input type=\"text\" name=\"message\" value=\"%s\">\n"
+				"<input type=\"submit\" value=\"go\">\n"
+				"</form>\n",
+				_("The citadel server has to be restarted. It 'll be back in a minute.")
+				);
+			do_template("endbox");
+			wDumpContent(1);
+
+			
+		}
+		else
+		{
+			// TODO: page the users... wait longer...
+			serv_printf("SEXP broadcast|%s", message);
+			serv_getln(buf, sizeof buf); // should we care?
+			wprintf("<html>\n"
+				"<head>\n"
+				"<meta http-equiv=\"refresh\" content=\"15; URL=knrooms\"/>\n"
+				"</head>\n"
+				"<body bgcolor=\"#FFFFFF\">\n"
+				"<img src=\"static/throbber.gif\" /> <font color=\"#AAAAAA\">%s </font>"
+				"</body>\n</html>\n",
+				_("Please wait while your users are being paged, the citadel server will be restarted after that... "));
+			
+		}
+	}
+	else if (!strcmp(when, "idle")) {
+		serv_printf("SCDN 3");
+		serv_getln(buf, sizeof buf);
+		if (atol(buf) == 500) {
+			/* oops ... maybe the server is not running as a daemon? */
+			wprintf("<html><head></head><body>Attention: %s</body></html>", &buf[4]);
+		}
+	}
+}