citadel/serv_imap.c

   1 /* $Id$
   2  *
   3  * IMAP server for the Citadel/UX system
   4  * Copyright (C) 2000 by Art Cancro and others.
   5  * This code is released under the terms of the GNU General Public License.
   6  *
   7  * Current status of standards conformance:
   8  *
   9  *               ***  ABSOLUTELY NOTHING WORKS  ***
  10  *
  11  */
  12
  13 #include "sysdep.h"
  14 #include <stdlib.h>
  15 #include <unistd.h>
  16 #include <stdio.h>
  17 #include <fcntl.h>
  18 #include <signal.h>
  19 #include <pwd.h>
  20 #include <errno.h>
  21 #include <sys/types.h>
  22 #include <sys/time.h>
  23 #include <sys/wait.h>
  24 #include <string.h>
  25 #include <limits.h>
  26 #include "citadel.h"
  27 #include "server.h"
  28 #include <time.h>
  29 #include "sysdep_decls.h"
  30 #include "citserver.h"
  31 #include "support.h"
  32 #include "config.h"
  33 #include "dynloader.h"
  34 #include "room_ops.h"
  35 #include "user_ops.h"
  36 #include "policy.h"
  37 #include "database.h"
  38 #include "msgbase.h"
  39 #include "tools.h"
  40 #include "internet_addressing.h"
  41 #include "serv_imap.h"
  42
  43
  44 long SYM_IMAP;
  45
  46
  47 /*
  48  * This cleanup function blows away the temporary memory and files used by
  49  * the IMAP server.
  50  */
  51 void imap_cleanup_function(void) {
  52
  53         /* Don't do this stuff if this is not a IMAP session! */
  54         if (CC->h_command_function != imap_command_loop) return;
  55
  56         lprintf(9, "Performing IMAP cleanup hook\n");
  57
  58
  59         lprintf(9, "Finished IMAP cleanup hook\n");
  60 }
  61
  62
  63
  64 /*
  65  * Here's where our IMAP session begins its happy day.
  66  */
  67 void imap_greeting(void) {
  68
  69         strcpy(CC->cs_clientname, "IMAP session");
  70         CC->internal_pgm = 1;
  71         CtdlAllocUserData(SYM_IMAP, sizeof(struct citimap));
  72
  73         cprintf("* OK %s Citadel/UX IMAP4rev1 server ready\r\n",
  74                 config.c_fqdn);
  75 }
  76
  77
  78 /*
  79  * implements the LOGIN command (ordinary username/password login)
  80  */
  81 void imap_login(char *tag, char *cmd, char *parms) {
  82         char username[256];
  83         char password[256];
  84
  85         extract_token(username, parms, 0, ' ');
  86         extract_token(password, parms, 1, ' ');
  87
  88         if (CtdlLoginExistingUser(username) == login_ok) {
  89                 if (CtdlTryPassword(password) == pass_ok) {
  90                         cprintf("%s OK login successful\r\n", tag);
  91                         return;
  92                 }
  93         }
  94
  95         cprintf("%s BAD Login incorrect\r\n", tag);
  96 }
  97
  98
  99 /*
 100  * implements the CAPABILITY command
 101  */
 102 void imap_capability(char *tag, char *cmd, char *parms) {
 103         cprintf("* CAPABILITY IMAP4 IMAP4REV1 AUTH=LOGIN\r\n");
 104         cprintf("%s OK CAPABILITY completed\r\n", tag);
 105 }
 106
 107
 108
 109
 110 /*
 111  * Main command loop for IMAP sessions.
 112  */
 113 void imap_command_loop(void) {
 114         char cmdbuf[256];
 115         char tag[256];
 116         char cmd[256];
 117
 118         time(&CC->lastcmd);
 119         memset(cmdbuf, 0, sizeof cmdbuf); /* Clear it, just in case */
 120         if (client_gets(cmdbuf) < 1) {
 121                 lprintf(3, "IMAP socket is broken.  Ending session.\r\n");
 122                 CC->kill_me = 1;
 123                 return;
 124         }
 125
 126         lprintf(5, "citserver[%3d]: %s\r\n", CC->cs_pid, cmdbuf);
 127         while (strlen(cmdbuf) < 5) strcat(cmdbuf, " ");
 128
 129
 130         /* strip off l/t whitespace and CRLF */
 131         if (cmdbuf[strlen(cmdbuf)-1]=='\n') cmdbuf[strlen(cmdbuf)-1]=0;
 132         if (cmdbuf[strlen(cmdbuf)-1]=='\r') cmdbuf[strlen(cmdbuf)-1]=0;
 133         striplt(cmdbuf);
 134
 135         /* grab the tag */
 136         extract_token(tag, cmdbuf, 0, ' ');
 137         extract_token(cmd, cmdbuf, 1, ' ');
 138         remove_token(cmdbuf, 0, ' ');
 139         remove_token(cmdbuf, 0, ' ');
 140         lprintf(9, "tag=<%s> cmd=<%s> parms=<%s>\n", tag, cmd, cmdbuf);
 141
 142         if (!strcasecmp(cmd, "NOOP")) {
 143                 cprintf("%s OK This command successfully did nothing.\r\n",
 144                         tag);
 145         }
 146
 147         else if (!strcasecmp(cmd, "LOGOUT")) {
 148                 cprintf("* BYE %s logging out\r\n", config.c_fqdn);
 149                 cprintf("%s OK thank you for using Citadel IMAP\r\n", tag);
 150                 CC->kill_me = 1;
 151                 return;
 152         }
 153
 154         else if (!strcasecmp(cmd, "LOGIN")) {
 155                 imap_login(tag, cmd, cmdbuf);
 156         }
 157
 158         else if (!strcasecmp(cmd, "CAPABILITY")) {
 159                 imap_capability(tag, cmd, cmdbuf);
 160         }
 161
 162         else if (!CC->logged_in) {
 163                 cprintf("%s BAD Not logged in.\r\n", tag);
 164         }
 165
 166         /*    FIXME    ...   implement commands requiring login here   */
 167
 168         else {
 169                 cprintf("%s BAD command unrecognized\r\n", tag);
 170         }
 171
 172 }
 173
 174
 175
 176 char *Dynamic_Module_Init(void)
 177 {
 178         SYM_IMAP = CtdlGetDynamicSymbol();
 179         CtdlRegisterServiceHook(143,    /* FIXME put in config setup */
 180                                 NULL,
 181                                 imap_greeting,
 182                                 imap_command_loop);
 183         CtdlRegisterSessionHook(imap_cleanup_function, EVT_STOP);
 184         return "$Id$";
 185 }