final touches on dkim test harness
[citadel.git] / webcit / mainmenu.c
index ad3ca5286b50dfe8a574944847b059cb0b19f5b1..2c326e001650e4756e7184f4b939966c8798cc6e 100644 (file)
 /*
- * $Id$
+ * The main menu and other things
  *
- * Displays the "advanced" (main) menu.
+ * Copyright (c) 1996-2021 by the citadel.org team
  *
+ * This program is open source software.  We call it open source, not
+ * free software, because Richard Stallman is a communist and an asshole.
+ *
+ * The program is licensed under the General Public License, version 3.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
  */
 
-#include <ctype.h>
-#include <stdlib.h>
-#include <unistd.h>
-#include <stdio.h>
-#include <fcntl.h>
-#include <signal.h>
-#include <sys/types.h>
-#include <sys/wait.h>
-#include <sys/socket.h>
-#include <sys/time.h>
-#include <limits.h>
-#include <netinet/in.h>
-#include <netdb.h>
-#include <string.h>
-#include <pwd.h>
-#include <errno.h>
-#include <stdarg.h>
-#include <pthread.h>
-#include <signal.h>
 #include "webcit.h"
 
-
-
-/*
- * The Main Menu
- */
-void display_main_menu(void)
-{
-       output_headers(1, 1, 1, 0, 0, 0, 0);
-
-       wprintf("<center><TABLE WIDTH=99%%>"
-               "<TR><TD COLSPAN=2>\n");
-
-       svprintf("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 */
-
-       wprintf("<A HREF=\"/knrooms\">"
-               "<span class=\"mainmenu\">"
-               "List known rooms</span></A><br />"
-               "<span class=\"menudesc\">"
-               "Where can I go from here?</span><br />\n"
-       );
-
-       wprintf("<A HREF=\"/gotonext\">"
-               "<span class=\"mainmenu\">"
-               "Goto next room</span></A><br />"
-               "<span class=\"menudesc\">"
-               "...with <EM>unread</EM> messages"
-               "</span><br />\n"
-       );
-
-       wprintf("<A HREF=\"/skip\">"
-               "<span class=\"mainmenu\">"
-               "Skip to next room</span></a><br />"
-               "<span class=\"menudesc\">"
-               "(come back here later)"
-               "</span>\n"
-       );
-
-       if ((strlen(WC->ugname) > 0) && (strcasecmp(WC->ugname, WC->wc_roomname))) {
-               wprintf("<br />"
-                       "<A HREF=\"/ungoto\">"
-                       "<span class=\"mainmenu\">"
-                       "Ungoto</span></A><br />"
-                       "<span class=\"menudesc\">"
-                       "(oops! Back to %s)"
-                       "</span>\n", WC->ugname
-               );
-       }
-
-       wprintf("</TD><TD>\n"); /* start of second column */
-
-       wprintf("<A HREF=\"/readnew\">"
-               "<span class=\"mainmenu\">"
-               "Read new messages</span></A><br />"
-               "<span class=\"menudesc\">"
-               "...in this room</span><br />\n"
-       );
-
-       wprintf("<A HREF=\"/readfwd\">"
-               "<span class=\"mainmenu\">"
-               "Read all messages</span></A><br />"
-               "<span class=\"menudesc\">"
-               "...old <EM>and</EM> new</span><br />\n"
-       );
-
-       wprintf("<A HREF=\"/display_enter\">"
-               "<span class=\"mainmenu\">"
-               "Enter a message</span></A><br />"
-               "<span class=\"menudesc\">"
-               "(post in this room)</span>\n"
-       );
-
-       wprintf("</TD><TD>");   /* start of third column */
-
-       wprintf("<A HREF=\"/summary\">"
-               "<span class=\"mainmenu\">"
-               "Summary page</span></A><br />"
-               "<span class=\"menudesc\">"
-               "Summary of my account</span><br />\n"
-       );
-
-       wprintf("<A HREF=\"/userlist\">\n"
-               "<span class=\"mainmenu\">"
-               "User list</span></A><br />"
-               "<span class=\"menudesc\">"
-               "(all registered users)</span><br />\n"
-       );
-
-       wprintf("<A HREF=\"/termquit\" TARGET=\"_top\">"
-               "<span class=\"mainmenu\">"
-               "Log off</span></A><br />"
-               "<span class=\"menudesc\">"
-               "Bye!</span>\n"
-       );
-
-       wprintf("</TD></TR></TABLE>\n");
-       do_template("endbox");
-
-       wprintf("</TD></TR>"
-               "<TR VALIGN=TOP><TD>");
-
-       svprintf("BOXTITLE", WCS_STRING, "Interaction");
-       do_template("beginbox");
-
-       wprintf("<A HREF=\"/whobbs\">"
-               "<span class=\"mainmenu\">"
-               "Who is online now?</span></A><br />\n"
-       );
-
-       wprintf("<A HREF=\"#\" onClick=\"window.open('/chat', "
-               "'ctdl_chat_window', "
-               "'toolbar=no,location=no,directories=no,copyhistory=no,"
-               "status=no,scrollbars=yes,resizable=yes');\""
-               ">"
-               "<span class=\"mainmenu\">"
-               "Chat with other users in <i>"
-       );
-       escputs(WC->wc_roomname);
-       wprintf("</i></span></A><br />\n");
-
-       wprintf("<A HREF=\"/display_generic\">\n");
-       wprintf("<span class=\"mainmenu\">"
-               "Generic server command</span></A>\n");
-
-       do_template("endbox");
-
-       wprintf("</TD><TD>");
-
-       svprintf("BOXTITLE", WCS_STRING, "Your info");
-       do_template("beginbox");
-
-       wprintf("<A HREF=\"/display_reg\">"
-               "<span class=\"mainmenu\">"
-               "Update your contact information "
-               "</span><br />\n");
-
-       wprintf("<A HREF=\"/display_changepw\">"
-               "<span class=\"mainmenu\">"
-               "Change your password</span></A><br />\n");
-
-       wprintf("<A HREF=\"/display_editbio\">"
-               "<span class=\"mainmenu\">"
-               "Enter your 'bio'</span></a><br />\n");
-
-       wprintf("<A HREF=\"/display_editpic\">"
-               "<span class=\"mainmenu\">"
-               "Edit your online photo</span></a>\n");
-
-       do_template("endbox");
-
-       wprintf("</TD></TR><TR VALIGN=TOP><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\">"
-                       "Edit or delete this room</span></A><br />\n");
-       }
-
-       wprintf("<A HREF=\"/display_private\">"
-               "<span class=\"mainmenu\">"
-               "Go to a &quot;hidden&quot; room</span></A><br />\n");
-
-       wprintf("<A HREF=\"/display_entroom\">"
-               "<span class=\"mainmenu\">"
-               "Create a new room</span></A><br />\n");
-
-       wprintf("<A HREF=\"/display_zap\">"
-               "<span class=\"mainmenu\">"
-               "Zap (forget) this room (%s)</span></A><br />\n",
-               WC->wc_roomname);
-
-        wprintf("<A HREF=\"/display_whok\">\n"
-               "<span class=\"mainmenu\">"
-               "Access controls for this room</span></A><br />\n");
-
-       wprintf("<A HREF=\"/zapped_list\">"
-               "<span class=\"mainmenu\">"
-               "List all forgotten rooms</span></A>\n");
-
-       do_template("endbox");
-
-       wprintf("</TD><TD>");
-
-       if ((WC->axlevel >= 6) || (WC->is_room_aide)) {
-               svprintf("BOXTITLE", WCS_STRING, "Administrative functions");
-               do_template("beginbox");
-
-               wprintf("<A HREF=\"/display_siteconfig\">"
-                       "<span class=\"mainmenu\">"
-                       "Edit site-wide configuration</span></A>\n");
-
-               if (WC->axlevel >= 6) {
-                       wprintf("<br />"
-                               "<A HREF=\"/select_user_to_edit\">"
-                               "<span class=\"mainmenu\">"
-                               "Add, change, delete user accounts"
-                               "</span></A><br />\n");
-
-                       wprintf("<A HREF=\"/validate\">"
-                               "<span class=\"mainmenu\">"
-                               "Validate new users</span></A><br />\n");
-
-                       wprintf("<A HREF=\"/display_floorconfig\">"
-                               "<span class=\"mainmenu\">"
-                               "Add, change, or delete floors"
-                               "</span></A><br />\n");
-
-                       wprintf("<A HREF=\"/display_netconf\">"
-                               "<span class=\"mainmenu\">"
-                               "Configure networking with other systems"
-                               "</span></A><br />\n");
-
-                       wprintf("<A HREF=\"/display_inetconf\">"
-                               "<span class=\"mainmenu\">"
-                               "Internet and domain configuration</span></a><br />\n");
-               }
-               do_template("endbox");
-       }
-       wprintf("</td></tr></table></center>");
-       wDumpContent(2);
+// The Main Menu
+void display_main_menu(void) {
+       begin_burst();
+       output_headers(1, 0, 0, 0, 1, 0);
+       DoTemplate(HKEY("display_main_menu"), NULL, &NoCtx);
+       end_burst();
 }
 
 
-
-
-
-/*
- * Display the screen to enter a generic server command
- */
-void display_generic(void)
-{
-       output_headers(1, 1, 0, 0, 0, 0, 0);
-
-       svprintf("BOXTITLE", WCS_STRING, "Enter a server command");
-       do_template("beginbox");
-
-       wprintf("<CENTER>");
-       wprintf("This screen allows you to enter Citadel server commands which are\n");
-       wprintf("not supported by WebCit.  If you do not know what that means,\n");
-       wprintf("then this screen will not be of much use to you.<br />\n");
-
-       wprintf("<FORM METHOD=\"POST\" ACTION=\"/do_generic\">\n");
-
-       wprintf("Enter command:<br />\n");
-       wprintf("<INPUT TYPE=\"text\" NAME=\"g_cmd\" SIZE=80 MAXLENGTH=\"250\"><br />\n");
-
-       wprintf("Command input (if requesting SEND_LISTING transfer mode):<br />\n");
-       wprintf("<TEXTAREA NAME=\"g_input\" ROWS=10 COLS=80 WIDTH=80></TEXTAREA><br />\n");
-
-       wprintf("<FONT SIZE=-2>Detected host header is http://%s</FONT>\n",
-               WC->http_host);
-       wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Send command\">");
-       wprintf("&nbsp;");
-       wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\"><br />\n");
-
-       wprintf("</FORM></CENTER>\n");
-       do_template("endbox");
-       wDumpContent(1);
+// System administration menu
+void display_aide_menu(void) {
+       begin_burst();
+       output_headers(1, 0, 0, 0, 1, 0);
+       DoTemplate(HKEY("aide_display_menu"), NULL, &NoCtx);
+       end_burst();
 }
 
