citadel/modules/ctdlproto/serv_session.c

   1 /*
   2  * Server functions which perform operations on user objects.
   3  *
   4  * Copyright (c) 1987-2017 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");  /* nonce no longer supported */
  68         cprintf("1\n"); /* 1 = yes, this system supports the QNOP command */
  69
  70 #ifdef HAVE_LDAP
  71         cprintf("1\n"); /* 1 = yes, this server is LDAP-enabled */
  72 #else
  73         cprintf("0\n"); /* 1 = no, this server is not LDAP-enabled */
  74 #endif
  75
  76         if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_NATIVE) && (CtdlGetConfigInt("c_disable_newu") == 0))
  77         {
  78                 cprintf("%d\n", CtdlGetConfigInt("c_disable_newu"));
  79         }
  80         else {
  81                 cprintf("1\n"); /* "create new user" does not work with non-native auth modes */
  82         }
  83
  84         cprintf("%s\n", CtdlGetConfigStr("c_default_cal_zone"));
  85
  86         cprintf("0\n");         /* load average         (no longer used) */
  87         cprintf("0\n");         /* worker average       (no longer used) */
  88         cprintf("0\n");         /* thread count         (no longer used) */
  89         cprintf("1\n");         /* yes, Sieve mail filtering is supported */
  90
  91         cprintf("%d\n", CtdlGetConfigInt("c_enable_fulltext"));
  92         cprintf("%s\n", svn_revision());
  93
  94         if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_NATIVE) {
  95                 cprintf("%d\n", openid_level_supported); /* OpenID is enabled when using native auth */
  96         }
  97         else {
  98                 cprintf("0\n"); /* OpenID is disabled when using non-native auth */
  99         }
 100
 101         cprintf("%d\n", CtdlGetConfigInt("c_guest_logins"));
 102         cprintf("000\n");
 103 }
 104
 105
 106 /*
 107  * echo
 108  */
 109 void cmd_echo(char *etext)
 110 {
 111         cprintf("%d %s\n", CIT_OK, etext);
 112 }
 113
 114
 115 /*
 116  * get the paginator prompt
 117  */
 118 void cmd_more(char *argbuf) {
 119         cprintf("%d %s\n", CIT_OK, CtdlGetConfigStr("c_moreprompt"));
 120 }
 121
 122
 123 /*
 124  * the client is identifying itself to the server
 125  */
 126 void cmd_iden(char *argbuf)
 127 {
 128         CitContext *CCC = MyContext();
 129         int dev_code;
 130         int cli_code;
 131         int rev_level;
 132         char desc[128];
 133         char from_host[128];
 134
 135         if (num_parms(argbuf)<4) {
 136                 cprintf("%d usage error\n", ERROR + ILLEGAL_VALUE);
 137                 return;
 138         }
 139
 140         dev_code = extract_int(argbuf,0);
 141         cli_code = extract_int(argbuf,1);
 142         rev_level = extract_int(argbuf,2);
 143         extract_token(desc, argbuf, 3, '|', sizeof desc);
 144
 145         safestrncpy(from_host, CtdlGetConfigStr("c_fqdn"), sizeof from_host);
 146         from_host[sizeof from_host - 1] = 0;
 147         if (num_parms(argbuf)>=5) extract_token(from_host, argbuf, 4, '|', sizeof from_host);
 148
 149         CCC->cs_clientdev = dev_code;
 150         CCC->cs_clienttyp = cli_code;
 151         CCC->cs_clientver = rev_level;
 152         safestrncpy(CCC->cs_clientname, desc, sizeof CCC->cs_clientname);
 153         CCC->cs_clientname[31] = 0;
 154
 155         /* For local sockets and public clients, trust the hostname supplied by the client */
 156         if ( (CCC->is_local_socket) || (CtdlIsPublicClient()) ) {
 157                 safestrncpy(CCC->cs_host, from_host, sizeof CCC->cs_host);
 158                 CCC->cs_host[sizeof CCC->cs_host - 1] = 0;
 159                 CCC->cs_addr[0] = 0;
 160         }
 161
 162         syslog(LOG_NOTICE, "session: client %d/%d/%01d.%02d (%s) from %s",
 163                 dev_code,
 164                 cli_code,
 165                 (rev_level / 100),
 166                 (rev_level % 100),
 167                 desc,
 168                 CCC->cs_host
 169         );
 170         cprintf("%d Ok\n",CIT_OK);
 171 }
 172
 173
 174 /*
 175  * Terminate another running session
 176  */
 177 void cmd_term(char *cmdbuf)
 178 {
 179         int session_num = extract_int(cmdbuf, 0);
 180         int terminated = CtdlTerminateOtherSession(session_num);
 181
 182         if (terminated < 0) {
 183                 cprintf("%d You can't kill your own session.\n", ERROR + ILLEGAL_VALUE);
 184                 return;
 185         }
 186
 187         if (terminated & TERM_FOUND) {
 188                 if (terminated == TERM_KILLED) {
 189                         cprintf("%d Session terminated.\n", CIT_OK);
 190                 }
 191                 else {
 192                         cprintf("%d You are not allowed to do that.\n", ERROR + HIGHER_ACCESS_REQUIRED);
 193                 }
 194         }
 195         else {
 196                 cprintf("%d No such session.\n", ERROR + ILLEGAL_VALUE);
 197         }
 198 }
 199
 200
 201 void cmd_time(char *argbuf)
 202 {
 203         time_t tv;
 204         struct tm tmp;
 205
 206         tv = time(NULL);
 207         localtime_r(&tv, &tmp);
 208
 209         /* timezone and daylight global variables are not portable. */
 210 #ifdef HAVE_STRUCT_TM_TM_GMTOFF
 211         cprintf("%d %ld|%ld|%d|%ld\n", CIT_OK, (long)tv, tmp.tm_gmtoff, tmp.tm_isdst, server_startup_time);
 212 #else
 213         cprintf("%d %ld|%ld|%d|%ld\n", CIT_OK, (long)tv, timezone, tmp.tm_isdst, server_startup_time);
 214 #endif
 215 }
 216
 217
 218 /*****************************************************************************/
 219 /*                      MODULE INITIALIZATION STUFF                          */
 220 /*****************************************************************************/
 221
 222 CTDL_MODULE_INIT(serv_session)
 223 {
 224         if (!threading) {
 225                 CtdlRegisterProtoHook(cmd_noop, "NOOP", "no operation");
 226                 CtdlRegisterProtoHook(cmd_qnop, "QNOP", "no operation with no response");
 227                 CtdlRegisterProtoHook(cmd_asyn, "ASYN", "enable asynchronous server responses");
 228                 CtdlRegisterProtoHook(cmd_info, "INFO", "fetch server capabilities and configuration");
 229                 CtdlRegisterProtoHook(cmd_echo, "ECHO", "echo text back to the client");
 230                 CtdlRegisterProtoHook(cmd_more, "MORE", "fetch the paginator prompt");
 231                 CtdlRegisterProtoHook(cmd_iden, "IDEN", "identify the client software and location");
 232                 CtdlRegisterProtoHook(cmd_term, "TERM", "terminate another running session");
 233                 CtdlRegisterProtoHook(cmd_time, "TIME", "fetch the date and time from the server");
 234         }
 235         /* return our id for the Log */
 236         return "serv_session";
 237 }