imapext-2007

annotate src/ipopd/ipop3d.c @ 4:d741b3ecc917

find changesets by author, revision, files, or words in the commit message
imapext-2007f
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 30 Oct 2014 00:03:05 +0900
parents 2366b362676d
children
rev   line source
yuuji@0 1 /* ========================================================================
yuuji@0 2 * Copyright 1988-2008 University of Washington
yuuji@0 3 *
yuuji@0 4 * Licensed under the Apache License, Version 2.0 (the "License");
yuuji@0 5 * you may not use this file except in compliance with the License.
yuuji@0 6 * You may obtain a copy of the License at
yuuji@0 7 *
yuuji@0 8 * http://www.apache.org/licenses/LICENSE-2.0
yuuji@0 9 *
yuuji@0 10 *
yuuji@0 11 * ========================================================================
yuuji@0 12 */
yuuji@0 13
yuuji@0 14 /*
yuuji@0 15 * Program: IPOP3D - IMAP to POP3 conversion server
yuuji@0 16 *
yuuji@0 17 * Author: Mark Crispin
yuuji@0 18 * UW Technology
yuuji@0 19 * University of Washington
yuuji@0 20 * Seattle, WA 98195
yuuji@0 21 * Internet: MRC@Washington.EDU
yuuji@0 22 *
yuuji@0 23 * Date: 1 November 1990
yuuji@0 24 * Last Edited: 19 February 2008
yuuji@0 25 */
yuuji@0 26
yuuji@0 27 /* Parameter files */
yuuji@0 28
yuuji@0 29 #include <stdio.h>
yuuji@0 30 #include <ctype.h>
yuuji@0 31 #include <errno.h>
yuuji@0 32 extern int errno; /* just in case */
yuuji@0 33 #include <signal.h>
yuuji@0 34 #include <time.h>
yuuji@0 35 #include "c-client.h"
yuuji@0 36
yuuji@0 37
yuuji@0 38 #define CRLF PSOUT ("\015\012") /* primary output terpri */
yuuji@0 39
yuuji@0 40
yuuji@0 41 /* Autologout timer */
yuuji@0 42 #define KODTIMEOUT 60*5
yuuji@0 43 #define LOGINTIMEOUT 60*3
yuuji@0 44 #define TIMEOUT 60*10
yuuji@0 45
yuuji@0 46
yuuji@0 47 /* Server states */
yuuji@0 48
yuuji@0 49 #define AUTHORIZATION 0
yuuji@0 50 #define TRANSACTION 1
yuuji@0 51 #define UPDATE 2
yuuji@0 52 #define LOGOUT 3
yuuji@0 53
yuuji@0 54 /* Eudora food */
yuuji@0 55
yuuji@0 56 #define STATUS "Status: %s%s\015\012"
yuuji@0 57 #define SLEN (sizeof (STATUS)-3)
yuuji@0 58
yuuji@0 59
yuuji@0 60 /* Global storage */
yuuji@0 61
yuuji@0 62 char *version = "104"; /* edit number of this server */
yuuji@0 63 short state = AUTHORIZATION; /* server state */
yuuji@0 64 short critical = NIL; /* non-zero if in critical code */
yuuji@0 65 MAILSTREAM *stream = NIL; /* mailbox stream */
yuuji@0 66 time_t idletime = 0; /* time we went idle */
yuuji@0 67 unsigned long nmsgs = 0; /* current number of messages */
yuuji@0 68 unsigned long ndele = 0; /* number of deletes */
yuuji@0 69 unsigned long nseen = 0; /* number of mark-seens */
yuuji@0 70 unsigned long last = 0; /* highest message accessed */
yuuji@0 71 unsigned long il = 0; /* initial last message */
yuuji@0 72 char challenge[128]; /* challenge */
yuuji@0 73 char *host = NIL; /* remote host name */
yuuji@0 74 char *user = NIL; /* user name */
yuuji@0 75 char *pass = NIL; /* password */
yuuji@0 76 char *initial = NIL; /* initial response */
yuuji@0 77 long *msg = NIL; /* message translation vector */
yuuji@0 78 short *flags = NIL; /* flags */
yuuji@0 79 char *logout = "Logout";
yuuji@0 80 char *goodbye = "+OK Sayonara\015\012";
yuuji@0 81
yuuji@0 82
yuuji@0 83 /* POP3 flags */
yuuji@0 84
yuuji@0 85 #define DELE 0x1
yuuji@0 86 #define SEEN 0x2
yuuji@0 87
yuuji@0 88
yuuji@0 89 /* Function prototypes */
yuuji@0 90
yuuji@0 91 int main (int argc,char *argv[]);
yuuji@0 92 void sayonara (int status);
yuuji@0 93 void clkint ();
yuuji@0 94 void kodint ();
yuuji@0 95 void hupint ();
yuuji@0 96 void trmint ();
yuuji@0 97 int pass_login (char *t,int argc,char *argv[]);
yuuji@0 98 char *apop_login (char *chal,char *user,char *md5,int argc,char *argv[]);
yuuji@4 99 #ifdef QMAIL
yuuji@4 100 char* conv_virtualdomain(char *account);
yuuji@4 101 #endif
yuuji@0 102 char *responder (void *challenge,unsigned long clen,unsigned long *rlen);
yuuji@0 103 int mbxopen (char *mailbox);
yuuji@0 104 long blat (char *text,long lines,unsigned long size,STRING *st);
yuuji@0 105 void rset ();
yuuji@0 106
yuuji@0 107 /* Main program */
yuuji@0 108
yuuji@0 109 int main (int argc,char *argv[])
yuuji@0 110 {
yuuji@0 111 unsigned long i,j,k;
yuuji@0 112 char *s,*t;
yuuji@0 113 char tmp[MAILTMPLEN];
yuuji@0 114 time_t autologouttime;
yuuji@0 115 char *pgmname = (argc && argv[0]) ?
yuuji@0 116 (((s = strrchr (argv[0],'/')) || (s = strrchr (argv[0],'\\'))) ?
yuuji@0 117 s+1 : argv[0]) : "ipop3d";
yuuji@0 118 /* set service name before linkage */
yuuji@0 119 mail_parameters (NIL,SET_SERVICENAME,(void *) "pop");
yuuji@0 120 #include "linkage.c"
yuuji@0 121 /* initialize server */
yuuji@0 122 server_init (pgmname,"pop3","pop3s",clkint,kodint,hupint,trmint,NIL);
yuuji@0 123 mail_parameters (NIL,SET_BLOCKENVINIT,VOIDT);
yuuji@0 124 s = myusername_full (&i); /* get user name and flags */
yuuji@0 125 mail_parameters (NIL,SET_BLOCKENVINIT,NIL);
yuuji@0 126 if (i == MU_LOGGEDIN) { /* allow EXTERNAL if logged in already */
yuuji@0 127 mail_parameters (NIL,UNHIDE_AUTHENTICATOR,(void *) "EXTERNAL");
yuuji@0 128 mail_parameters (NIL,SET_EXTERNALAUTHID,(void *) s);
yuuji@0 129 }
yuuji@0 130 { /* set up MD5 challenge */
yuuji@0 131 AUTHENTICATOR *auth = mail_lookup_auth (1);
yuuji@0 132 while (auth && compare_cstring (auth->name,"CRAM-MD5")) auth = auth->next;
yuuji@0 133 /* build challenge -- less than 128 chars */
yuuji@4 134 #ifndef QMAIL
yuuji@4 135 if (!(auth->flags & AU_DISABLE))
yuuji@4 136 #else
yuuji@0 137 if (auth && auth->server && !(auth->flags & AU_DISABLE))
yuuji@4 138 #endif
yuuji@0 139 sprintf (challenge,"<%lx.%lx@%.64s>",(unsigned long) getpid (),
yuuji@0 140 (unsigned long) time (0),tcp_serverhost ());
yuuji@0 141 else challenge[0] = '\0'; /* no MD5 authentication */
yuuji@0 142 }
yuuji@0 143 /* There are reports of POP3 clients which get upset if anything appears
yuuji@0 144 * between the "+OK" and the "POP3" in the greeting.
yuuji@0 145 */
yuuji@0 146 PSOUT ("+OK POP3 ");
yuuji@0 147 if (!challenge[0]) { /* if no MD5 enable, output host name */
yuuji@0 148 PSOUT (tcp_serverhost ());
yuuji@0 149 PBOUT (' ');
yuuji@0 150 }
yuuji@0 151 PSOUT (CCLIENTVERSION);
yuuji@0 152 PBOUT ('.');
yuuji@0 153 PSOUT (version);
yuuji@0 154 PSOUT (" server ready");
yuuji@0 155 if (challenge[0]) { /* if MD5 enable, output challenge here */
yuuji@0 156 PBOUT (' ');
yuuji@0 157 PSOUT (challenge);
yuuji@0 158 }
yuuji@0 159 CRLF;
yuuji@0 160 PFLUSH (); /* dump output buffer */
yuuji@0 161 autologouttime = time (0) + LOGINTIMEOUT;
yuuji@0 162 /* command processing loop */
yuuji@0 163 while ((state != UPDATE) && (state != LOGOUT)) {
yuuji@0 164 idletime = time (0); /* get a command under timeout */
yuuji@0 165 alarm ((state == TRANSACTION) ? TIMEOUT : LOGINTIMEOUT);
yuuji@0 166 clearerr (stdin); /* clear stdin errors */
yuuji@0 167 /* read command line */
yuuji@0 168 while (!PSIN (tmp,MAILTMPLEN)) {
yuuji@0 169 /* ignore if some interrupt */
yuuji@0 170 if (ferror (stdin) && (errno == EINTR)) clearerr (stdin);
yuuji@0 171 else {
yuuji@0 172 char *e = ferror (stdin) ?
yuuji@0 173 strerror (errno) : "Unexpected client disconnect";
yuuji@0 174 alarm (0); /* disable all interrupts */
yuuji@0 175 server_init (NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
yuuji@0 176 sprintf (logout = tmp,"%.80s, while reading line",e);
yuuji@0 177 goodbye = NIL;
yuuji@0 178 rset (); /* try to gracefully close the stream */
yuuji@0 179 if (state == TRANSACTION) mail_close (stream);
yuuji@0 180 stream = NIL;
yuuji@0 181 state = LOGOUT;
yuuji@0 182 sayonara (1);
yuuji@0 183 }
yuuji@0 184 }
yuuji@0 185 alarm (0); /* make sure timeout disabled */
yuuji@0 186 idletime = 0; /* no longer idle */
yuuji@0 187
yuuji@0 188 if (!strchr (tmp,'\012')) /* find end of line */
yuuji@0 189 PSOUT ("-ERR Command line too long\015\012");
yuuji@0 190 else if (!(s = strtok (tmp," \015\012")))
yuuji@0 191 PSOUT ("-ERR Null command\015\012");
yuuji@0 192 else { /* dispatch based on command */
yuuji@0 193 ucase (s); /* canonicalize case */
yuuji@0 194 /* snarf argument */
yuuji@0 195 t = strtok (NIL,"\015\012");
yuuji@0 196 /* QUIT command always valid */
yuuji@0 197 if (!strcmp (s,"QUIT")) state = UPDATE;
yuuji@0 198 else if (!strcmp (s,"CAPA")) {
yuuji@0 199 AUTHENTICATOR *auth;
yuuji@0 200 PSOUT ("+OK Capability list follows:\015\012");
yuuji@0 201 PSOUT ("TOP\015\012LOGIN-DELAY 180\015\012UIDL\015\012");
yuuji@0 202 if (s = ssl_start_tls (NIL)) fs_give ((void **) &s);
yuuji@0 203 else PSOUT ("STLS\015\012");
yuuji@0 204 if (i = !mail_parameters (NIL,GET_DISABLEPLAINTEXT,NIL))
yuuji@0 205 PSOUT ("USER\015\012");
yuuji@0 206 /* display secure server authenticators */
yuuji@0 207 for (auth = mail_lookup_auth (1), s = "SASL"; auth; auth = auth->next)
yuuji@0 208 if (auth->server && !(auth->flags & AU_DISABLE) &&
yuuji@0 209 !(auth->flags & AU_HIDE) && (i || (auth->flags & AU_SECURE))) {
yuuji@0 210 if (s) {
yuuji@0 211 PSOUT (s);
yuuji@0 212 s = NIL;
yuuji@0 213 }
yuuji@0 214 PBOUT (' ');
yuuji@0 215 PSOUT (auth->name);
yuuji@0 216 }
yuuji@0 217 PSOUT (s ? ".\015\012" : "\015\012.\015\012");
yuuji@0 218 }
yuuji@0 219
yuuji@0 220 else switch (state) { /* else dispatch based on state */
yuuji@0 221 case AUTHORIZATION: /* waiting to get logged in */
yuuji@0 222 if (!strcmp (s,"AUTH")) {
yuuji@0 223 if (t && *t) { /* mechanism given? */
yuuji@0 224 if (host) fs_give ((void **) &host);
yuuji@0 225 if (user) fs_give ((void **) &user);
yuuji@0 226 if (pass) fs_give ((void **) &pass);
yuuji@0 227 s = strtok (t," "); /* get mechanism name */
yuuji@0 228 /* get initial response */
yuuji@0 229 if (initial = strtok (NIL,"\015\012")) {
yuuji@0 230 if ((*initial == '=') && !initial[1]) ++initial;
yuuji@0 231 else if (!*initial) initial = NIL;
yuuji@0 232 }
yuuji@0 233 if (!(user = cpystr (mail_auth (s,responder,argc,argv)))) {
yuuji@0 234 PSOUT ("-ERR Bad authentication\015\012");
yuuji@0 235 syslog (LOG_INFO,"AUTHENTICATE %s failure host=%.80s",s,
yuuji@0 236 tcp_clienthost ());
yuuji@0 237 }
yuuji@0 238 else if ((state = mbxopen ("INBOX")) == TRANSACTION)
yuuji@0 239 syslog (LOG_INFO,"Auth user=%.80s host=%.80s nmsgs=%lu/%lu",
yuuji@0 240 user,tcp_clienthost (),nmsgs,stream->nmsgs);
yuuji@0 241 else syslog (LOG_INFO,"Auth user=%.80s host=%.80s no mailbox",
yuuji@0 242 user,tcp_clienthost ());
yuuji@0 243 }
yuuji@0 244 else {
yuuji@0 245 AUTHENTICATOR *auth;
yuuji@0 246 PSOUT ("+OK Supported authentication mechanisms:\015\012");
yuuji@0 247 i = !mail_parameters (NIL,GET_DISABLEPLAINTEXT,NIL);
yuuji@0 248 for (auth = mail_lookup_auth (1); auth; auth = auth->next)
yuuji@0 249 if (auth->server && !(auth->flags & AU_DISABLE) &&
yuuji@0 250 !(auth->flags & AU_HIDE) &&
yuuji@0 251 (i || (auth->flags & AU_SECURE))) {
yuuji@0 252 PSOUT (auth->name);
yuuji@0 253 CRLF;
yuuji@0 254 }
yuuji@0 255 PBOUT ('.');
yuuji@0 256 CRLF;
yuuji@0 257 }
yuuji@0 258 }
yuuji@0 259
yuuji@0 260 else if (!strcmp (s,"APOP")) {
yuuji@0 261 if (challenge[0]) { /* can do it if have an MD5 challenge */
yuuji@0 262 if (host) fs_give ((void **) &host);
yuuji@0 263 if (user) fs_give ((void **) &user);
yuuji@0 264 if (pass) fs_give ((void **) &pass);
yuuji@0 265 /* get user name */
yuuji@0 266 if (!(t && *t && (s = strtok (t," ")) && (t = strtok(NIL,"\012"))))
yuuji@0 267 PSOUT ("-ERR Missing APOP argument\015\012");
yuuji@4 268 #ifdef QMAIL
yuuji@4 269 else if (!(user = apop_login (challenge,conv_virtualdomain(s),t,argc,argv))) {
yuuji@4 270 #else /* !QMAIL */
yuuji@4 271 else if (!(user = apop_login (challenge,s,t,argc,argv))) {
yuuji@4 272 #endif /* QMAIL */
yuuji@4 273 PSOUT ("-ERR Bad APOP (Maybe your password is expired)\015\012");
yuuji@4 274 user = cpystr (s);
yuuji@4 275 syslog (LOG_INFO,"APOP login failure user=%.80s host=%.80s",
yuuji@4 276 user,tcp_clienthost ());
yuuji@4 277 } else if ((state = mbxopen ("INBOX")) == TRANSACTION)
yuuji@4 278 syslog (LOG_INFO,"APOP user=%.80s host=%.80s nmsgs=%ld/%ld",
yuuji@0 279 user,tcp_clienthost (),nmsgs,stream->nmsgs);
yuuji@0 280 else syslog (LOG_INFO,"APOP user=%.80s host=%.80s no mailbox",
yuuji@0 281 user,tcp_clienthost ());
yuuji@0 282 }
yuuji@0 283 else PSOUT ("-ERR Not supported\015\012");
yuuji@0 284 }
yuuji@0 285 /* (chuckle) */
yuuji@0 286 else if (!strcmp (s,"RPOP"))
yuuji@0 287 PSOUT ("-ERR Nice try, bunkie\015\012");
yuuji@0 288 else if (!strcmp (s,"STLS")) {
yuuji@0 289 if (t = ssl_start_tls (pgmname)) {
yuuji@0 290 PSOUT ("-ERR STLS failed: ");
yuuji@0 291 PSOUT (t);
yuuji@0 292 CRLF;
yuuji@0 293 }
yuuji@0 294 else PSOUT ("+OK STLS completed\015\012");
yuuji@0 295 }
yuuji@4 296 #ifndef RESTRICT_POP
yuuji@0 297 else if (!mail_parameters (NIL,GET_DISABLEPLAINTEXT,NIL) &&
yuuji@0 298 !strcmp (s,"USER")) {
yuuji@4 299 #else /* !RESTRICT_POP */
yuuji@4 300 else if (!strcmp (s,"USER")) {
yuuji@4 301 if (getenv("INTRANET") == NIL) {
yuuji@4 302 PSOUT("-ERR Sorry, we don't allow POP3 from your network. Use APOP instead.\015\012");
yuuji@4 303 user = cpystr(t);
yuuji@4 304 syslog (LOG_INFO,"Plain POP3 is restricted user=%.80s host=%.80s",
yuuji@4 305 user,tcp_clienthost ());
yuuji@4 306 memset(user, '\0', strlen(user));
yuuji@4 307 break;
yuuji@4 308 }
yuuji@4 309 #endif
yuuji@0 310 if (host) fs_give ((void **) &host);
yuuji@0 311 if (user) fs_give ((void **) &user);
yuuji@0 312 if (pass) fs_give ((void **) &pass);
yuuji@0 313 if (t && *t) { /* if user name given */
yuuji@0 314 /* skip leading whitespace (bogus clients!) */
yuuji@0 315 while (*t == ' ') ++t;
yuuji@0 316 /* remote user name? */
yuuji@0 317 if (s = strchr (t,':')) {
yuuji@0 318 *s++ = '\0'; /* tie off host name */
yuuji@0 319 host = cpystr (t);/* copy host name */
yuuji@0 320 user = cpystr (s);/* copy user name */
yuuji@0 321 }
yuuji@0 322 /* local user name */
yuuji@4 323 #ifdef QMAIL
yuuji@4 324 else user = conv_virtualdomain(cpystr (t));
yuuji@4 325 #else
yuuji@0 326 else user = cpystr (t);
yuuji@4 327 #endif
yuuji@0 328 PSOUT ("+OK User name accepted, password please\015\012");
yuuji@0 329 }
yuuji@0 330 else PSOUT ("-ERR Missing username argument\015\012");
yuuji@0 331 }
yuuji@0 332 else if (!mail_parameters (NIL,GET_DISABLEPLAINTEXT,NIL) &&
yuuji@0 333 user && *user && !strcmp (s,"PASS"))
yuuji@0 334 state = pass_login (t,argc,argv);
yuuji@0 335 else PSOUT ("-ERR Unknown AUTHORIZATION state command\015\012");
yuuji@0 336 break;
yuuji@0 337
yuuji@0 338 case TRANSACTION: /* logged in */
yuuji@0 339 if (!strcmp (s,"STAT")) {
yuuji@0 340 for (i = 1,j = 0,k = 0; i <= nmsgs; i++)
yuuji@0 341 /* message still exists? */
yuuji@0 342 if (msg[i] && !(flags[i] & DELE)) {
yuuji@0 343 j++; /* count one more undeleted message */
yuuji@0 344 k += mail_elt (stream,msg[i])->rfc822_size + SLEN;
yuuji@0 345 }
yuuji@0 346 sprintf (tmp,"+OK %lu %lu\015\012",j,k);
yuuji@0 347 PSOUT (tmp);
yuuji@0 348 }
yuuji@0 349 else if (!strcmp (s,"LIST")) {
yuuji@0 350 if (t && *t) { /* argument do single message */
yuuji@0 351 if ((i = strtoul (t,NIL,10)) && (i <= nmsgs) && msg[i] &&
yuuji@0 352 !(flags[i] & DELE)) {
yuuji@0 353 sprintf (tmp,"+OK %lu %lu\015\012",i,
yuuji@0 354 mail_elt(stream,msg[i])->rfc822_size + SLEN);
yuuji@0 355 PSOUT (tmp);
yuuji@0 356 }
yuuji@0 357 else PSOUT ("-ERR No such message\015\012");
yuuji@0 358 }
yuuji@0 359 else { /* entire mailbox */
yuuji@0 360 PSOUT ("+OK Mailbox scan listing follows\015\012");
yuuji@0 361 for (i = 1,j = 0,k = 0; i <= nmsgs; i++)
yuuji@0 362 if (msg[i] && !(flags[i] & DELE)) {
yuuji@0 363 sprintf (tmp,"%lu %lu\015\012",i,
yuuji@0 364 mail_elt (stream,msg[i])->rfc822_size + SLEN);
yuuji@0 365 PSOUT (tmp);
yuuji@0 366 }
yuuji@0 367 PBOUT ('.'); /* end of list */
yuuji@0 368 CRLF;
yuuji@0 369 }
yuuji@0 370 }
yuuji@0 371 else if (!strcmp (s,"UIDL")) {
yuuji@0 372 if (t && *t) { /* argument do single message */
yuuji@0 373 if ((i = strtoul (t,NIL,10)) && (i <= nmsgs) && msg[i] &&
yuuji@0 374 !(flags[i] & DELE)) {
yuuji@0 375 sprintf (tmp,"+OK %lu %08lx%08lx\015\012",i,stream->uid_validity,
yuuji@0 376 mail_uid (stream,msg[i]));
yuuji@0 377 PSOUT (tmp);
yuuji@0 378 }
yuuji@0 379 else PSOUT ("-ERR No such message\015\012");
yuuji@0 380 }
yuuji@0 381 else { /* entire mailbox */
yuuji@0 382 PSOUT ("+OK Unique-ID listing follows\015\012");
yuuji@0 383 for (i = 1,j = 0,k = 0; i <= nmsgs; i++)
yuuji@0 384 if (msg[i] && !(flags[i] & DELE)) {
yuuji@0 385 sprintf (tmp,"%lu %08lx%08lx\015\012",i,stream->uid_validity,
yuuji@0 386 mail_uid (stream,msg[i]));
yuuji@0 387 PSOUT (tmp);
yuuji@0 388 }
yuuji@0 389 PBOUT ('.'); /* end of list */
yuuji@0 390 CRLF;
yuuji@0 391 }
yuuji@0 392 }
yuuji@0 393
yuuji@0 394 else if (!strcmp (s,"RETR")) {
yuuji@0 395 if (t && *t) { /* must have an argument */
yuuji@0 396 if ((i = strtoul (t,NIL,10)) && (i <= nmsgs) && msg[i] &&
yuuji@0 397 !(flags[i] & DELE)) {
yuuji@0 398 MESSAGECACHE *elt;
yuuji@0 399 /* update highest message accessed */
yuuji@0 400 if (i > last) last = i;
yuuji@0 401 sprintf (tmp,"+OK %lu octets\015\012",
yuuji@0 402 (elt = mail_elt (stream,msg[i]))->rfc822_size + SLEN);
yuuji@0 403 PSOUT (tmp);
yuuji@0 404 /* if not marked seen or noted to be marked */
yuuji@0 405 if (!(elt->seen || (flags[i] & SEEN))) {
yuuji@0 406 ++nseen; /* note that we need to mark it seen */
yuuji@0 407 flags[i] |= SEEN;
yuuji@0 408 }
yuuji@0 409 /* get header */
yuuji@0 410 t = mail_fetch_header (stream,msg[i],NIL,NIL,&k,FT_PEEK);
yuuji@0 411 blat (t,-1,k,NIL);/* write up to trailing CRLF */
yuuji@0 412 /* build status */
yuuji@0 413 sprintf (tmp,STATUS,elt->seen ? "R" : " ",
yuuji@0 414 elt->recent ? " " : "O");
yuuji@0 415 if (k < 4) CRLF; /* don't write Status: if no header */
yuuji@0 416 /* normal header ending with CRLF CRLF? */
yuuji@0 417 else if (t[k-3] == '\012') {
yuuji@0 418 PSOUT (tmp); /* write status */
yuuji@0 419 CRLF; /* then write second CRLF */
yuuji@0 420 }
yuuji@0 421 else { /* abnormal - no blank line at end of header */
yuuji@0 422 CRLF; /* write CRLF first then */
yuuji@0 423 PSOUT (tmp);
yuuji@0 424 }
yuuji@0 425 /* output text */
yuuji@0 426 t = mail_fetch_text (stream,msg[i],NIL,&k,
yuuji@0 427 FT_RETURNSTRINGSTRUCT | FT_PEEK);
yuuji@0 428 if (k) { /* only if there is a text body */
yuuji@0 429 blat (t,-1,k,&stream->private.string);
yuuji@0 430 CRLF; /* end of list */
yuuji@0 431 }
yuuji@0 432 PBOUT ('.');
yuuji@0 433 CRLF;
yuuji@0 434 }
yuuji@0 435 else PSOUT ("-ERR No such message\015\012");
yuuji@0 436 }
yuuji@0 437 else PSOUT ("-ERR Missing message number argument\015\012");
yuuji@0 438 }
yuuji@0 439
yuuji@0 440 else if (!strcmp (s,"DELE")) {
yuuji@0 441 if (t && *t) { /* must have an argument */
yuuji@0 442 if ((i = strtoul (t,NIL,10)) && (i <= nmsgs) && msg[i] &&
yuuji@0 443 !(flags[i] & DELE)) {
yuuji@0 444 /* update highest message accessed */
yuuji@0 445 if (i > last) last = i;
yuuji@0 446 flags[i] |= DELE; /* note that deletion is requested */
yuuji@0 447 PSOUT ("+OK Message deleted\015\012");
yuuji@0 448 ++ndele; /* one more message deleted */
yuuji@0 449 }
yuuji@0 450 else PSOUT ("-ERR No such message\015\012");
yuuji@0 451 }
yuuji@0 452 else PSOUT ("-ERR Missing message number argument\015\012");
yuuji@0 453 }
yuuji@0 454 else if (!strcmp (s,"NOOP"))
yuuji@0 455 PSOUT ("+OK No-op to you too!\015\012");
yuuji@0 456 else if (!strcmp (s,"LAST")) {
yuuji@0 457 sprintf (tmp,"+OK %lu\015\012",last);
yuuji@0 458 PSOUT (tmp);
yuuji@0 459 }
yuuji@0 460 else if (!strcmp (s,"RSET")) {
yuuji@0 461 rset (); /* reset the mailbox */
yuuji@0 462 PSOUT ("+OK Reset state\015\012");
yuuji@0 463 }
yuuji@0 464
yuuji@0 465 else if (!strcmp (s,"TOP")) {
yuuji@0 466 if (t && *t && (i =strtoul (t,&s,10)) && (i <= nmsgs) && msg[i] &&
yuuji@0 467 !(flags[i] & DELE)) {
yuuji@0 468 /* skip whitespace */
yuuji@0 469 while (*s == ' ') s++;
yuuji@0 470 /* make sure line count argument good */
yuuji@0 471 if ((*s >= '0') && (*s <= '9')) {
yuuji@0 472 MESSAGECACHE *elt = mail_elt (stream,msg[i]);
yuuji@0 473 j = strtoul (s,NIL,10);
yuuji@0 474 /* update highest message accessed */
yuuji@0 475 if (i > last) last = i;
yuuji@0 476 PSOUT ("+OK Top of message follows\015\012");
yuuji@0 477 /* get header */
yuuji@0 478 t = mail_fetch_header (stream,msg[i],NIL,NIL,&k,FT_PEEK);
yuuji@0 479 blat (t,-1,k,NIL);/* write up to trailing CRLF */
yuuji@0 480 /* build status */
yuuji@0 481 sprintf (tmp,STATUS,elt->seen ? "R" : " ",
yuuji@0 482 elt->recent ? " " : "O");
yuuji@0 483 if (k < 4) CRLF; /* don't write Status: if no header */
yuuji@0 484 /* normal header ending with CRLF CRLF? */
yuuji@0 485 else if (t[k-3] == '\012') {
yuuji@0 486 PSOUT (tmp); /* write status */
yuuji@0 487 CRLF; /* then write second CRLF */
yuuji@0 488 }
yuuji@0 489 else { /* abnormal - no blank line at end of header */
yuuji@0 490 CRLF; /* write CRLF first then */
yuuji@0 491 PSOUT (tmp);
yuuji@0 492 }
yuuji@0 493 if (j) { /* want any text lines? */
yuuji@0 494 /* output text */
yuuji@0 495 t = mail_fetch_text (stream,msg[i],NIL,&k,
yuuji@0 496 FT_PEEK | FT_RETURNSTRINGSTRUCT);
yuuji@0 497 /* tie off final line if full text output */
yuuji@0 498 if (k && (j -= blat (t,j,k,&stream->private.string))) CRLF;
yuuji@0 499 }
yuuji@0 500 PBOUT ('.'); /* end of list */
yuuji@0 501 CRLF;
yuuji@0 502 }
yuuji@0 503 else PSOUT ("-ERR Bad line count argument\015\012");
yuuji@0 504 }
yuuji@0 505 else PSOUT ("-ERR Bad message number argument\015\012");
yuuji@0 506 }
yuuji@0 507
yuuji@0 508 else if (!strcmp (s,"XTND"))
yuuji@0 509 PSOUT ("-ERR Sorry I can't do that\015\012");
yuuji@0 510 else PSOUT ("-ERR Unknown TRANSACTION state command\015\012");
yuuji@0 511 break;
yuuji@0 512 default:
yuuji@0 513 PSOUT ("-ERR Server in unknown state\015\012");
yuuji@0 514 break;
yuuji@0 515 }
yuuji@0 516 }
yuuji@0 517 PFLUSH (); /* make sure output finished */
yuuji@0 518 if (autologouttime) { /* have an autologout in effect? */
yuuji@0 519 /* cancel if no longer waiting for login */
yuuji@0 520 if (state != AUTHORIZATION) autologouttime = 0;
yuuji@0 521 /* took too long to login */
yuuji@0 522 else if (autologouttime < time (0)) {
yuuji@0 523 goodbye = "-ERR Autologout\015\012";
yuuji@0 524 logout = "Autologout";
yuuji@0 525 state = LOGOUT; /* sayonara */
yuuji@0 526 }
yuuji@0 527 }
yuuji@0 528 }
yuuji@0 529
yuuji@0 530 /* open and need to update? */
yuuji@0 531 if (stream && (state == UPDATE)) {
yuuji@0 532 if (nseen) { /* only bother if messages need marking seen */
yuuji@0 533 *(s = tmp) = '\0'; /* clear sequence */
yuuji@0 534 for (i = 1; i <= nmsgs; ++i) if (flags[i] & SEEN) {
yuuji@0 535 for (j = i + 1, k = 0; (j <= nmsgs) && (flags[j] & SEEN); ++j) k = j;
yuuji@0 536 if (k) sprintf (s,",%lu:%lu",i,k);
yuuji@0 537 else sprintf (s,",%lu",i);
yuuji@0 538 s += strlen (s); /* point to end of string */
yuuji@0 539 if ((s - tmp) > (MAILTMPLEN - 30)) {
yuuji@0 540 mail_setflag (stream,tmp + 1,"\\Seen");
yuuji@0 541 *(s = tmp) = '\0'; /* restart sequence */
yuuji@0 542 }
yuuji@0 543 i = j; /* continue after the range */
yuuji@0 544 }
yuuji@0 545 if (tmp[0]) mail_setflag (stream,tmp + 1,"\\Seen");
yuuji@0 546 }
yuuji@0 547 if (ndele) { /* any messages to delete? */
yuuji@0 548 *(s = tmp) = '\0'; /* clear sequence */
yuuji@0 549 for (i = 1; i <= nmsgs; ++i) if (flags[i] & DELE) {
yuuji@0 550 for (j = i + 1, k = 0; (j <= nmsgs) && (flags[j] & DELE); ++j) k = j;
yuuji@0 551 if (k) sprintf (s,",%lu:%lu",i,k);
yuuji@0 552 else sprintf (s,",%lu",i);
yuuji@0 553 s += strlen (s); /* point to end of string */
yuuji@0 554 if ((s - tmp) > (MAILTMPLEN - 30)) {
yuuji@0 555 mail_setflag (stream,tmp + 1,"\\Deleted");
yuuji@0 556 *(s = tmp) = '\0'; /* restart sequence */
yuuji@0 557 }
yuuji@0 558 i = j; /* continue after the range */
yuuji@0 559 }
yuuji@0 560 if (tmp[0]) mail_setflag (stream,tmp + 1,"\\Deleted");
yuuji@0 561 mail_expunge (stream);
yuuji@0 562 }
yuuji@0 563 syslog (LOG_INFO,"Update user=%.80s host=%.80s nmsgs=%lu ndele=%lu nseen=%lu",
yuuji@0 564 user,tcp_clienthost (),stream->nmsgs,ndele,nseen);
yuuji@0 565 mail_close (stream);
yuuji@0 566 }
yuuji@0 567 sayonara (0);
yuuji@0 568 return 0; /* stupid compilers */
yuuji@0 569 }
yuuji@0 570
yuuji@0 571
yuuji@0 572 /* Say goodbye
yuuji@0 573 * Accepts: exit status
yuuji@0 574 *
yuuji@0 575 * Does not return
yuuji@0 576 */
yuuji@0 577
yuuji@0 578 void sayonara (int status)
yuuji@0 579 {
yuuji@0 580 logouthook_t lgoh = (logouthook_t) mail_parameters (NIL,GET_LOGOUTHOOK,NIL);
yuuji@0 581 if (goodbye) { /* have a goodbye message? */
yuuji@0 582 PSOUT (goodbye);
yuuji@0 583 PFLUSH (); /* make sure blatted */
yuuji@0 584 }
yuuji@0 585 syslog (LOG_INFO,"%s user=%.80s host=%.80s",logout,
yuuji@0 586 user ? (char *) user : "???",tcp_clienthost ());
yuuji@0 587 /* do logout hook if needed */
yuuji@0 588 if (lgoh) (*lgoh) (mail_parameters (NIL,GET_LOGOUTDATA,NIL));
yuuji@0 589 _exit (status); /* all done */
yuuji@0 590 }
yuuji@0 591
yuuji@0 592 /* Clock interrupt
yuuji@0 593 */
yuuji@0 594
yuuji@0 595 void clkint ()
yuuji@0 596 {
yuuji@0 597 alarm (0); /* disable all interrupts */
yuuji@0 598 server_init (NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
yuuji@0 599 goodbye = "-ERR Autologout; idle for too long\015\012";
yuuji@0 600 logout = "Autologout";
yuuji@0 601 if (critical) state = LOGOUT; /* badly hosed if in critical code */
yuuji@0 602 else { /* try to gracefully close the stream */
yuuji@0 603 if ((state == TRANSACTION) && !stream->lock) {
yuuji@0 604 rset ();
yuuji@0 605 mail_close (stream);
yuuji@0 606 }
yuuji@0 607 state = LOGOUT;
yuuji@0 608 stream = NIL;
yuuji@0 609 sayonara (1);
yuuji@0 610 }
yuuji@0 611 }
yuuji@0 612
yuuji@0 613
yuuji@0 614 /* Kiss Of Death interrupt
yuuji@0 615 */
yuuji@0 616
yuuji@0 617 void kodint ()
yuuji@0 618 {
yuuji@0 619 /* only if idle */
yuuji@0 620 if (idletime && ((time (0) - idletime) > KODTIMEOUT)) {
yuuji@0 621 alarm (0); /* disable all interrupts */
yuuji@0 622 server_init (NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
yuuji@0 623 goodbye = "-ERR Received Kiss of Death\015\012";
yuuji@0 624 logout = "Killed (lost mailbox lock)";
yuuji@0 625 if (critical) state =LOGOUT;/* must defer if in critical code */
yuuji@0 626 else { /* try to gracefully close the stream */
yuuji@0 627 if ((state == TRANSACTION) && !stream->lock) {
yuuji@0 628 rset ();
yuuji@0 629 mail_close (stream);
yuuji@0 630 }
yuuji@0 631 state = LOGOUT;
yuuji@0 632 stream = NIL;
yuuji@0 633 sayonara (1); /* die die die */
yuuji@0 634 }
yuuji@0 635 }
yuuji@0 636 }
yuuji@0 637
yuuji@0 638
yuuji@0 639 /* Hangup interrupt
yuuji@0 640 */
yuuji@0 641
yuuji@0 642 void hupint ()
yuuji@0 643 {
yuuji@0 644 alarm (0); /* disable all interrupts */
yuuji@0 645 server_init (NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
yuuji@0 646 goodbye = NIL; /* nobody left to talk to */
yuuji@0 647 logout = "Hangup";
yuuji@0 648 if (critical) state = LOGOUT; /* must defer if in critical code */
yuuji@0 649 else { /* try to gracefully close the stream */
yuuji@0 650 if ((state == TRANSACTION) && !stream->lock) {
yuuji@0 651 rset ();
yuuji@0 652 mail_close (stream);
yuuji@0 653 }
yuuji@0 654 state = LOGOUT;
yuuji@0 655 stream = NIL;
yuuji@0 656 sayonara (1); /* die die die */
yuuji@0 657 }
yuuji@0 658 }
yuuji@0 659
yuuji@0 660
yuuji@0 661 /* Termination interrupt
yuuji@0 662 */
yuuji@0 663
yuuji@0 664 void trmint ()
yuuji@0 665 {
yuuji@0 666 alarm (0); /* disable all interrupts */
yuuji@0 667 server_init (NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
yuuji@0 668 goodbye = "-ERR Killed\015\012";
yuuji@0 669 logout = "Killed";
yuuji@0 670 if (critical) state = LOGOUT; /* must defer if in critical code */
yuuji@0 671 /* Make no attempt at graceful closure since a shutdown may be in
yuuji@0 672 * progress, and we won't have any time to do mail_close() actions.
yuuji@0 673 */
yuuji@0 674 else sayonara (1); /* die die die */
yuuji@0 675 }
yuuji@0 676
yuuji@0 677 /* Parse PASS command
yuuji@0 678 * Accepts: pointer to command argument
yuuji@0 679 * Returns: new state
yuuji@0 680 */
yuuji@0 681
yuuji@0 682 int pass_login (char *t,int argc,char *argv[])
yuuji@0 683 {
yuuji@0 684 char tmp[MAILTMPLEN];
yuuji@0 685 /* flush old passowrd */
yuuji@0 686 if (pass) fs_give ((void **) &pass);
yuuji@0 687 if (!(t && *t)) { /* if no password given */
yuuji@0 688 PSOUT ("-ERR Missing password argument\015\012");
yuuji@0 689 return AUTHORIZATION;
yuuji@0 690 }
yuuji@0 691 pass = cpystr (t); /* copy password argument */
yuuji@0 692 if (!host) { /* want remote mailbox? */
yuuji@0 693 /* no, delimit user from possible admin */
yuuji@0 694 if (t = strchr (user,'*')) *t++ ='\0';
yuuji@0 695 /* attempt the login */
yuuji@0 696 if (server_login (user,pass,t,argc,argv)) {
yuuji@0 697 int ret = mbxopen ("INBOX");
yuuji@0 698 if (ret == TRANSACTION) /* mailbox opened OK? */
yuuji@0 699 syslog (LOG_INFO,"%sLogin user=%.80s host=%.80s nmsgs=%lu/%lu",
yuuji@0 700 t ? "Admin " : "",user,tcp_clienthost (),nmsgs,stream->nmsgs);
yuuji@0 701 else syslog (LOG_INFO,"%sLogin user=%.80s host=%.80s no mailbox",
yuuji@0 702 t ? "Admin " : "",user,tcp_clienthost ());
yuuji@0 703 return ret;
yuuji@0 704 }
yuuji@0 705 }
yuuji@0 706 #ifndef DISABLE_POP_PROXY
yuuji@0 707 /* remote; build remote INBOX */
yuuji@0 708 else if (anonymous_login (argc,argv)) {
yuuji@0 709 syslog (LOG_INFO,"IMAP login to host=%.80s user=%.80s host=%.80s",host,
yuuji@0 710 user,tcp_clienthost ());
yuuji@0 711 sprintf (tmp,"{%.128s/user=%.128s}INBOX",host,user);
yuuji@0 712 /* disable rimap just in case */
yuuji@0 713 mail_parameters (NIL,SET_RSHTIMEOUT,0);
yuuji@0 714 return mbxopen (tmp);
yuuji@0 715 }
yuuji@0 716 #endif
yuuji@0 717 /* vague error message to confuse crackers */
yuuji@0 718 PSOUT ("-ERR Bad login\015\012");
yuuji@0 719 return AUTHORIZATION;
yuuji@0 720 }
yuuji@0 721
yuuji@0 722 /* Authentication responder
yuuji@0 723 * Accepts: challenge
yuuji@0 724 * length of challenge
yuuji@0 725 * pointer to response length return location if non-NIL
yuuji@0 726 * Returns: response
yuuji@0 727 */
yuuji@0 728
yuuji@0 729 #define RESPBUFLEN 8*MAILTMPLEN
yuuji@0 730
yuuji@0 731 char *responder (void *challenge,unsigned long clen,unsigned long *rlen)
yuuji@0 732 {
yuuji@0 733 unsigned long i,j;
yuuji@0 734 unsigned char *t,resp[RESPBUFLEN];
yuuji@0 735 char tmp[MAILTMPLEN];
yuuji@0 736 if (initial) { /* initial response given? */
yuuji@0 737 if (clen) return NIL; /* not permitted */
yuuji@0 738 /* set up response */
yuuji@0 739 t = (unsigned char *) initial;
yuuji@0 740 initial = NIL; /* no more initial response */
yuuji@0 741 return (char *) rfc822_base64 (t,strlen ((char *) t),rlen ? rlen : &i);
yuuji@0 742 }
yuuji@0 743 PSOUT ("+ ");
yuuji@0 744 for (t = rfc822_binary (challenge,clen,&i),j = 0; j < i; j++)
yuuji@0 745 if (t[j] > ' ') PBOUT (t[j]);
yuuji@0 746 fs_give ((void **) &t);
yuuji@0 747 CRLF;
yuuji@0 748 PFLUSH (); /* dump output buffer */
yuuji@0 749 resp[RESPBUFLEN-1] = '\0'; /* last buffer character is guaranteed NUL */
yuuji@0 750 alarm (LOGINTIMEOUT); /* get a response under timeout */
yuuji@0 751 clearerr (stdin); /* clear stdin errors */
yuuji@0 752 /* read buffer */
yuuji@0 753 while (!PSIN ((char *) resp,RESPBUFLEN)) {
yuuji@0 754 /* ignore if some interrupt */
yuuji@0 755 if (ferror (stdin) && (errno == EINTR)) clearerr (stdin);
yuuji@0 756 else {
yuuji@0 757 char *e = ferror (stdin) ?
yuuji@0 758 strerror (errno) : "Command stream end of file";
yuuji@0 759 alarm (0); /* disable all interrupts */
yuuji@0 760 server_init (NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
yuuji@0 761 sprintf (logout = tmp,"%.80s, while reading authentication",e);
yuuji@0 762 goodbye = NIL;
yuuji@0 763 state = LOGOUT;
yuuji@0 764 sayonara (1);
yuuji@0 765 }
yuuji@0 766 }
yuuji@0 767 if (!(t = (unsigned char *) strchr ((char *) resp,'\012'))) {
yuuji@0 768 int c;
yuuji@0 769 while ((c = PBIN ()) != '\012') if (c == EOF) {
yuuji@0 770 /* ignore if some interrupt */
yuuji@0 771 if (ferror (stdin) && (errno == EINTR)) clearerr (stdin);
yuuji@0 772 else {
yuuji@0 773 char *e = ferror (stdin) ?
yuuji@0 774 strerror (errno) : "Command stream end of file";
yuuji@0 775 alarm (0); /* disable all interrupts */
yuuji@0 776 server_init (NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
yuuji@0 777 sprintf (logout = tmp,"%.80s, while reading auth char",e);
yuuji@0 778 goodbye = NIL;
yuuji@0 779 state = LOGOUT;
yuuji@0 780 sayonara (1);
yuuji@0 781 }
yuuji@0 782 }
yuuji@0 783 return NIL;
yuuji@0 784 }
yuuji@0 785 alarm (0); /* make sure timeout disabled */
yuuji@0 786 if (t[-1] == '\015') --t; /* remove CR */
yuuji@0 787 *t = '\0'; /* tie off buffer */
yuuji@0 788 return (resp[0] != '*') ?
yuuji@0 789 (char *) rfc822_base64 (resp,t-resp,rlen ? rlen : &i) : NIL;
yuuji@0 790 }
yuuji@0 791
yuuji@0 792 /* Select mailbox
yuuji@0 793 * Accepts: mailbox name
yuuji@0 794 * Returns: new state
yuuji@0 795 */
yuuji@0 796
yuuji@0 797 int mbxopen (char *mailbox)
yuuji@0 798 {
yuuji@0 799 unsigned long i,j;
yuuji@0 800 char tmp[MAILTMPLEN];
yuuji@0 801 MESSAGECACHE *elt;
yuuji@0 802 if (msg) fs_give ((void **) &msg);
yuuji@0 803 /* open mailbox */
yuuji@0 804 if (!(stream = mail_open (stream,mailbox,NIL)))
yuuji@0 805 goodbye = "-ERR Unable to open user's INBOX\015\012";
yuuji@0 806 else if (stream->rdonly) /* make sure not readonly */
yuuji@0 807 goodbye = "-ERR Can't get lock. Mailbox in use\015\012";
yuuji@0 808 else {
yuuji@0 809 nmsgs = 0; /* no messages yet */
yuuji@0 810 if (j = stream->nmsgs) { /* if mailbox non-empty */
yuuji@0 811 sprintf (tmp,"1:%lu",j); /* fetch fast information for all messages */
yuuji@0 812 mail_fetch_fast (stream,tmp,NIL);
yuuji@0 813 }
yuuji@0 814 /* create 1-origin tables */
yuuji@0 815 msg = (long *) fs_get (++j * sizeof (long));
yuuji@0 816 flags = (short *) fs_get (j * sizeof (short));
yuuji@0 817 /* build map */
yuuji@0 818 for (i = 1; i < j; ++i) if (!(elt = mail_elt (stream,i))->deleted) {
yuuji@0 819 msg[++nmsgs] = i; /* note the presence of this message */
yuuji@0 820 if (elt->seen) il = nmsgs;/* and set up initial LAST */
yuuji@0 821 }
yuuji@0 822 /* make sure unused map entries are zero */
yuuji@0 823 for (i = nmsgs + 1; i < j; ++i) msg[i] = 0;
yuuji@0 824 rset (); /* do implicit RSET */
yuuji@0 825 sprintf (tmp,"+OK Mailbox open, %lu messages\015\012",nmsgs);
yuuji@0 826 PSOUT (tmp);
yuuji@0 827 return TRANSACTION;
yuuji@0 828 }
yuuji@0 829 syslog (LOG_INFO,"Error opening or locking INBOX user=%.80s host=%.80s",
yuuji@0 830 user,tcp_clienthost ());
yuuji@0 831 return UPDATE;
yuuji@0 832 }
yuuji@0 833
yuuji@0 834 /* Blat a string with dot checking
yuuji@0 835 * Accepts: string
yuuji@0 836 * maximum number of lines if greater than zero
yuuji@0 837 * maximum number of bytes to output
yuuji@0 838 * alternative stringstruct
yuuji@0 839 * Returns: number of lines output
yuuji@0 840 *
yuuji@0 841 * This routine is uglier and kludgier than it should be, just to be robust
yuuji@0 842 * in the case of a message which doesn't end in a newline. Yes, this routine
yuuji@0 843 * does truncate the last two bytes from the text. Since it is normally a
yuuji@0 844 * newline and the main routine adds it back, it usually does not make a
yuuji@0 845 * difference. But if it isn't, since the newline is required and the octet
yuuji@0 846 * counts have to match, there's no choice but to truncate.
yuuji@0 847 */
yuuji@0 848
yuuji@0 849 long blat (char *text,long lines,unsigned long size,STRING *st)
yuuji@0 850 {
yuuji@0 851 char c,d,e;
yuuji@0 852 long ret = 0;
yuuji@0 853 /* no-op if zero lines or empty string */
yuuji@0 854 if (!(lines && (size-- > 2))) return 0;
yuuji@0 855 if (text) {
yuuji@0 856 c = *text++; d = *text++; /* collect first two bytes */
yuuji@0 857 if (c == '.') PBOUT ('.'); /* double string-leading dot if necessary */
yuuji@0 858 while (lines && --size) { /* copy loop */
yuuji@0 859 e = *text++; /* get next byte */
yuuji@0 860 PBOUT (c); /* output character */
yuuji@0 861 if (c == '\012') { /* end of line? */
yuuji@0 862 ret++; --lines; /* count another line */
yuuji@0 863 /* double leading dot as necessary */
yuuji@0 864 if (lines && size && (d == '.')) PBOUT ('.');
yuuji@0 865 }
yuuji@0 866 c = d; d = e; /* move to next character */
yuuji@0 867 }
yuuji@0 868 }
yuuji@0 869 else {
yuuji@0 870 c = SNX (st); d = SNX (st); /* collect first two bytes */
yuuji@0 871 if (c == '.') PBOUT ('.'); /* double string-leading dot if necessary */
yuuji@0 872 while (lines && --size) { /* copy loop */
yuuji@0 873 e = SNX (st); /* get next byte */
yuuji@0 874 PBOUT (c); /* output character */
yuuji@0 875 if (c == '\012') { /* end of line? */
yuuji@0 876 ret++; --lines; /* count another line */
yuuji@0 877 /* double leading dot as necessary */
yuuji@0 878 if (lines && size && (d == '.')) PBOUT ('.');
yuuji@0 879 }
yuuji@0 880 c = d; d = e; /* move to next character */
yuuji@0 881 }
yuuji@0 882 }
yuuji@0 883 return ret;
yuuji@0 884 }
yuuji@0 885
yuuji@0 886 /* Reset mailbox
yuuji@0 887 */
yuuji@0 888
yuuji@0 889 void rset ()
yuuji@0 890 {
yuuji@0 891 /* clear all flags */
yuuji@0 892 if (flags) memset ((void *) flags,0,(nmsgs + 1) * sizeof (short));
yuuji@0 893 ndele = nseen = 0; /* no more deleted or seen messages */
yuuji@0 894 last = il; /* restore previous LAST value */
yuuji@0 895 }
yuuji@0 896
yuuji@0 897 /* Co-routines from MAIL library */
yuuji@0 898
yuuji@0 899
yuuji@0 900 /* Message matches a search
yuuji@0 901 * Accepts: MAIL stream
yuuji@0 902 * message number
yuuji@0 903 */
yuuji@0 904
yuuji@0 905 void mm_searched (MAILSTREAM *stream,unsigned long msgno)
yuuji@0 906 {
yuuji@0 907 /* Never called */
yuuji@0 908 }
yuuji@0 909
yuuji@0 910
yuuji@0 911 /* Message exists (i.e. there are that many messages in the mailbox)
yuuji@0 912 * Accepts: MAIL stream
yuuji@0 913 * message number
yuuji@0 914 */
yuuji@0 915
yuuji@0 916 void mm_exists (MAILSTREAM *stream,unsigned long number)
yuuji@0 917 {
yuuji@0 918 /* Can't use this mechanism. POP has no means of notifying the client of
yuuji@0 919 new mail during the session. */
yuuji@0 920 }
yuuji@0 921
yuuji@0 922
yuuji@0 923 /* Message expunged
yuuji@0 924 * Accepts: MAIL stream
yuuji@0 925 * message number
yuuji@0 926 */
yuuji@0 927
yuuji@0 928 void mm_expunged (MAILSTREAM *stream,unsigned long number)
yuuji@0 929 {
yuuji@0 930 unsigned long i = number + 1;
yuuji@0 931 msg[number] = 0; /* I bet that this will annoy someone */
yuuji@0 932 while (i <= nmsgs) --msg[i++];
yuuji@0 933 }
yuuji@0 934
yuuji@0 935
yuuji@0 936 /* Message flag status change
yuuji@0 937 * Accepts: MAIL stream
yuuji@0 938 * message number
yuuji@0 939 */
yuuji@0 940
yuuji@0 941 void mm_flags (MAILSTREAM *stream,unsigned long number)
yuuji@0 942 {
yuuji@0 943 /* This isn't used */
yuuji@0 944 }
yuuji@0 945
yuuji@0 946
yuuji@0 947 /* Mailbox found
yuuji@0 948 * Accepts: MAIL stream
yuuji@0 949 * hierarchy delimiter
yuuji@0 950 * mailbox name
yuuji@0 951 * mailbox attributes
yuuji@0 952 */
yuuji@0 953
yuuji@0 954 void mm_list (MAILSTREAM *stream,int delimiter,char *name,long attributes)
yuuji@0 955 {
yuuji@0 956 /* This isn't used */
yuuji@0 957 }
yuuji@0 958
yuuji@0 959
yuuji@0 960 /* Subscribe mailbox found
yuuji@0 961 * Accepts: MAIL stream
yuuji@0 962 * hierarchy delimiter
yuuji@0 963 * mailbox name
yuuji@0 964 * mailbox attributes
yuuji@0 965 */
yuuji@0 966
yuuji@0 967 void mm_lsub (MAILSTREAM *stream,int delimiter,char *name,long attributes)
yuuji@0 968 {
yuuji@0 969 /* This isn't used */
yuuji@0 970 }
yuuji@0 971
yuuji@0 972
yuuji@0 973 /* Mailbox status
yuuji@0 974 * Accepts: MAIL stream
yuuji@0 975 * mailbox name
yuuji@0 976 * mailbox status
yuuji@0 977 */
yuuji@0 978
yuuji@0 979 void mm_status (MAILSTREAM *stream,char *mailbox,MAILSTATUS *status)
yuuji@0 980 {
yuuji@0 981 /* This isn't used */
yuuji@0 982 }
yuuji@0 983
yuuji@0 984 /* Notification event
yuuji@0 985 * Accepts: MAIL stream
yuuji@0 986 * string to log
yuuji@0 987 * error flag
yuuji@0 988 */
yuuji@0 989
yuuji@0 990 void mm_notify (MAILSTREAM *stream,char *string,long errflg)
yuuji@0 991 {
yuuji@0 992 mm_log (string,errflg); /* just do mm_log action */
yuuji@0 993 }
yuuji@0 994
yuuji@0 995
yuuji@0 996 /* Log an event for the user to see
yuuji@0 997 * Accepts: string to log
yuuji@0 998 * error flag
yuuji@0 999 */
yuuji@0 1000
yuuji@0 1001 void mm_log (char *string,long errflg)
yuuji@0 1002 {
yuuji@0 1003 switch (errflg) {
yuuji@0 1004 case NIL: /* information message */
yuuji@0 1005 case PARSE: /* parse glitch */
yuuji@0 1006 break; /* too many of these to log */
yuuji@0 1007 case WARN: /* warning */
yuuji@0 1008 syslog (LOG_DEBUG,"%s",string);
yuuji@0 1009 break;
yuuji@0 1010 case BYE: /* driver broke connection */
yuuji@0 1011 if (state != UPDATE) {
yuuji@0 1012 char tmp[MAILTMPLEN];
yuuji@0 1013 alarm (0); /* disable all interrupts */
yuuji@0 1014 server_init (NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
yuuji@0 1015 sprintf (logout = tmp,"Mailbox closed (%.80s)",string);
yuuji@0 1016 goodbye = NIL;
yuuji@0 1017 state = LOGOUT;
yuuji@0 1018 sayonara (1);
yuuji@0 1019 }
yuuji@0 1020 break;
yuuji@0 1021 case ERROR: /* error that broke command */
yuuji@0 1022 default: /* default should never happen */
yuuji@0 1023 syslog (LOG_NOTICE,"%s",string);
yuuji@0 1024 break;
yuuji@0 1025 }
yuuji@0 1026 }
yuuji@0 1027
yuuji@0 1028
yuuji@0 1029 /* Log an event to debugging telemetry
yuuji@0 1030 * Accepts: string to log
yuuji@0 1031 */
yuuji@0 1032
yuuji@0 1033 void mm_dlog (char *string)
yuuji@0 1034 {
yuuji@0 1035 /* Not doing anything here for now */
yuuji@0 1036 }
yuuji@0 1037
yuuji@0 1038
yuuji@0 1039 /* Get user name and password for this host
yuuji@0 1040 * Accepts: parse of network mailbox name
yuuji@0 1041 * where to return user name
yuuji@0 1042 * where to return password
yuuji@0 1043 * trial count
yuuji@0 1044 */
yuuji@0 1045
yuuji@0 1046 void mm_login (NETMBX *mb,char *username,char *password,long trial)
yuuji@0 1047 {
yuuji@0 1048 /* set user name */
yuuji@0 1049 strncpy (username,*mb->user ? mb->user : user,NETMAXUSER-1);
yuuji@0 1050 if (pass) {
yuuji@0 1051 strncpy (password,pass,255);/* and password */
yuuji@0 1052 fs_give ((void **) &pass);
yuuji@0 1053 }
yuuji@0 1054 else memset (password,0,256); /* no password to send, abort login */
yuuji@0 1055 username[NETMAXUSER] = password[255] = '\0';
yuuji@0 1056 }
yuuji@0 1057
yuuji@0 1058 /* About to enter critical code
yuuji@0 1059 * Accepts: stream
yuuji@0 1060 */
yuuji@0 1061
yuuji@0 1062 void mm_critical (MAILSTREAM *stream)
yuuji@0 1063 {
yuuji@0 1064 ++critical;
yuuji@0 1065 }
yuuji@0 1066
yuuji@0 1067
yuuji@0 1068 /* About to exit critical code
yuuji@0 1069 * Accepts: stream
yuuji@0 1070 */
yuuji@0 1071
yuuji@0 1072 void mm_nocritical (MAILSTREAM *stream)
yuuji@0 1073 {
yuuji@0 1074 --critical;
yuuji@0 1075 }
yuuji@0 1076
yuuji@0 1077
yuuji@0 1078 /* Disk error found
yuuji@0 1079 * Accepts: stream
yuuji@0 1080 * system error code
yuuji@0 1081 * flag indicating that mailbox may be clobbered
yuuji@0 1082 * Returns: abort flag
yuuji@0 1083 */
yuuji@0 1084
yuuji@0 1085 long mm_diskerror (MAILSTREAM *stream,long errcode,long serious)
yuuji@0 1086 {
yuuji@0 1087 if (serious) { /* try your damnest if clobberage likely */
yuuji@0 1088 syslog (LOG_ALERT,
yuuji@0 1089 "Retrying after disk error user=%.80s host=%.80s mbx=%.80s: %.80s",
yuuji@0 1090 user,tcp_clienthost (),
yuuji@0 1091 (stream && stream->mailbox) ? stream->mailbox : "???",
yuuji@0 1092 strerror (errcode));
yuuji@0 1093 alarm (0); /* make damn sure timeout disabled */
yuuji@0 1094 sleep (60); /* give it some time to clear up */
yuuji@0 1095 return NIL;
yuuji@0 1096 }
yuuji@0 1097 syslog (LOG_ALERT,"Fatal disk error user=%.80s host=%.80s mbx=%.80s: %.80s",
yuuji@0 1098 user,tcp_clienthost (),
yuuji@0 1099 (stream && stream->mailbox) ? stream->mailbox : "???",
yuuji@0 1100 strerror (errcode));
yuuji@0 1101 return T;
yuuji@0 1102 }
yuuji@0 1103
yuuji@0 1104
yuuji@0 1105 /* Log a fatal error event
yuuji@0 1106 * Accepts: string to log
yuuji@0 1107 */
yuuji@0 1108
yuuji@0 1109 void mm_fatal (char *string)
yuuji@0 1110 {
yuuji@0 1111 mm_log (string,ERROR); /* shouldn't happen normally */
yuuji@0 1112 }

UW-IMAP'd extensions by yuuji