-void do_generic(void)
-{
-       char buf[SIZ];
-       char gcontent[SIZ];
+
+// Handle generic server commands, possibly entered from a screen, possibly set up as a way to avoid custom code
+void do_generic(void) {
+        WCTemplputParams SubTP;
+       int Done = 0;
+       StrBuf *Buf;
+       StrBuf *LineBuf;
        char *junk;
        size_t len;
 
-       if (strcasecmp(bstr("sc"), "Send command")) {
+       if ( (!havebstr("sc_button")) && (!havebstr("ok_button")) && (!havebstr("cancel_button")) ) {
                display_main_menu();
                return;
        }
 
-       output_headers(1, 1, 0, 0, 0, 0, 0);
-
-       serv_printf("%s", bstr("g_cmd"));
-       serv_gets(buf);
-
-       svprintf("BOXTITLE", WCS_STRING, "Server command results");
-       do_template("beginbox");
-
-       wprintf("<TABLE border=0><TR><TD>Command:</TD><TD><TT>");
-       escputs(bstr("g_cmd"));
-       wprintf("</TT></TD></TR><TR><TD>Result:</TD><TD><TT>");
-       escputs(buf);
-       wprintf("</TT></TD></TR></TABLE><br />\n");
-
-       if (buf[0] == '8') {
-               serv_printf("\n\n000");
+       if (havebstr("cancel_button")) {
+               AppendImportantMessage(_("Cancelled.  Changes were not saved."), -1);
        }
-       if ((buf[0] == '1') || (buf[0] == '8')) {
-               while (serv_gets(gcontent), strcmp(gcontent, "000")) {
-                       escputs(gcontent);
-                       wprintf("<br />\n");
+
+       if (havebstr("ok_button")) {
+               Buf = NewStrBuf();
+               serv_puts(bstr("g_cmd"));
+               StrBuf_ServGetln(Buf);
+               
+               switch (GetServerStatus(Buf, NULL)) {
+               case 8:
+                       serv_puts("\n\n000");
+                       if ( (StrLength(Buf)==3) && 
+                       !strcmp(ChrPtr(Buf), "000")) {
+                               StrBufAppendBufPlain(Buf, HKEY("\000"), 0);
+                               break;
+                       }
+               case 1:
+                       LineBuf = NewStrBuf();
+                       StrBufAppendBufPlain(Buf, HKEY("\n"), 0);
+                       while (!Done) {
+                               if (StrBuf_ServGetln(LineBuf) < 0)
+                                       break;
+                               if ( (StrLength(LineBuf)==3) && 
+                               !strcmp(ChrPtr(LineBuf), "000")) {
+                                       Done = 1;
+                               }
+                               StrBufAppendBuf(Buf, LineBuf, 0);
+                               StrBufAppendBufPlain(Buf, HKEY("\n"), 0);
+                       }
+                       FreeStrBuf(&LineBuf);
+                       break;
+               case 2:
+                       break;
+               case 4:
+                       text_to_server(bstr("g_input"));
+                       serv_puts("000");
+                       break;
+               case 6:
+                       len = atol(&ChrPtr(Buf)[4]);
+                       StrBuf_ServGetBLOBBuffered(Buf, len);
+                       break;
+               case 7:
+                       len = atol(&ChrPtr(Buf)[4]);
+                       junk = malloc(len);
+                       memset(junk, 0, len);
+                       serv_write(junk, len);
+                       free(junk);
+                       break;
                }
-               wprintf("000");
-       }
-       if (buf[0] == '4') {
-               text_to_server(bstr("g_input"), 0);
-               serv_puts("000");
+               FreeStrBuf(&Buf);
        }
-       if (buf[0] == '6') {
-               len = atol(&buf[4]);
-               junk = malloc(len);
-               serv_read(junk, len);
-               free(junk);
+       
+       // We may have been supplied with instructions regarding the location
+       // to which we must return after posting.  If found, go there.
+       if (havebstr("return_to")) {
+               syslog(LOG_DEBUG, "return_to = %s", bstr("return_to"));
+               http_redirect(bstr("return_to"));
        }
-       if (buf[0] == '7') {
-               len = atol(&buf[4]);
-               junk = malloc(len);
-               memset(junk, 0, len);
-               serv_write(junk, len);
-               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");
-       do_template("endbox");
-       wDumpContent(1);
-}
 
+       // Otherwise, do the generic result screen.
+       else {
+               begin_burst();
+               output_headers(1, 0, 0, 0, 1, 0);
+       
+               StackContext(NULL, &SubTP, Buf, CTX_STRBUF, 0, NULL);
+               {
+                       DoTemplate(HKEY("aide_display_generic_result"), NULL, &SubTP);
+               }
+               UnStackContext(&SubTP);
+               wDumpContent(1);
+       }
 
+}
 
 
-/*
- * 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, 0);
-               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");
+// Display the wait / input dialog while restarting the server.
+void display_shutdown(void) {
+       StrBuf *Line;
+       char *when;
+       
+       Line = NewStrBuf();
+       when=bstr("when");
+       if (strcmp(when, "now") == 0){
+               serv_printf("DOWN 1");
+               StrBuf_ServGetln(Line);
+               GetServerStatusMsg(Line, NULL, 1, 5);
+
+               begin_burst();
+               output_headers(1, 0, 0, 0, 1, 0);
+               DoTemplate(HKEY("aide_display_serverrestart"), NULL, &NoCtx);
+               end_burst();
+               lingering_close(WC->Hdr->http_sock);
+               sleeeeeeeeeep(10);
+               serv_printf("NOOP");
+               serv_printf("NOOP");
        }
-
-       do_template("menubar");
-
-       if (as_single_page) {
-               wDumpContent(2);
+       else if (strcmp(when, "page") == 0) {
+               char *message;
+              
+               message = bstr("message");
+               if ((message == NULL) || (IsEmptyStr(message)))
+               {
+                       begin_burst();
+                       output_headers(1, 0, 0, 0, 1, 0);
+                       DoTemplate(HKEY("aide_display_serverrestart_page"), NULL, &NoCtx);
+                       end_burst();
+               }
+               else
+               {
+                       serv_printf("SEXP broadcast|%s", message);
+                       StrBuf_ServGetln(Line);
+                       GetServerStatusMsg(Line, NULL, 1, 0);
+
+                       begin_burst();
+                       output_headers(1, 0, 0, 0, 1, 0);
+                       DoTemplate(HKEY("aide_display_serverrestart_page"), NULL, &NoCtx);
+                       end_burst();                    
+               }
        }
-
-
+       else if (!strcmp(when, "idle")) {
+               serv_printf("SCDN 3");
+               StrBuf_ServGetln(Line);
+               GetServerStatusMsg(Line, NULL, 1, 2);
+
+               begin_burst();
+               output_headers(1, 0, 0, 0, 1, 0);
+               DoTemplate(HKEY("aide_display_menu"), NULL, &NoCtx);
+               end_burst();                    
+       }
+       FreeStrBuf(&Line);
 }
 
 
+void 
+InitModule_MAINMENU
+(void)
+{
+       WebcitAddUrlHandler(HKEY("display_aide_menu"), "", 0, display_aide_menu, 0);
+       WebcitAddUrlHandler(HKEY("server_shutdown"), "", 0, display_shutdown, 0);
+       WebcitAddUrlHandler(HKEY("display_main_menu"), "", 0, display_main_menu, 0);
+       WebcitAddUrlHandler(HKEY("do_generic"), "", 0, do_generic, 0);
+}