citadel/modules/ctdlproto/serv_session.c

   1 /*
   2  * Server functions which perform operations on user objects.
   3  *
   4  * Copyright (c) 1987-2020 by the citadel.org team
   5  *
   6  * This program is open source software; you can redistribute it and/or
   7  * modify it under the terms of the GNU General Public License, version 3.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  */
  14
  15 #include <stdio.h>
  16 #include <libcitadel.h>
  17 #include "citserver.h"
  18 #include "svn_revision.h"
  19 #include "ctdl_module.h"
  20 #include "config.h"
  21
  22
  23 void cmd_noop(char *argbuf)
  24 {
  25         cprintf("%d%cok\n", CIT_OK, CtdlCheckExpress() );
  26 }
  27
  28
  29 void cmd_qnop(char *argbuf)
  30 {
  31         /* do nothing, this command returns no response */
  32 }
  33
  34
  35 /*
  36  * Set or unset asynchronous protocol mode
  37  */
  38 void cmd_asyn(char *argbuf)
  39 {
  40         int new_state;
  41
  42         new_state = extract_int(argbuf, 0);
  43         if ((new_state == 0) || (new_state == 1)) {
  44                 CC->is_async = new_state;
  45         }
  46         cprintf("%d %d\n", CIT_OK, CC->is_async);
  47 }
  48
  49
  50 /*
  51  * cmd_info()  -  Identify this server and its capabilities to the client
  52  */
  53 void cmd_info(char *cmdbuf) {
  54         cprintf("%d Server info:\n", LISTING_FOLLOWS);
  55         cprintf("%d\n", CC->cs_pid);
  56         cprintf("%s\n", CtdlGetConfigStr("c_nodename"));
  57         cprintf("%s\n", CtdlGetConfigStr("c_humannode"));
  58         cprintf("%s\n", CtdlGetConfigStr("c_fqdn"));
  59         cprintf("%s\n", CITADEL);
  60         cprintf("%d\n", REV_LEVEL);
  61         cprintf("%s\n", CtdlGetConfigStr("c_site_location"));
  62         cprintf("%s\n", CtdlGetConfigStr("c_sysadm"));
  63         cprintf("%d\n", SERVER_TYPE);
  64         cprintf("%s\n", CtdlGetConfigStr("c_moreprompt"));
  65         cprintf("1\n"); /* 1 = yes, this system supports floors */
  66         cprintf("1\n"); /* 1 = we support the extended paging options */
  67         cprintf("\n");  /* no longer used */
  68         cprintf("1\n"); /* 1 = yes, this system supports the QNOP command */
  69         cprintf("1\n"); /* 1 = yes, this server is LDAP-enabled */
  70
  71         if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_NATIVE) && (CtdlGetConfigInt("c_disable_newu") == 0))
  72         {
  73                 cprintf("%d\n", CtdlGetConfigInt("c_disable_newu"));
  74         }
  75         else {
  76                 cprintf("1\n"); /* "create new user" does not work with non-native auth modes */
  77         }
  78
  79         cprintf("%s\n", CtdlGetConfigStr("c_default_cal_zone"));
  80
  81         cprintf("0\n"); /* no longer used */
  82         cprintf("0\n"); /* no longer used */
  83         cprintf("0\n"); /* no longer used */
  84         cprintf("0\n"); /* no longer used */
  85
  86         cprintf("%d\n", CtdlGetConfigInt("c_enable_fulltext"));
  87         cprintf("%s\n", svn_revision());
  88
  89         if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_NATIVE) {
  90                 cprintf("%d\n", openid_level_supported); /* OpenID is enabled when using native auth */
  91         }
  92         else {
  93                 cprintf("0\n"); /* OpenID is disabled when using non-native auth */
  94         }
  95
  96         cprintf("%d\n", CtdlGetConfigInt("c_guest_logins"));
  97         cprintf("000\n");
  98 }
  99
 100
 101 /*
 102  * echo
 103  */
 104 void cmd_echo(char *etext)
 105 {
 106         cprintf("%d %s\n", CIT_OK, etext);
 107 }
 108
 109
 110 /*
 111  * get the paginator prompt
 112  */
 113 void cmd_more(char *argbuf) {
 114         cprintf("%d %s\n", CIT_OK, CtdlGetConfigStr("c_moreprompt"));
 115 }
 116
 117
 118 /*
 119  * the client is identifying itself to the server
 120  */
 121 void cmd_iden(char *argbuf)
 122 {
 123         int dev_code;
 124         int cli_code;
 125         int rev_level;
 126         char desc[128];
 127         char from_host[128];
 128
 129         if (num_parms(argbuf)<4) {
 130                 cprintf("%d usage error\n", ERROR + ILLEGAL_VALUE);
 131                 return;
 132         }
 133
 134         dev_code = extract_int(argbuf,0);
 135         cli_code = extract_int(argbuf,1);
 136         rev_level = extract_int(argbuf,2);
 137         extract_token(desc, argbuf, 3, '|', sizeof desc);
 138
 139         safestrncpy(from_host, CtdlGetConfigStr("c_fqdn"), sizeof from_host);
 140         from_host[sizeof from_host - 1] = 0;
 141         if (num_parms(argbuf)>=5) extract_token(from_host, argbuf, 4, '|', sizeof from_host);
 142
 143         CC->cs_clientdev = dev_code;
 144         CC->cs_clienttyp = cli_code;
 145         CC->cs_clientver = rev_level;
 146         safestrncpy(CC->cs_clientname, desc, sizeof CC->cs_clientname);
 147         CC->cs_clientname[31] = 0;
 148
 149         /* For local sockets, allow the client to supply the user's origin address */
 150         if ((CC->is_local_client) || (!IsEmptyStr(CC->cs_addr) && (!strcmp(CC->cs_addr, "127.0.0.1")) || (!strcmp(CC->cs_addr, "::1")))) {
 151                 safestrncpy(CC->cs_host, from_host, sizeof CC->cs_host);
 152                 CC->cs_host[sizeof CC->cs_host - 1] = 0;
 153                 CC->cs_addr[0] = 0;
 154         }
 155
 156         syslog(LOG_NOTICE, "session: client %d/%d/%01d.%02d (%s) from %s",
 157                 dev_code,
 158                 cli_code,
 159                 (rev_level / 100),
 160                 (rev_level % 100),
 161                 desc,
 162                 CC->cs_host
 163         );
 164         cprintf("%d Ok\n",CIT_OK);
 165 }
 166
 167
 168 /*
 169  * Terminate another running session
 170  */
 171 void cmd_term(char *cmdbuf)
 172 {
 173         int session_num = extract_int(cmdbuf, 0);
 174         int terminated = CtdlTerminateOtherSession(session_num);
 175
 176         if (terminated < 0) {
 177                 cprintf("%d You can't kill your own session.\n", ERROR + ILLEGAL_VALUE);
 178                 return;
 179         }
 180
 181         if (terminated & TERM_FOUND) {
 182                 if (terminated == TERM_KILLED) {
 183                         cprintf("%d Session terminated.\n", CIT_OK);
 184                 }
 185                 else {
 186                         cprintf("%d You are not allowed to do that.\n", ERROR + HIGHER_ACCESS_REQUIRED);
 187                 }
 188         }
 189         else {
 190                 cprintf("%d No such session.\n", ERROR + ILLEGAL_VALUE);
 191         }
 192 }
 193
 194
 195 void cmd_time(char *argbuf)
 196 {
 197         time_t tv;
 198         struct tm tmp;
 199
 200         tv = time(NULL);
 201         localtime_r(&tv, &tmp);
 202
 203         /* timezone and daylight global variables are not portable. */
 204 #ifdef HAVE_STRUCT_TM_TM_GMTOFF
 205         cprintf("%d %ld|%ld|%d|%ld\n", CIT_OK, (long)tv, tmp.tm_gmtoff, tmp.tm_isdst, server_startup_time);
 206 #else
 207         cprintf("%d %ld|%ld|%d|%ld\n", CIT_OK, (long)tv, timezone, tmp.tm_isdst, server_startup_time);
 208 #endif
 209 }
 210
 211
 212 /*****************************************************************************/
 213 /*                      MODULE INITIALIZATION STUFF                          */
 214 /*****************************************************************************/
 215
 216 CTDL_MODULE_INIT(serv_session)
 217 {
 218         if (!threading) {
 219                 CtdlRegisterProtoHook(cmd_noop, "NOOP", "no operation");
 220                 CtdlRegisterProtoHook(cmd_qnop, "QNOP", "no operation with no response");
 221                 CtdlRegisterProtoHook(cmd_asyn, "ASYN", "enable asynchronous server responses");
 222                 CtdlRegisterProtoHook(cmd_info, "INFO", "fetch server capabilities and configuration");
 223                 CtdlRegisterProtoHook(cmd_echo, "ECHO", "echo text back to the client");
 224                 CtdlRegisterProtoHook(cmd_more, "MORE", "fetch the paginator prompt");
 225                 CtdlRegisterProtoHook(cmd_iden, "IDEN", "identify the client software and location");
 226                 CtdlRegisterProtoHook(cmd_term, "TERM", "terminate another running session");
 227                 CtdlRegisterProtoHook(cmd_time, "TIME", "fetch the date and time from the server");
 228         }
 229         /* return our id for the Log */
 230         return "serv_session";
 231 }