开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 网络编程 > 查看源码
ipop3d.c
资源名称：imap-4.7.tar.Z　[点击查看]
上传用户：ycwykj01
上传日期：2007-01-04
资源大小：1819k
文件大小：27k
源码类别：

网络编程

开发平台：

Unix_Linux

ipop3d.c：源码内容
  1. /*
  2.  * Program: IPOP3D - IMAP to POP3 conversion server
  3.  *
  4.  * Author: Mark Crispin
  5.  * Networks and Distributed Computing
  6.  * Computing & Communications
  7.  * University of Washington
  8.  * Administration Building, AG-44
  9.  * Seattle, WA  98195
  10.  * Internet: MRC@CAC.Washington.EDU
  11.  *
  12.  * Date: 1 November 1990
  13.  * Last Edited: 16 November 1999
  14.  *
  15.  * Copyright 1999 by the University of Washington
  16.  *
  17.  *  Permission to use, copy, modify, and distribute this software and its
  18.  * documentation for any purpose and without fee is hereby granted, provided
  19.  * that the above copyright notice appears in all copies and that both the
  20.  * above copyright notice and this permission notice appear in supporting
  21.  * documentation, and that the name of the University of Washington not be
  22.  * used in advertising or publicity pertaining to distribution of the software
  23.  * without specific, written prior permission.  This software is made
  24.  * available "as is", and
  25.  * THE UNIVERSITY OF WASHINGTON DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED,
  26.  * WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED
  27.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN
  28.  * NO EVENT SHALL THE UNIVERSITY OF WASHINGTON BE LIABLE FOR ANY SPECIAL,
  29.  * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  30.  * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, TORT
  31.  * (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF OR IN CONNECTION
  32.  * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  33.  *
  34.  */
  36. #define PBIN getchar
  37. #define PSIN(s,n) fgets (s,n,stdin)
  38. #define PBOUT(c) putchar (c)
  39. #define PSOUT(s) fputs (s,stdout)
  40. #define PFLUSH fflush (stdout)
  41. #define CRLF PSOUT ("1512")
  43. /* Parameter files */
  45. #include "mail.h"
  46. #include "osdep.h"
  47. #include "rfc822.h"
  48. #include <stdio.h>
  49. #include <ctype.h>
  50. #include <errno.h>
  51. extern int errno; /* just in case */
  52. #include <signal.h>
  53. #include "misc.h"
  56. /* Autologout timer */
  57. #define KODTIMEOUT 60*5
  58. #define LOGINTIMEOUT 60*3
  59. #define TIMEOUT 60*30
  62. /* Size of temporary buffers */
  63. #define TMPLEN 1024
  66. /* Server states */
  68. #define AUTHORIZATION 0
  69. #define TRANSACTION 1
  70. #define UPDATE 2
  71. #define LOGOUT 3
  73. /* Eudora food */
  75. #define STATUS "Status: %s%s1512"
  76. #define SLEN (sizeof (STATUS)-3)
  79. /* Global storage */
  81. char *version = "7.64"; /* server version */
  82. short state = AUTHORIZATION; /* server state */
  83. short critical = NIL; /* non-zero if in critical code */
  84. MAILSTREAM *stream = NIL; /* mailbox stream */
  85. long idletime = 0; /* time we went idle */
  86. unsigned long nmsgs = 0; /* current number of messages */
  87. unsigned long ndele = 0; /* number of deletes */
  88. unsigned long last = 0; /* highest message accessed */
  89. unsigned long il = 0; /* initial last message */
  90. char challenge[128]; /* challenge */
  91. #ifndef DISABLE_POP_PROXY
  92. char *host = NIL; /* remote host name */
  93. #endif
  94. char *user = NIL; /* user name */
  95. char *pass = NIL; /* password */
  96. char *initial = NIL; /* initial response */
  97. long *msg = NIL; /* message translation vector */
  98. char *sayonara = "+OK Sayonara1512";
  101. /* Function prototypes */
  103. int main (int argc,char *argv[]);
  104. void clkint ();
  105. void kodint ();
  106. void hupint ();
  107. void trmint ();
  108. int login (char *t,int argc,char *argv[]);
  109. char *apop_login (char *chal,char *user,char *md5,int argc,char *argv[]);
  110. char *responder (void *challenge,unsigned long clen,unsigned long *rlen);
  111. int mbxopen (char *mailbox);
  112. long blat (char *text,long lines,unsigned long size);
  113. void rset ();
  115. /* Main program */
  117. int main (int argc,char *argv[])
  118. {
  119.   unsigned long i,j,k;
  120.   char *s,*t;
  121.   char tmp[TMPLEN];
  122.   time_t autologouttime;
  123. #include "linkage.c"
  124. /* initialize server */
  125.   server_init (argv[0],"pop3","pop3s","pop",clkint,kodint,hupint,trmint);
  126.   challenge[0] = ''; /* find the CRAM-MD5 authenticator */
  127.   if (i = mail_lookup_auth_name ("CRAM-MD5",NIL)) {
  128.     AUTHENTICATOR *a = mail_lookup_auth (i);
  129.     if (a->server) { /* have an MD5 enable file? */
  130. /* build challenge -- less than 128 chars */
  131.       sprintf (challenge,"<%lx.%lx@%.64s>",(unsigned long) getpid (),
  132.        (unsigned long) time (0),tcp_serverhost ());
  133.     }
  134.   }
  135.   /* There are reports of POP3 clients which get upset if anything appears
  136.    * between the "+OK" and the "POP3" in the greeting.
  137.    */
  138.   PSOUT ("+OK POP3");
  139.   if (!challenge[0]) { /* if no MD5 enable, output host name */
  140.     PBOUT (' ');
  141.     PSOUT (tcp_serverhost ());
  142.   }
  143.   PSOUT (" v");
  144.   PSOUT (version);
  145.   PSOUT (" server ready");
  146.   if (challenge[0]) { /* if MD5 enable, output challenge here */
  147.     PBOUT (' ');
  148.     PSOUT (challenge);
  149.   }
  150.   CRLF;
  151.   PFLUSH; /* dump output buffer */
  152.   autologouttime = time (0) + LOGINTIMEOUT;
  153. /* command processing loop */
  154.   while ((state != UPDATE) && (state != LOGOUT)) {
  155.     idletime = time (0); /* get a command under timeout */
  156.     alarm ((state == TRANSACTION) ? TIMEOUT : LOGINTIMEOUT);
  157.     clearerr (stdin); /* clear stdin errors */
  158.     while (!PSIN (tmp,TMPLEN)){ /* read command line */
  159. /* ignore if some interrupt */
  160.       if (ferror (stdin) && (errno == EINTR)) clearerr (stdin);
  161.       else {
  162. char *e = ferror (stdin) ?
  163.   strerror (errno) : "Command stream end of file";
  164. alarm (0); /* disable all interrupts */
  165. syslog (LOG_INFO,"%s while reading line user=%.80s host=%.80s",
  166. e,user ? user : "???",tcp_clienthost ());
  167. rset (); /* try to gracefully close the stream */
  168. if (state == TRANSACTION) mail_close (stream);
  169. stream = NIL;
  170. state = LOGOUT;
  171. _exit (1);
  172.       }
  173.     }
  174.     alarm (0); /* make sure timeout disabled */
  175.     idletime = 0; /* no longer idle */
  177.     if (!strchr (tmp,'12')) /* find end of line */
  178.       PSOUT ("-ERR Command line too long1512");
  179.     else if (!(s = strtok (tmp," 1512")))
  180.       PSOUT ("-ERR Null command1512");
  181.     else { /* dispatch based on command */
  182.       ucase (s); /* canonicalize case */
  183. /* snarf argument */
  184.       t = strtok (NIL,"1512");
  185. /* QUIT command always valid */
  186.       if (!strcmp (s,"QUIT")) state = UPDATE;
  187.       else switch (state) { /* else dispatch based on state */
  188.       case AUTHORIZATION: /* waiting to get logged in */
  189. if (!strcmp (s,"USER")) {
  190. #ifndef DISABLE_POP_PROXY
  191.   if (host) fs_give ((void **) &host);
  192. #endif
  193.   if (user) fs_give ((void **) &user);
  194.   if (pass) fs_give ((void **) &pass);
  195.   if (t && *t) { /* if user name given */
  196. /* skip leading whitespace (bogus clients!) */
  197.     while (*t == ' ') ++t;
  198. #ifndef DISABLE_POP_PROXY
  199. /* remote user name? */
  200.     if (s = strchr (t,':')) {
  201.       *s++ = ''; /* tie off host name */
  202.       host = cpystr (t);/* copy host name */
  203.       user = cpystr (s);/* copy user name */
  204.     }
  205. /* local user name */
  206.     else user = cpystr (t);
  207. #else
  208.     user = cpystr (t); /* local user name */
  209. #endif
  210.     PSOUT ("+OK User name accepted, password please1512");
  211.   }
  212.   else PSOUT ("-ERR Missing username argument1512");
  213. }
  214. else if (user && *user && !strcmp (s,"PASS")) {
  215.   if ((state = login (t,argc,argv)) == TRANSACTION)
  216.     syslog (LOG_INFO,"Login user=%.80s host=%.80s nmsgs=%ld/%ld",
  217.     user,tcp_clienthost (),nmsgs,stream->nmsgs);
  218. }
  220. else if (!strcmp (s,"AUTH")) {
  221.   if (t && *t) { /* mechanism given? */
  222. #ifndef DISABLE_POP_PROXY
  223.     if (host) fs_give ((void **) &host);
  224. #endif
  225.     if (user) fs_give ((void **) &user);
  226.     if (pass) fs_give ((void **) &pass);
  227.     s = strtok (t," "); /* get mechanism name */
  228. /* get initial response */
  229.     initial = strtok (NIL,"1512");
  230.     if (!(user = cpystr (mail_auth (s,responder,argc,argv)))) {
  231.       PSOUT ("-ERR Bad authentication1512");
  232.       syslog (LOG_INFO,"AUTHENTICATE %s failure host=%.80s",s,
  233.       tcp_clienthost ());
  234.     }
  235.     else if ((state = mbxopen ("INBOX")) == TRANSACTION)
  236.       syslog (LOG_INFO,"Auth user=%.80s host=%.80s nmsgs=%ld/%ld",
  237.       user,tcp_clienthost (),nmsgs,stream->nmsgs);
  238.   }
  239.   else {
  240.     AUTHENTICATOR *auth = mail_lookup_auth (1);
  241.     PSOUT ("+OK Supported authentication mechanisms:1512");
  242.     while (auth) {
  243. #ifdef PLAINTEXT_DISABLED
  244. /* disable insecure authenticators */
  245.       if (!auth_secflag) auth->server = NIL;
  246. #endif
  247.       if (auth->server) {
  248. PSOUT (auth->name);
  249. CRLF;
  250.       }
  251.       auth = auth->next;
  252.     }
  253.     PBOUT ('.');
  254.     CRLF;
  255.   }
  256. }
  257. else if (!strcmp (s,"APOP")) {
  258.   if (challenge[0]) { /* can do it if have an MD5 challenge */
  259. #ifndef DISABLE_POP_PROXY
  260.     if (host) fs_give ((void **) &host);
  261. #endif
  262.     if (user) fs_give ((void **) &user);
  263.     if (pass) fs_give ((void **) &pass);
  264. /* get user name */
  265.     if (!(t && *t && (s = strtok (t," ")) && (t = strtok(NIL,"12"))))
  266.       PSOUT ("-ERR Missing APOP argument1512");
  267.     else if (!(user = apop_login (challenge,s,t,argc,argv)))
  268.       PSOUT ("-ERR Bad APOP1512");
  269.     else if ((state = mbxopen ("INBOX")) == TRANSACTION)
  270.       syslog (LOG_INFO,"APOP user=%.80s host=%.80s nmsgs=%ld/%ld",
  271.       user,tcp_clienthost (),nmsgs,stream->nmsgs);
  272.   }
  273.   else PSOUT ("-ERR Not supported1512");
  274. }
  275. /* (chuckle) */
  276. else if (!strcmp (s,"RPOP"))
  277.   PSOUT ("-ERR Nice try, bunkie1512");
  278. else PSOUT ("-ERR Unknown AUTHORIZATION state command1512");
  279. break;
  281.       case TRANSACTION: /* logged in */
  282. if (!strcmp (s,"STAT")) {
  283.   for (i = 1,j = 0,k = 0; i <= nmsgs; i++)
  284.     if (msg[i] > 0) { /* message still exists? */
  285.       j++; /* count one more undeleted message */
  286.       k += mail_elt (stream,msg[i])->rfc822_size + SLEN;
  287.     }
  288.   sprintf (tmp,"+OK %lu %lu1512",j,k);
  289.   PSOUT (tmp);
  290. }
  291. else if (!strcmp (s,"LIST")) {
  292.   if (t && *t) { /* argument do single message */
  293.     if ((i = strtoul (t,NIL,10)) && (i <= nmsgs) && (msg[i] > 0)) {
  294.       sprintf (tmp,"+OK %lu %lu1512",i,
  295.        mail_elt(stream,msg[i])->rfc822_size + SLEN);
  296.       PSOUT (tmp);
  297.     }
  298.     else PSOUT ("-ERR No such message1512");
  299.   }
  300.   else { /* entire mailbox */
  301.     PSOUT ("+OK Mailbox scan listing follows1512");
  302.     for (i = 1,j = 0,k = 0; i <= nmsgs; i++) if (msg[i] > 0) {
  303.       sprintf (tmp,"%lu %lu1512",i,
  304.        mail_elt (stream,msg[i])->rfc822_size + SLEN);
  305.       PSOUT (tmp);
  306.     }
  307.     PBOUT ('.'); /* end of list */
  308.     CRLF;
  309.   }
  310. }
  311. else if (!strcmp (s,"UIDL")) {
  312.   if (t && *t) { /* argument do single message */
  313.     if ((i = strtoul (t,NIL,10)) && (i <= nmsgs) && (msg[i] > 0)) {
  314.       sprintf (tmp,"+OK %lu %08lx%08lx1512",i,stream->uid_validity,
  315.        mail_uid (stream,msg[i]));
  316.       PSOUT (tmp);
  317.     }
  318.     else PSOUT ("-ERR No such message1512");
  319.   }
  320.   else { /* entire mailbox */
  321.     PSOUT ("+OK Unique-ID listing follows1512");
  322.     for (i = 1,j = 0,k = 0; i <= nmsgs; i++) if (msg[i] > 0) {
  323.       sprintf (tmp,"%lu %08lx%08lx1512",i,stream->uid_validity,
  324.        mail_uid (stream,msg[i]));
  325.       PSOUT (tmp);
  326.     }
  327.     PBOUT ('.'); /* end of list */
  328.     CRLF;
  329.   }
  330. }
  332. else if (!strcmp (s,"RETR")) {
  333.   if (t && *t) { /* must have an argument */
  334.     if ((i = strtoul (t,NIL,10)) && (i <= nmsgs) && (msg[i] > 0)) {
  335.       MESSAGECACHE *elt;
  336. /* update highest message accessed */
  337.       if (i > last) last = i;
  338.       sprintf (tmp,"+OK %lu octets1512",
  339.        (elt = mail_elt (stream,msg[i]))->rfc822_size + SLEN);
  340.       PSOUT (tmp);
  341. /* output header */
  342.       t = mail_fetch_header (stream,msg[i],NIL,NIL,&k,FT_PEEK);
  343.       blat (t,-1,k);
  344. /* output status */
  345.       sprintf (tmp,STATUS,elt->seen ? "R" : " ",
  346.        elt->recent ? " " : "O");
  347.       PSOUT (tmp);
  348.       CRLF; /* delimit header and text */
  349. /* output text */
  350.       t = mail_fetch_text (stream,msg[i],NIL,&k,NIL);
  351.       blat (t,-1,k);
  352.       CRLF; /* end of list */
  353.       PBOUT ('.');
  354.       CRLF;
  355.     }
  356.     else PSOUT ("-ERR No such message1512");
  357.   }
  358.   else PSOUT ("-ERR Missing message number argument1512");
  359. }
  360. else if (!strcmp (s,"DELE")) {
  361.   if (t && *t) { /* must have an argument */
  362.     if ((i = strtoul (t,NIL,10)) && (i <= nmsgs) && (msg[i] > 0)) {
  363. /* update highest message accessed */
  364.       if (i > last) last = i;
  365. /* delete message */
  366.       sprintf (tmp,"%ld",msg[i]);
  367.       mail_setflag (stream,tmp,"\Deleted");
  368.       msg[i] = -msg[i]; /* note that we deleted this message */
  369.       PSOUT ("+OK Message deleted1512");
  370.       ndele++; /* one more message deleted */
  371.     }
  372.     else PSOUT ("-ERR No such message1512");
  373.   }
  374.   else PSOUT ("-ERR Missing message number argument1512");
  375. }
  377. else if (!strcmp (s,"NOOP"))
  378.   PSOUT ("+OK No-op to you too!1512");
  379. else if (!strcmp (s,"LAST")) {
  380.   sprintf (tmp,"+OK %lu1512",last);
  381.   PSOUT (tmp);
  382. }
  383. else if (!strcmp (s,"RSET")) {
  384.   rset (); /* reset the mailbox */
  385.   PSOUT ("+OK Reset state1512");
  386. }
  387. else if (!strcmp (s,"TOP")) {
  388.   if (t && *t && (i =strtoul (t,&s,10)) && (i <= nmsgs) &&
  389.       (msg[i] > 0)) {
  390. /* skip whitespace */
  391.     while (isspace (*s)) s++;
  392.     if (isdigit (*s)) { /* make sure line count argument good */
  393.       MESSAGECACHE *elt = mail_elt (stream,msg[i]);
  394.       j = strtoul (s,NIL,10);
  395. /* update highest message accessed */
  396.       if (i > last) last = i;
  397.       PSOUT ("+OK Top of message follows1512");
  398. /* output header */
  399.       t = mail_fetch_header (stream,msg[i],NIL,NIL,&k,FT_PEEK);
  400.       blat (t,-1,k);
  401. /* output status */
  402.       sprintf (tmp,STATUS,elt->seen ? "R" : " ",
  403.        elt->recent ? " " : "O");
  404.       PSOUT (tmp);
  405.       CRLF; /* delimit header and text */
  406.       if (j) { /* want any text lines? */
  407. /* output text */
  408. t = mail_fetch_text (stream,msg[i],NIL,&k,FT_PEEK);
  409. /* tie off final line if full text output */
  410. if (j -= blat (t,j,k)) CRLF;
  411.       }
  412.       PBOUT ('.'); /* end of list */
  413.       CRLF;
  414.     }
  415.     else PSOUT ("-ERR Bad line count argument1512");
  416.   }
  417.   else PSOUT ("-ERR Bad message number argument1512");
  418. }
  419. else if (!strcmp (s,"XTND"))
  420.   PSOUT ("-ERR Sorry I can't do that1512");
  421. else PSOUT ("-ERR Unknown TRANSACTION state command1512");
  422. break;
  423.       default:
  424.         PSOUT ("-ERR Server in unknown state1512");
  425. break;
  426.       }
  427.     }
  428.     PFLUSH; /* make sure output finished */
  429.     if (autologouttime) { /* have an autologout in effect? */
  430. /* cancel if no longer waiting for login */
  431.       if (state != AUTHORIZATION) autologouttime = 0;
  432. /* took too long to login */
  433.       else if (autologouttime < time (0)) {
  434. PSOUT ("-ERR Autologout1512");
  435. syslog (LOG_INFO,"Autologout host=%.80s",tcp_clienthost ());
  436. PFLUSH; /* make sure output blatted */
  437. state = LOGOUT; /* sayonara */
  438.       }
  439.     }
  440.   }
  441.   if (stream && (state == UPDATE)) {
  442.     mail_expunge (stream);
  443.     syslog (LOG_INFO,"Logout user=%.80s host=%.80s nmsgs=%ld ndele=%ld",
  444.     user,tcp_clienthost (),stream->nmsgs,ndele);
  445.     mail_close (stream);
  446.   }
  447.   else syslog (LOG_INFO,"Logout user=%.80s host=%.80s",user ? user : "???",
  448.        tcp_clienthost ());
  449.   PSOUT (sayonara); /* "now it's time to say sayonara..." */
  450.   PFLUSH; /* make sure output finished */
  451.   return 0; /* all done */
  452. }
  454. /* Clock interrupt
  455.  */
  457. void clkint ()
  458. {
  459.   PSOUT ("-ERR Autologout; idle for too long1512");
  460.   syslog (LOG_INFO,"Autologout user=%.80s host=%.80s",user ? user : "???",
  461.   tcp_clienthost ());
  462.   PFLUSH; /* make sure output blatted */
  463.   if (critical) state = LOGOUT; /* badly hosed if in critical code */
  464.   else { /* try to gracefully close the stream */
  465.     if ((state == TRANSACTION) && !stream->lock) {
  466.       rset ();
  467.       mail_close (stream);
  468.     }
  469.     state = LOGOUT;
  470.     stream = NIL;
  471.     _exit (1); /* die die die */
  472.   }
  473. }
  476. /* Kiss Of Death interrupt
  477.  */
  479. void kodint ()
  480. {
  481. /* only if idle */
  482.   if (idletime && ((time (0) - idletime) > KODTIMEOUT)) {
  483.     alarm (0); /* disable all interrupts */
  484.     server_init (NIL,NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
  485.     PSOUT ("-ERR Received Kiss of Death1512");
  486.     syslog (LOG_INFO,"Killed (lost mailbox lock) user=%.80s host=%.80s",
  487.     user ? user : "???",tcp_clienthost ());
  488.     if (critical) state =LOGOUT;/* must defer if in critical code */
  489.     else { /* try to gracefully close the stream */
  490.       if ((state == TRANSACTION) && !stream->lock) {
  491. rset ();
  492. mail_close (stream);
  493.       }
  494.       state = LOGOUT;
  495.       stream = NIL;
  496.       _exit (1); /* die die die */
  497.     }
  498.   }
  499. }
  502. /* Hangup interrupt
  503.  */
  505. void hupint ()
  506. {
  507.   alarm (0); /* disable all interrupts */
  508.   server_init (NIL,NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
  509.   syslog (LOG_INFO,"Hangup user=%.80s host=%.80s",user ? user : "???",
  510.   tcp_clienthost ());
  511.   if (critical) state = LOGOUT; /* must defer if in critical code */
  512.   else { /* try to gracefully close the stream */
  513.     if ((state == TRANSACTION) && !stream->lock) {
  514.       rset ();
  515.       mail_close (stream);
  516.     }
  517.     state = LOGOUT;
  518.     stream = NIL;
  519.     _exit (1); /* die die die */
  520.   }
  521. }
  524. /* Termination interrupt
  525.  */
  527. void trmint ()
  528. {
  529.   alarm (0); /* disable all interrupts */
  530.   server_init (NIL,NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
  531.   PSOUT ("-ERR Killed1512");
  532.   syslog (LOG_INFO,"Killed user=%.80s host=%.80s",user ? user : "???",
  533.   tcp_clienthost ());
  534.   if (critical) state = LOGOUT; /* must defer if in critical code */
  535.   else { /* try to gracefully close the stream */
  536.     if ((state == TRANSACTION) && !stream->lock) {
  537.       rset ();
  538.       mail_close (stream);
  539.     }
  540.     state = LOGOUT;
  541.     stream = NIL;
  542.     _exit (1); /* die die die */
  543.   }
  544. }
  546. /* Parse PASS command
  547.  * Accepts: pointer to command argument
  548.  * Returns: new state
  549.  */
  551. int login (char *t,int argc,char *argv[])
  552. {
  553.   char tmp[TMPLEN];
  554. /* flush old passowrd */
  555.   if (pass) fs_give ((void **) &pass);
  556.   if (!(t && *t)) { /* if no password given */
  557.     PSOUT ("-ERR Missing password argument1512");
  558.     return AUTHORIZATION;
  559.   }
  560.   pass = cpystr (t); /* copy password argument */
  561. #ifndef DISABLE_POP_PROXY
  562. /* remote; build remote INBOX */
  563.   if (host && anonymous_login (argc,argv)) {
  564.     syslog (LOG_INFO,"IMAP login to host=%.80s user=%.80s host=%.80s",host,
  565.     user,tcp_clienthost ());
  566.     sprintf (tmp,"{%.128s/user=%.128s}INBOX",host,user);
  567. /* disable rimap just in case */
  568.     mail_parameters (NIL,SET_RSHTIMEOUT,0);
  569.   }
  570. /* local; attempt login, select INBOX */
  571.   else if (!host && server_login (user,pass,argc,argv)) strcpy (tmp,"INBOX");
  572. #else
  573.   if (server_login (user,pass,argc,argv)) strcpy (tmp,"INBOX");
  574. #endif
  575.   else { /* vague error message to confuse crackers */
  576.     PSOUT ("-ERR Bad login1512");
  577.     return AUTHORIZATION;
  578.   }
  579.   return mbxopen (tmp);
  580. }
  582. /* Authentication responder
  583.  * Accepts: challenge
  584.  *     length of challenge
  585.  *     pointer to response length return location if non-NIL
  586.  * Returns: response
  587.  */
  589. #define RESPBUFLEN 8*MAILTMPLEN
  591. char *responder (void *challenge,unsigned long clen,unsigned long *rlen)
  592. {
  593.   unsigned long i,j;
  594.   unsigned char *t,resp[RESPBUFLEN];
  595.   if (initial) { /* initial response given? */
  596.     if (clen) return NIL; /* not permitted */
  597. /* set up response */
  598.     t = (unsigned char *) initial;
  599.     initial = NIL; /* no more initial response */
  600.     return (char *) rfc822_base64 (t,strlen (t),rlen ? rlen : &i);
  601.   }
  602.   PSOUT ("+ ");
  603.   for (t = rfc822_binary (challenge,clen,&i),j = 0; j < i; j++)
  604.     if (t[j] > ' ') PBOUT (t[j]);
  605.   fs_give ((void **) &t);
  606.   CRLF;
  607.   PFLUSH; /* dump output buffer */
  608.   resp[RESPBUFLEN-1] = ''; /* last buffer character is guaranteed NUL */
  609.   alarm (LOGINTIMEOUT); /* get a response under timeout */
  610.   clearerr (stdin); /* clear stdin errors */
  611. /* read buffer */
  612.   while (!PSIN ((char *) resp,RESPBUFLEN)) {
  613. /* ignore if some interrupt */
  614.     if (ferror (stdin) && (errno == EINTR)) clearerr (stdin);
  615.     else {
  616.       char *e = ferror (stdin) ?
  617. strerror (errno) : "Command stream end of file";
  618.       alarm (0); /* disable all interrupts */
  619.       server_init (NIL,NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
  620.       syslog (LOG_INFO,"%s, while reading authentication host=%.80s",
  621.       e,tcp_clienthost ());
  622.       state = UPDATE;
  623.       _exit (1);
  624.     }
  625.   }
  626.   if (!(t = (unsigned char *) strchr ((char *) resp,'12'))) {
  627.     int c;
  628.     while ((c = PBIN ()) != '12') if (c == EOF) {
  629. /* ignore if some interrupt */
  630.       if (ferror (stdin) && (errno == EINTR)) clearerr (stdin);
  631.       else {
  632. char *e = ferror (stdin) ?
  633.   strerror (errno) : "Command stream end of file";
  634. alarm (0); /* disable all interrupts */
  635. server_init (NIL,NIL,NIL,NIL,SIG_IGN,SIG_IGN,SIG_IGN,SIG_IGN);
  636. syslog (LOG_INFO,"%s, while reading auth char user=%.80s host=%.80s",
  637. e,user ? user : "???",tcp_clienthost ());
  638. state = UPDATE;
  639. _exit (1);
  640.       }
  641.     }
  642.     return NIL;
  643.   }
  644.   alarm (0); /* make sure timeout disabled */
  645.   if (t[-1] == '15') --t; /* remove CR */
  646.   *t = ''; /* tie off buffer */
  647.   return (resp[0] != '*') ?
  648.     (char *) rfc822_base64 (resp,t-resp,rlen ? rlen : &i) : NIL;
  649. }
  651. /* Select mailbox
  652.  * Accepts: mailbox name
  653.  * Returns: new state
  654.  */
  656. int mbxopen (char *mailbox)
  657. {
  658.   unsigned long i,j;
  659.   char tmp[TMPLEN];
  660.   MESSAGECACHE *elt;
  661.   nmsgs = 0; /* no messages yet */
  662.   if (msg) fs_give ((void **) &msg);
  663. /* open mailbox */
  664.   if (stream = mail_open (stream,mailbox,NIL)) {
  665.     if (!stream->rdonly) { /* make sure not readonly */
  666.       if (j = stream->nmsgs) { /* if mailbox non-empty */
  667. sprintf (tmp,"1:%lu",j);/* fetch fast information for all messages */
  668. mail_fetch_fast (stream,tmp,NIL);
  669. msg = (long *) fs_get ((stream->nmsgs + 1) * sizeof (long));
  670. for (i = 1; i <= j; i++) if (!(elt = mail_elt (stream,i))->deleted) {
  671.   msg[++nmsgs] = i; /* note the presence of this message */
  672.   if (elt->seen) il = last = nmsgs;
  673. }
  674.       }
  675.       sprintf (tmp,"+OK Mailbox open, %lu messages1512",nmsgs);
  676.       PSOUT (tmp);
  677.       return TRANSACTION;
  678.     }
  679.     else sayonara = "-ERR Can't get lock.  Mailbox in use1512";
  680.   }
  681.   else sayonara = "-ERR Unable to open user's INBOX1512";
  682.   syslog (LOG_INFO,"Error opening or locking INBOX user=%.80s host=%.80s",
  683.   user,tcp_clienthost ());
  684.   return UPDATE;
  685. }
  687. /* Blat a string with dot checking
  688.  * Accepts: string
  689.  *     maximum number of lines if greater than zero
  690.  *     maximum number of bytes to output
  691.  * Returns: number of lines output
  692.  *
  693.  * This routine is uglier and kludgier than it should be, just to be robust
  694.  * in the case of a message which doesn't end in a newline.  Yes, this routine
  695.  * does truncate the last two bytes from the text.  Since it is normally a
  696.  * newline and the main routine adds it back, it usually does not make a
  697.  * difference.  But if it isn't, since the newline is required and the octet
  698.  * counts have to match, there's no choice but to truncate.
  699.  */
  701. long blat (char *text,long lines,unsigned long size)
  702. {
  703.   char c,d,e;
  704.   long ret = 0;
  705. /* no-op if zero lines or empty string */
  706.   if (!(lines && (size-- > 2))) return 0;
  707.   c = *text++; d = *text++; /* collect first two bytes */
  708.   if (c == '.') PBOUT ('.'); /* double string-leading dot if necessary */
  709.   while (lines && --size) { /* copy loop */
  710.     e = *text++; /* get next byte */
  711.     PBOUT (c); /* output character */
  712.     if (c == '12') { /* end of line? */
  713.       ret++; --lines; /* count another line */
  714. /* double leading dot as necessary */
  715.       if (lines && size && (d == '.')) PBOUT ('.');
  716.     }
  717.     c = d; d = e; /* move to next character */
  718.   }
  719.   return ret;
  720. }
  723. /* Reset mailbox
  724.  */
  726. void rset ()
  727. {
  728.   unsigned long i;
  729.   char tmp[20];
  730.   if (nmsgs) { /* undelete and unmark all of our messages */
  731.     for (i = 1; i <= nmsgs; i++) { /*  */
  732.       if (msg[i] < 0) { /* ugly and inefficient, but trustworthy */
  733. sprintf (tmp,"%ld",msg[i] = -msg[i]);
  734. mail_clearflag (stream,tmp,i <= il ? "\Deleted" : "\Deleted \Seen");
  735.       }
  736.       else if (i > il) {
  737. sprintf (tmp,"%ld",msg[i]);
  738. mail_clearflag (stream,tmp,"\Seen");
  739.       }
  740.     }
  741.     last = il;
  742.   }
  743.   ndele = 0; /* no more deleted messages */
  744. }
  746. /* Co-routines from MAIL library */
  749. /* Message matches a search
  750.  * Accepts: MAIL stream
  751.  *     message number
  752.  */
  754. void mm_searched (MAILSTREAM *stream,unsigned long msgno)
  755. {
  756.   /* Never called */
  757. }
  760. /* Message exists (i.e. there are that many messages in the mailbox)
  761.  * Accepts: MAIL stream
  762.  *     message number
  763.  */
  765. void mm_exists (MAILSTREAM *stream,unsigned long number)
  766. {
  767.   /* Can't use this mechanism.  POP has no means of notifying the client of
  768.      new mail during the session. */
  769. }
  772. /* Message expunged
  773.  * Accepts: MAIL stream
  774.  *     message number
  775.  */
  777. void mm_expunged (MAILSTREAM *stream,unsigned long number)
  778. {
  779.   unsigned long i = number + 1;
  780.   msg[number] = 0; /* I bet that this will annoy someone */
  781.   while (i <= nmsgs) --msg[i++];
  782. }
  785. /* Message flag status change
  786.  * Accepts: MAIL stream
  787.  *     message number
  788.  */
  790. void mm_flags (MAILSTREAM *stream,unsigned long number)
  791. {
  792.   /* This isn't used */
  793. }
  796. /* Mailbox found
  797.  * Accepts: MAIL stream
  798.  *     hierarchy delimiter
  799.  *     mailbox name
  800.  *     mailbox attributes
  801.  */
  803. void mm_list (MAILSTREAM *stream,int delimiter,char *name,long attributes)
  804. {
  805.   /* This isn't used */
  806. }
  809. /* Subscribe mailbox found
  810.  * Accepts: MAIL stream
  811.  *     hierarchy delimiter
  812.  *     mailbox name
  813.  *     mailbox attributes
  814.  */
  816. void mm_lsub (MAILSTREAM *stream,int delimiter,char *name,long attributes)
  817. {
  818.   /* This isn't used */
  819. }
  822. /* Mailbox status
  823.  * Accepts: MAIL stream
  824.  *     mailbox name
  825.  *     mailbox status
  826.  */
  828. void mm_status (MAILSTREAM *stream,char *mailbox,MAILSTATUS *status)
  829. {
  830.   /* This isn't used */
  831. }
  833. /* Notification event
  834.  * Accepts: MAIL stream
  835.  *     string to log
  836.  *     error flag
  837.  */
  839. void mm_notify (MAILSTREAM *stream,char *string,long errflg)
  840. {
  841.   mm_log (string,errflg); /* just do mm_log action */
  842. }
  845. /* Log an event for the user to see
  846.  * Accepts: string to log
  847.  *     error flag
  848.  */
  850. void mm_log (char *string,long errflg)
  851. {
  852.   switch (errflg) {
  853.   case NIL: /* information message */
  854.   case PARSE: /* parse glitch */
  855.     break; /* too many of these to log */
  856.   case WARN: /* warning */
  857.     syslog (LOG_DEBUG,"%s",string);
  858.     break;
  859.   case ERROR: /* error that broke command */
  860.   default: /* default should never happen */
  861.     syslog (LOG_NOTICE,"%s",string);
  862.     break;
  863.   }
  864. }
  867. /* Log an event to debugging telemetry
  868.  * Accepts: string to log
  869.  */
  871. void mm_dlog (char *string)
  872. {
  873.   /* Not doing anything here for now */
  874. }
  877. /* Get user name and password for this host
  878.  * Accepts: parse of network mailbox name
  879.  *     where to return user name
  880.  *     where to return password
  881.  *     trial count
  882.  */
  884. void mm_login (NETMBX *mb,char *username,char *password,long trial)
  885. {
  886. /* set user name */
  887.   strncpy (username,*mb->user ? mb->user : user,NETMAXUSER-1);
  888.   strncpy (password,pass,255); /* and password */
  889.   username[NETMAXUSER] = password[255] = '';
  890. }
  892. /* About to enter critical code
  893.  * Accepts: stream
  894.  */
  896. void mm_critical (MAILSTREAM *stream)
  897. {
  898.   critical = T;
  899. }
  902. /* About to exit critical code
  903.  * Accepts: stream
  904.  */
  906. void mm_nocritical (MAILSTREAM *stream)
  907. {
  908.   critical = NIL;
  909. }
  912. /* Disk error found
  913.  * Accepts: stream
  914.  *     system error code
  915.  *     flag indicating that mailbox may be clobbered
  916.  * Returns: abort flag
  917.  */
  919. long mm_diskerror (MAILSTREAM *stream,long errcode,long serious)
  920. {
  921.   if (serious) { /* try your damnest if clobberage likely */
  922.     syslog (LOG_ALERT,
  923.     "Retrying after disk error user=%.80s host=%.80s mbx=%.80s: %.80s",
  924.     user,tcp_clienthost (),
  925.     (stream && stream->mailbox) ? stream->mailbox : "???",
  926.     strerror (errcode));
  927.     alarm (0); /* make damn sure timeout disabled */
  928.     sleep (60); /* give it some time to clear up */
  929.     return NIL;
  930.   }
  931.   syslog (LOG_ALERT,"Fatal disk error user=%.80s host=%.80s mbx=%.80s: %.80s",
  932.   user,tcp_clienthost (),
  933.   (stream && stream->mailbox) ? stream->mailbox : "???",
  934.   strerror (errcode));
  935.   return T;
  936. }
  939. /* Log a fatal error event
  940.  * Accepts: string to log
  941.  */
  943. void mm_fatal (char *string)
  944. {
  945.   mm_log (string,ERROR); /* shouldn't happen normally */
  946. }