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

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

网络编程

开发平台：

Unix_Linux

env_unix.c：源码内容
  1. /*
  2.  * Program: UNIX environment routines
  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 August 1988
  13.  * Last Edited: 17 October 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 available
  24.  * "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. #include <signal.h>
  37. #include <sys/wait.h>
  38. #include "write.c" /* include safe writing routines */
  40. /* Get all authenticators */
  42. #include "auths.c"
  44. /* c-client environment parameters */
  46. static const char *anonymous_user = "nobody";
  47. static const char *unlogged_user = "root";
  49. static char *myUserName = NIL; /* user name */
  50. static char *myHomeDir = NIL; /* home directory name */
  51. static char *myLocalHost = NIL; /* local host name */
  52. static char *myNewsrc = NIL; /* newsrc file name */
  53. static char *sysInbox = NIL; /* system inbox name */
  54. static char *newsActive = NIL; /* news active file */
  55. static char *newsSpool = NIL; /* news spool */
  56. /* anonymous home directory */
  57. static char *anonymousHome = NIL;
  58. static char *ftpHome = NIL; /* ftp export home directory */
  59. static char *publicHome = NIL; /* public home directory */
  60. static char *sharedHome = NIL; /* shared home directory */
  61. static char *blackBoxDir = NIL; /* black box directory name */
  62. /* black box default home directory */
  63. static char *blackBoxDefaultHome = NIL;
  64. static short anonymous = NIL; /* is anonymous */
  65. static short blackBox = NIL; /* is a black box */
  66. static short has_no_life = NIL; /* is a cretin with no life */
  67. static long list_max_level = 20;/* maximum level of list recursion */
  68. /* default file protection */
  69. static long mbx_protection = 0600;
  70. /* default directory protection */
  71. static long dir_protection = 0700;
  72. /* default lock file protection */
  73. static long lock_protection = 0666;
  74. /* default ftp file protection */
  75. static long ftp_protection = 0644;
  76. /* default public file protection */
  77. static long public_protection = 0666;
  78. /* default shared file protection */
  79. static long shared_protection = 0660;
  80. static long locktimeout = 5; /* default lock timeout */
  81. static long disableFcntlLock = /* flock() emulator is a no-op */
  82. #ifdef SVR4_DISABLE_FLOCK
  83.   T
  84. #else
  85.   NIL
  86. #endif
  87.   ;
  88. static long lockEaccesError = /* warning on EACCES errors on .lock files */
  89. #ifdef IGNORE_LOCK_EACCES_ERRORS
  90.   NIL
  91. #else
  92.   T
  93. #endif
  94.   ;
  95. /* default prototypes */
  96. static MAILSTREAM *createProto = NIL;
  97. static MAILSTREAM *appendProto = NIL;
  98. /* default user flags */
  99. static char *userFlags[NUSERFLAGS] = {NIL};
  100. static NAMESPACE *nslist[3]; /* namespace list */
  101. static int logtry = 3; /* number of server login tries */
  102. /* block notification */
  103. static blocknotify_t mailblocknotify = mm_blocknotify;
  105. /* UNIX namespaces */
  107. /* personal mh namespace */
  108. static NAMESPACE nsmhf = {"#mh/",'/',NIL,NIL};
  109. static NAMESPACE nsmh = {"#mhinbox",NIL,NIL,&nsmhf};
  110. /* home namespace */
  111. static NAMESPACE nshome = {"",'/',NIL,&nsmh};
  112. /* UNIX other user namespace */
  113. static NAMESPACE nsunixother = {"~",'/',NIL,NIL};
  114. /* black box other user namespace */
  115. static NAMESPACE nsblackother = {"/",'/',NIL,NIL};
  116. /* public (anonymous OK) namespace */
  117. static NAMESPACE nspublic = {"#public/",'/',NIL,NIL};
  118. /* netnews namespace */
  119. static NAMESPACE nsnews = {"#news.",'.',NIL,&nspublic};
  120. /* FTP export namespace */
  121. static NAMESPACE nsftp = {"#ftp/",'/',NIL,&nsnews};
  122. /* shared (no anonymous) namespace */
  123. static NAMESPACE nsshared = {"#shared/",'/',NIL,&nsftp};
  125. /* Environment manipulate parameters
  126.  * Accepts: function code
  127.  *     function-dependent value
  128.  * Returns: function-dependent return value
  129.  */
  131. void *env_parameters (long function,void *value)
  132. {
  133.   switch ((int) function) {
  134.   case SET_NAMESPACE:
  135.     fatal ("SET_NAMESPACE not permitted");
  136.   case GET_NAMESPACE:
  137.     value = (void *) nslist;
  138.     break;
  139.   case SET_USERNAME:
  140.     if (myUserName) fs_give ((void **) &myUserName);
  141.     myUserName = cpystr ((char *) value);
  142.     break;
  143.   case GET_USERNAME:
  144.     value = (void *) myUserName;
  145.     break;
  146.   case SET_HOMEDIR:
  147.     if (myHomeDir) fs_give ((void **) &myHomeDir);
  148.     myHomeDir = cpystr ((char *) value);
  149.     break;
  150.   case GET_HOMEDIR:
  151.     value = (void *) myHomeDir;
  152.     break;
  153.   case SET_LOCALHOST:
  154.     if (myLocalHost) fs_give ((void **) &myLocalHost);
  155.     myLocalHost = cpystr ((char *) value);
  156.     break;
  157.   case GET_LOCALHOST:
  158.     value = (void *) myLocalHost;
  159.     break;
  160.   case SET_NEWSRC:
  161.     if (myNewsrc) fs_give ((void **) &myNewsrc);
  162.     myNewsrc = cpystr ((char *) value);
  163.     break;
  164.   case GET_NEWSRC:
  165.     value = (void *) myNewsrc;
  166.     break;
  167.   case SET_NEWSACTIVE:
  168.     if (newsActive) fs_give ((void **) &newsActive);
  169.     newsActive = cpystr ((char *) value);
  170.     break;
  171.   case GET_NEWSACTIVE:
  172.     value = (void *) newsActive;
  173.     break;
  175.   case SET_NEWSSPOOL:
  176.     if (newsSpool) fs_give ((void **) &newsSpool);
  177.     newsSpool = cpystr ((char *) value);
  178.     break;
  179.   case GET_NEWSSPOOL:
  180.     value = (void *) newsSpool;
  181.     break;
  182.   case SET_ANONYMOUSHOME:
  183.     if (anonymousHome) fs_give ((void **) &anonymousHome);
  184.     anonymousHome = cpystr ((char *) value);
  185.     break;
  186.   case GET_ANONYMOUSHOME:
  187.     value = (void *) anonymousHome;
  188.     break;
  189.   case SET_FTPHOME:
  190.     if (ftpHome) fs_give ((void **) &ftpHome);
  191.     ftpHome = cpystr ((char *) value);
  192.     break;
  193.   case GET_FTPHOME:
  194.     value = (void *) ftpHome;
  195.     break;
  196.   case SET_PUBLICHOME:
  197.     if (publicHome) fs_give ((void **) &publicHome);
  198.     publicHome = cpystr ((char *) value);
  199.     break;
  200.   case GET_PUBLICHOME:
  201.     value = (void *) publicHome;
  202.     break;
  203.   case SET_SHAREDHOME:
  204.     if (sharedHome) fs_give ((void **) &sharedHome);
  205.     sharedHome = cpystr ((char *) value);
  206.     break;
  207.   case GET_SHAREDHOME:
  208.     value = (void *) sharedHome;
  209.     break;
  210.   case SET_SYSINBOX:
  211.     if (sysInbox) fs_give ((void **) &sysInbox);
  212.     sysInbox = cpystr ((char *) value);
  213.     break;
  214.   case GET_SYSINBOX:
  215.     value = (void *) sysInbox;
  216.     break;
  217.   case SET_LISTMAXLEVEL:
  218.     list_max_level = (long) value;
  219.     break;
  220.   case GET_LISTMAXLEVEL:
  221.     value = (void *) list_max_level;
  222.     break;
  224.   case SET_MBXPROTECTION:
  225.     mbx_protection = (long) value;
  226.     break;
  227.   case GET_MBXPROTECTION:
  228.     value = (void *) mbx_protection;
  229.     break;
  230.   case SET_DIRPROTECTION:
  231.     dir_protection = (long) value;
  232.     break;
  233.   case GET_DIRPROTECTION:
  234.     value = (void *) dir_protection;
  235.     break;
  236.   case SET_LOCKPROTECTION:
  237.     lock_protection = (long) value;
  238.     break;
  239.   case GET_LOCKPROTECTION:
  240.     value = (void *) lock_protection;
  241.     break;
  242.   case SET_FTPPROTECTION:
  243.     ftp_protection = (long) value;
  244.     break;
  245.   case GET_FTPPROTECTION:
  246.     value = (void *) ftp_protection;
  247.     break;
  248.   case SET_PUBLICPROTECTION:
  249.     public_protection = (long) value;
  250.     break;
  251.   case GET_PUBLICPROTECTION:
  252.     value = (void *) public_protection;
  253.     break;
  254.   case SET_SHAREDPROTECTION:
  255.     shared_protection = (long) value;
  256.     break;
  257.   case GET_SHAREDPROTECTION:
  258.     value = (void *) shared_protection;
  259.     break;
  260.   case SET_LOCKTIMEOUT:
  261.     locktimeout = (long) value;
  262.     break;
  263.   case GET_LOCKTIMEOUT:
  264.     value = (void *) locktimeout;
  265.     break;
  266.   case SET_DISABLEFCNTLLOCK:
  267.     disableFcntlLock = (long) value;
  268.     break;
  269.   case GET_DISABLEFCNTLLOCK:
  270.     value = (void *) disableFcntlLock;
  271.     break;
  272.   case SET_LOCKEACCESERROR:
  273.     lockEaccesError = (long) value;
  274.     break;
  275.   case GET_LOCKEACCESERROR:
  276.     value = (void *) lockEaccesError;
  277.     break;
  279.   case SET_USERHASNOLIFE:
  280.     has_no_life = value ? T : NIL;
  281.     break;
  282.   case GET_USERHASNOLIFE:
  283.     value = (void *) (has_no_life ? T : NIL);
  284.     break;
  285.   case SET_BLOCKNOTIFY:
  286.     mailblocknotify = (blocknotify_t) value;
  287.   case GET_BLOCKNOTIFY:
  288.     value = (void *) mailblocknotify;
  289.     break;
  290.   default:
  291.     value = NIL; /* error case */
  292.     break;
  293.   }
  294.   return value;
  295. }
  297. /* Write current time
  298.  * Accepts: destination string
  299.  *     optional format of day-of-week prefix
  300.  *     format of date and time
  301.  *     flag whether to append symbolic timezone
  302.  */
  304. static void do_date (char *date,char *prefix,char *fmt,int suffix)
  305. {
  306.   time_t tn = time (0);
  307.   struct tm *t = gmtime (&tn);
  308.   int zone = t->tm_hour * 60 + t->tm_min;
  309.   int julian = t->tm_yday;
  310.   t = localtime (&tn); /* get local time now */
  311. /* minus UTC minutes since midnight */
  312.   zone = t->tm_hour * 60 + t->tm_min - zone;
  313.   /* julian can be one of:
  314.    *  36x  local time is December 31, UTC is January 1, offset -24 hours
  315.    *    1  local time is 1 day ahead of UTC, offset +24 hours
  316.    *    0  local time is same day as UTC, no offset
  317.    *   -1  local time is 1 day behind UTC, offset -24 hours
  318.    * -36x  local time is January 1, UTC is December 31, offset +24 hours
  319.    */
  320.   if (julian = t->tm_yday -julian)
  321.     zone += ((julian < 0) == (abs (julian) == 1)) ? -24*60 : 24*60;
  322.   if (prefix) { /* want day of week? */
  323.     sprintf (date,prefix,days[t->tm_wday]);
  324.     date += strlen (date); /* make next sprintf append */
  325.   }
  326. /* output the date */
  327.   sprintf (date,fmt,t->tm_mday,months[t->tm_mon],t->tm_year+1900,
  328.    t->tm_hour,t->tm_min,t->tm_sec,zone/60,abs (zone) % 60);
  329. /* append timezone suffix if desired */
  330.   if (suffix) rfc822_timezone (date,(void *) t);
  331. }
  333. /* Write current time in RFC 822 format
  334.  * Accepts: destination string
  335.  */
  337. void rfc822_date (char *date)
  338. {
  339.   do_date (date,"%s, ","%d %s %d %02d:%02d:%02d %+03d%02d",T);
  340. }
  343. /* Write current time in fixed-width RFC 822 format
  344.  * Accepts: destination string
  345.  */
  347. void rfc822_fixed_date (char *date)
  348. {
  349.   do_date (date,NIL,"%02d %s %4d %02d:%02d:%02d %+03d%02d",NIL);
  350. }
  353. /* Write current time in internal format
  354.  * Accepts: destination string
  355.  */
  357. void internal_date (char *date)
  358. {
  359.   do_date (date,NIL,"%02d-%s-%d %02d:%02d:%02d %+03d%02d",NIL);
  360. }
  362. /* Initialize server
  363.  * Accepts: server name for syslog or NIL
  364.  *     /etc/services service name or NIL
  365.  *     alternate /etc/services service name or NIL
  366.  *     SASL service name or NIL
  367.  *     clock interrupt handler
  368.  *     kiss-of-death interrupt handler
  369.  *     hangup interrupt handler
  370.  *     termination interrupt handler
  371.  */
  373. void server_init (char *server,char *service,char *altservice,char *sasl,
  374.   void *clkint,void *kodint,void *hupint,void *trmint)
  375. {
  376.   long port;
  377.   struct servent *sv;
  378.   struct sockaddr_in sin;
  379.   int sinlen = sizeof (struct sockaddr_in);
  380.   /* Don't use tcp_clienthost() since reverse DNS problems may slow down the
  381.    * greeting message and cause the client to time out.
  382.    */
  383.   char *client = getpeername (0,(struct sockaddr *) &sin,(void *) &sinlen) ?
  384.     "UNKNOWN" : inet_ntoa (sin.sin_addr);
  385. /* set server name in syslog */
  386.   if (server) openlog (server,LOG_PID,LOG_MAIL);
  387.   if (service && altservice && ((port = tcp_serverport ()) >= 0)) {
  388.     if ((sv = getservbyname (service,"tcp")) && (port == ntohs (sv->s_port)))
  389.       syslog (LOG_DEBUG,"%s service init from %s",service,client);
  390.     else if ((sv = getservbyname (altservice,"tcp")) &&
  391.      (port == ntohs (sv->s_port)))
  392.       syslog (LOG_DEBUG,"%s alternative service init from %s",
  393.       altservice,client);
  394.     else syslog (LOG_DEBUG,"port %ld service init from %s",port,client);
  395.   }
  396. /* set SASL name */
  397.   if (sasl) mail_parameters (NIL,SET_SERVICENAME,(void *) sasl);
  398.   arm_signal (SIGALRM,clkint); /* prepare for clock interrupt */
  399.   arm_signal (SIGUSR2,kodint); /* prepare for Kiss Of Death */
  400.   arm_signal (SIGHUP,hupint); /* prepare for hangup */
  401.   arm_signal (SIGTERM,trmint); /* prepare for termination */
  402. }
  404. /* Wait for stdin input
  405.  * Accepts: timeout in seconds
  406.  * Returns: T if have input on stdin, else NIL
  407.  */
  409. long server_input_wait (long seconds)
  410. {
  411.   fd_set rfd,efd;
  412.   struct timeval tmo;
  413.   FD_ZERO (&rfd);
  414.   FD_ZERO (&efd);
  415.   FD_SET (0,&rfd);
  416.   FD_SET (0,&efd);
  417.   tmo.tv_sec = seconds; tmo.tv_usec = 0;
  418.   return select (1,&rfd,0,&efd,&tmo) ? LONGT : NIL;
  419. }
  421. /* Server log in
  422.  * Accepts: user name string
  423.  *     password string
  424.  *     argument count
  425.  *     argument vector
  426.  * Returns: T if password validated, NIL otherwise
  427.  */
  429. long server_login (char *user,char *pwd,int argc,char *argv[])
  430. {
  431.   char *s,usr[MAILTMPLEN];
  432.   struct passwd *pw;
  433. /* cretins still haven't given up */
  434.   if (strlen (user) >= MAILTMPLEN)
  435.     syslog (LOG_ALERT|LOG_AUTH,"System break-in attempt, host=%.80s",
  436.     tcp_clienthost ());
  437. /* validate with case-independence */
  438.   else if ((logtry > 0) && ((pw = getpwnam (strcpy (usr,user))) ||
  439.     (pw = getpwnam (lcase (usr))))) {
  440.     if (auth_md5.server) { /* if using CRAM-MD5 authentication */
  441.       char *p = auth_md5_pwd (pw->pw_name);
  442.       if (p) { /* verify password */
  443. if (strcmp (p,pwd) && strcmp (p,pwd+1)) pw = NIL;
  444. memset (p,0,strlen (p));/* erase sensitive information */
  445. fs_give ((void **) &p); /* flush erased password */
  446. if (pw) return pw_login (pw,pw->pw_name,pw->pw_dir,argc,argv);
  447.       }
  448.       else syslog (LOG_ERR|LOG_AUTH,
  449.    "Login failed: %s has no CRAM-MD5 password, host=%.80s",
  450.    pw->pw_name,tcp_clienthost ());
  451.     }
  452. /* ordinary password authentication */
  453.     else if ((pw = checkpw (pw,pwd,argc,argv)) ||
  454.      ((*pwd == ' ') && (pw = checkpw (getpwnam(usr),pwd+1,argc,argv))))
  455.       return pw_login (pw,pw->pw_name,pw->pw_dir,argc,argv);
  456.   }
  457.   s = (logtry-- > 0) ? "Login failure" : "Excessive login attempts";
  458. /* note the failure in the syslog */
  459.   syslog (LOG_INFO,"%s user=%.80s host=%.80s",s,user,tcp_clienthost ());
  460.   sleep (3); /* slow down possible cracker */
  461.   return NIL;
  462. }
  464. /* Authenticated server log in
  465.  * Accepts: user name string
  466.  *     argument count
  467.  *     argument vector
  468.  * Returns: T if password validated, NIL otherwise
  469.  */
  471. long authserver_login (char *user,int argc,char *argv[])
  472. {
  473.   struct passwd *pw = getpwnam (user);
  474.   return pw ? pw_login (pw,pw->pw_name,pw->pw_dir,argc,argv) : NIL;
  475. }
  478. /* Log in as anonymous daemon
  479.  * Accepts: argument count
  480.  *     argument vector
  481.  * Returns: T if successful, NIL if error
  482.  */
  484. long anonymous_login (int argc,char *argv[])
  485. {
  486.   struct passwd *pw = getpwnam ((char *) anonymous_user);
  487. /* log in Mr. A. N. Onymous */
  488.   return pw ? pw_login (pw,NIL,NIL,argc,argv) : NIL;
  489. }
  492. /* Finish log in and environment initialization
  493.  * Accepts: passwd struct for loginpw()
  494.  *     user name (NIL for anonymous)
  495.  *     home directory (NIL for anonymous)
  496.  *     argument count
  497.  *     argument vector
  498.  * Returns: T if successful, NIL if error
  499.  */
  501. long pw_login (struct passwd *pw,char *user,char *home,int argc,char *argv[])
  502. {
  503.   long ret = NIL;
  504.   char *u = user ? cpystr (user) : NIL;
  505.   char *h = home ? cpystr (home) : NIL;
  506.   if (pw->pw_uid && ((pw->pw_uid == geteuid ()) || loginpw (pw,argc,argv)) &&
  507.       (ret = env_init (u,h))) chdir (myhomedir ());
  508.   if (h) fs_give ((void **) &h);/* flush temporary home directory */
  509.   if (u) fs_give ((void **) &u);/* flush temporary user name */
  510.   return ret; /* return status */
  511. }
  513. /* Initialize environment
  514.  * Accepts: user name
  515.  *     home directory name
  516.  * Returns: T, always
  517.  */
  519. long env_init (char *user,char *home)
  520. {
  521.   extern MAILSTREAM CREATEPROTO;
  522.   extern MAILSTREAM EMPTYPROTO;
  523.   struct passwd *pw;
  524.   struct stat sbuf;
  525.   char *s,tmp[MAILTMPLEN];
  526.   if (myUserName) fatal ("env_init called twice!");
  527. /* myUserName must be set before dorc() call */
  528.   myUserName = cpystr (user ? user : (char *) anonymous_user);
  529. /* do systemwide configuration */
  530.   dorc ("/etc/c-client.cf",NIL);
  531.   if (!anonymousHome) anonymousHome = cpystr (ANONYMOUSHOME);
  532.   if (user) { /* remember user name and home directory */
  533.     if (blackBoxDir) { /* build black box directory name */
  534.       sprintf (tmp,"%s/%s",blackBoxDir,myUserName);
  535. /* if black box if exists and directory */
  536.       if (s = (!stat (tmp,&sbuf) && (sbuf.st_mode & S_IFDIR)) ?
  537.   tmp : blackBoxDefaultHome) {
  538. sprintf (tmp,"%s/INBOX",myHomeDir = cpystr (s));
  539. sysInbox = cpystr (tmp);/* set black box values in their place */
  540. blackBox = T;
  541. /* mbox meaningless if black box */
  542. mail_parameters (NIL,DISABLE_DRIVER,(void *) "mbox");
  543.       }
  544.     }
  545.     if (blackBox) /* black box? */
  546.       nslist[0] = &nshome,nslist[1] = &nsblackother,nslist[2] = &nsshared;
  547.     else { /* not a black box */
  548.       nslist[0] = &nshome,nslist[1] = &nsunixother,nslist[2] = &nsshared;
  549.       myHomeDir = cpystr (home);/* use real home directory */
  550. /* make sure user rc files don't try this */
  551.       blackBoxDir = blackBoxDefaultHome = "";
  552.     }
  553.   }
  554.   else { /* anonymous user */
  555.     nslist[0] = nslist[1] = NIL,nslist[2] = &nsftp;
  556.     sprintf (tmp,"%s/INBOX",myHomeDir = cpystr (anonymousHome));
  557.     sysInbox = cpystr (tmp); /* make system INBOX */
  558.     anonymous = T; /* flag as anonymous */
  559. /* make sure an error message happens */
  560.     if (!blackBoxDir) blackBoxDir = blackBoxDefaultHome = anonymousHome;
  561.   }
  562.   dorc (strcat (strcpy (tmp,myHomeDir),"/.mminit"),T);
  563.   dorc (strcat (strcpy (tmp,myHomeDir),"/.imaprc"),NIL);
  564.   if (!myLocalHost) mylocalhost ();
  565.   if (!myNewsrc) myNewsrc = cpystr(strcat (strcpy (tmp,myHomeDir),"/.newsrc"));
  566.   if (!newsActive) newsActive = cpystr (ACTIVEFILE);
  567.   if (!newsSpool) newsSpool = cpystr (NEWSSPOOL);
  568.   if (!ftpHome && (pw = getpwnam ("ftp"))) ftpHome = cpystr (pw->pw_dir);
  569.   if (!publicHome && (pw = getpwnam ("imappublic")))
  570.     publicHome = cpystr (pw->pw_dir);
  571.   if (!anonymous && !sharedHome && (pw = getpwnam ("imapshared")))
  572.     sharedHome = cpystr (pw->pw_dir);
  573. /* force default prototype to be set */
  574.   if (!createProto) createProto = &CREATEPROTO;
  575.   if (!appendProto) appendProto = &EMPTYPROTO;
  576. /* re-do open action to get flags */
  577.   (*createProto->dtb->open) (NIL);
  578.   endpwent (); /* close pw database */
  579.   return T;
  580. }
  581.  
  582. /* Return my user name
  583.  * Accepts: pointer to optional flags
  584.  * Returns: my user name
  585.  */
  587. char *myusername_full (unsigned long *flags)
  588. {
  589.   char *ret = (char *) unlogged_user;
  590.   if (!myUserName) { /* get user name if don't have it yet */
  591.     struct passwd *pw;
  592.     unsigned long euid = geteuid ();
  593.     char *s = (char *) (euid ? getlogin () : NIL);
  594. /* look up getlogin() user name or EUID */
  595.     if (!((s && *s && (pw = getpwnam (s)) && (pw->pw_uid == euid)) ||
  596.   (pw = getpwuid (euid)))) fatal ("Unable to look up user name");
  597. /* init environment if not root */
  598.     if (euid) env_init (pw->pw_name,((s=getenv("HOME")) && *s) ? s:pw->pw_dir);
  599.     else ret = pw->pw_name; /* in case UID 0 user is other than root */
  600.   }
  601.   if (myUserName) { /* logged in? */
  602.     if (flags) *flags = anonymous ? MU_ANONYMOUS : MU_LOGGEDIN;
  603.     ret = myUserName; /* return user name */
  604.   }
  605.   else if (flags) *flags = MU_NOTLOGGEDIN;
  606.   return ret;
  607. }
  610. /* Return my local host name
  611.  * Returns: my local host name
  612.  */
  614. char *mylocalhost ()
  615. {
  616.   char tmp[MAILTMPLEN];
  617.   struct hostent *host_name;
  618.   if (!myLocalHost) {
  619.     gethostname(tmp,MAILTMPLEN);/* get local host name */
  620.     myLocalHost = cpystr ((host_name = gethostbyname (tmp)) ?
  621.   host_name->h_name : tmp);
  622.   }
  623.   return myLocalHost;
  624. }
  626. /* Return my home directory name
  627.  * Returns: my home directory name
  628.  */
  630. char *myhomedir ()
  631. {
  632.   if (!myHomeDir) myusername ();/* initialize if first time */
  633.   return myHomeDir ? myHomeDir : "";
  634. }
  637. /* Return system standard INBOX
  638.  * Accepts: buffer string
  639.  */
  641. char *sysinbox ()
  642. {
  643.   char tmp[MAILTMPLEN];
  644.   if (!sysInbox) { /* initialize if first time */
  645.     sprintf (tmp,"%s/%s",MAILSPOOL,myusername ());
  646.     sysInbox = cpystr (tmp); /* system inbox is from mail spool */
  647.   }
  648.   return sysInbox;
  649. }
  652. /* Return mailbox directory name
  653.  * Accepts: destination buffer
  654.  *     directory prefix
  655.  *     name in directory
  656.  * Returns: file name or NIL if error
  657.  */
  659. char *mailboxdir (char *dst,char *dir,char *name)
  660. {
  661.   char tmp[MAILTMPLEN];
  662.   if (dir || name) { /* if either argument provided */
  663.     if (dir) strcpy (tmp,dir); /* write directory prefix */
  664.     else tmp[0] = ''; /* otherwise null string */
  665.     if (name) strcat (tmp,name);/* write name in directory */
  666. /* validate name, return its name */
  667.     if (!mailboxfile (dst,tmp)) return NIL;
  668.   }
  669.   else strcpy (dst,myhomedir());/* no arguments, wants home directory */
  670.   return dst; /* return the name */
  671. }
  673. /* Return mailbox file name
  674.  * Accepts: destination buffer
  675.  *     mailbox name
  676.  * Returns: file name or empty string for driver-selected INBOX or NIL if error
  677.  */
  679. char *mailboxfile (char *dst,char *name)
  680. {
  681.   struct passwd *pw;
  682.   char *dir = myhomedir ();
  683.   *dst = ''; /* default to empty string */
  684. /* check invalid name */
  685.   if (!name || !*name || (*name == '{')) return NIL;
  686. /* check for INBOX */
  687.   if (((name[0] == 'I') || (name[0] == 'i')) &&
  688.       ((name[1] == 'N') || (name[1] == 'n')) &&
  689.       ((name[2] == 'B') || (name[2] == 'b')) &&
  690.       ((name[3] == 'O') || (name[3] == 'o')) &&
  691.       ((name[4] == 'X') || (name[4] == 'x')) && !name[5]) {
  692. /* if restricted, canonicalize name of INBOX */
  693.     if (anonymous || blackBox) name = "INBOX";
  694.     else return dst; /* else driver selects the INBOX name */
  695.   }
  696. /* restricted name? */
  697.   else if ((*name == '#') || anonymous || blackBox) {
  698.     if (strstr (name,"..") || strstr (name,"//") || strstr (name,"/~"))
  699.       return NIL; /* none of these allowed when restricted */
  700.     switch (*name) { /* what kind of restricted name? */
  701.     case '#': /* namespace name */
  702.       if (((name[1] == 'f') || (name[1] == 'F')) &&
  703.   ((name[2] == 't') || (name[2] == 'T')) &&
  704.   ((name[3] == 'p') || (name[3] == 'P')) &&
  705.   (name[4] == '/') && (dir = ftpHome)) name += 5;
  706.       else if (((name[1] == 'p') || (name[1] == 'P')) &&
  707.        ((name[2] == 'u') || (name[2] == 'U')) &&
  708.        ((name[3] == 'b') || (name[3] == 'B')) &&
  709.        ((name[4] == 'l') || (name[4] == 'L')) &&
  710.        ((name[5] == 'i') || (name[5] == 'I')) &&
  711.        ((name[6] == 'c') || (name[6] == 'C')) &&
  712.        (name[7] == '/') && (dir = publicHome)) name += 8;
  713.       else if (!anonymous && ((name[1] == 's') || (name[1] == 'S')) &&
  714.        ((name[2] == 'h') || (name[2] == 'H')) &&
  715.        ((name[3] == 'a') || (name[3] == 'A')) &&
  716.        ((name[4] == 'r') || (name[4] == 'R')) &&
  717.        ((name[5] == 'e') || (name[5] == 'E')) &&
  718.        ((name[6] == 'd') || (name[6] == 'D')) &&
  719.        (name[7] == '/') && (dir = sharedHome)) name += 8;
  720.       else return NIL; /* unknown namespace name */
  721.       break;
  722.     case '/': /* rooted restricted name */
  723.       if (anonymous) return NIL;/* anonymous can't do this */
  724.       dir = blackBoxDir; /* base is black box directory */
  725.       name++; /* skip past delimiter */
  726.       break;
  727.     }
  728.   }
  730. /* absolute path name? */
  731.   else if (*name == '/') return strcpy (dst,name);
  732. /* some home directory? */
  733.   else if ((*name == '~') && *++name) {
  734.     if (*name == '/') name++; /* yes, my home directory? */
  735.     else { /* no, copy user name */
  736.       for (dir = dst; *name && (*name != '/'); *dir++ = *name++);
  737.       *dir++ = ''; /* tie off user name, look up in passwd file */
  738.       if (!((pw = getpwnam (dst)) && (dir = pw->pw_dir))) return NIL;
  739.       if (*name) name++; /* skip past the slash */
  740.     }
  741.   }
  742. /* build resulting name */
  743.   sprintf (dst,"%s/%s",dir,name);
  744.   return dst; /* return it */
  745. }
  747. /* Dot-lock file locker
  748.  * Accepts: file name to lock
  749.  *     destination buffer for lock file name
  750.  *     open file description on file name to lock
  751.  * Returns: T if success, NIL if failure
  752.  */
  754. long dotlock_lock (char *file,DOTLOCK *base,int fd)
  755. {
  756.   int ld,j;
  757.   int i = locktimeout * 60 - 1;
  758.   char *s,hitch[MAILTMPLEN],tmp[MAILTMPLEN];
  759.   time_t t;
  760.   struct stat sb;
  761. /* flush absurd file name */
  762.   if (strlen (file) > 512) return NIL;
  763. /* build lock filename */
  764.   sprintf (base->lock,"%s.lock",file);
  765. /* assume no pipe */
  766.   base->pipei = base->pipeo = -1;
  767. /* until OK or out of tries */
  768.   if (j = chk_notsymlink (base->lock,&sb)) do {
  769.     t = time (0); /* get the time now */
  770. #ifdef NFSKLUDGE
  771.   /* SUN-OS had an NFS, As kludgy as an albatross;
  772.    * And everywhere that it was installed, It was a total loss.
  773.    *  -- MRC 9/25/91
  774.    */
  775. /* time out old locks */
  776.     if ((j > 0) && (t >= (sb.st_ctime + locktimeout * 60))) unlink(base->lock);
  777. /* build hitching post file name */
  778.     sprintf (hitch,"%s.%lu.%d.",base->lock,(unsigned long) time (0),getpid ());
  779.     j = strlen (hitch); /* append local host name */
  780.     gethostname (hitch + j,(MAILTMPLEN - j) - 1);
  781. /* try to get hitching-post file */
  782.     if ((ld = open (hitch,O_WRONLY|O_CREAT|O_EXCL,(int)lock_protection)) >= 0){
  783.       close (ld); /* close the hitching-post */
  784.       link (hitch,base->lock); /* tie hitching-post to lock, ignore failure */
  785. /* success if link count now 2 */
  786.       ld = (!stat (hitch,&sb) && (sb.st_nlink == 2)) ? 0 : -1;
  787.       unlink (hitch); /* flush hitching post */
  788.     }
  789. #else
  790. /* time out old locks */
  791.     if ((j > 0) && (t >= (sb.st_ctime + locktimeout * 60))) {
  792.       unlink (base->lock); /* flush extant old lock */
  793.       j = O_WRONLY | O_CREAT; /* try to grab it for ourselves */
  794.     }
  795.     else j = O_WRONLY | O_CREAT | O_EXCL;
  796. /* try to get the lock */
  797.     if ((ld = open (strcpy (hitch,base->lock),j,(int) lock_protection)) >= 0)
  798.       close (ld); /* close the lock file */
  799. #endif
  801.     else switch (errno) { /* what happened? */
  802.       case EACCES: /* protection fail */
  803. if (stat (hitch,&sb)) { /* file exists, fall into EEXIST case */
  804.   int pi[2],po[2];
  805. /* make command pipes */
  806.   if (!stat (LOCKPGM,&sb) && pipe (pi) >= 0) {
  807.     if (pipe (po) >= 0) {
  808. /* make inferior process */
  809.       if (!(j = fork ())) {
  810. if (!fork ()) { /* make grandchild so it's inherited by init */
  811.   char *argv[4];/* prepare argument vector for */
  812.   sprintf (tmp,"%d",fd);
  813.   argv[0] = LOCKPGM; argv[1] = tmp;
  814.   argv[2] = file; argv[3] = NIL;
  815. /* set parent's I/O to my O/I */
  816.   dup2 (pi[1],1); dup2 (pi[1],2); dup2 (po[0],0);
  817. /* close all unnecessary descriptors */
  818.   for (j = max (20,max (max (pi[0],pi[1]),max (po[0],po[1])));
  819.        j >= 3; --j) if (j != fd) close (j);
  820. /* be our own process group */
  821.   setpgrp (0,getpid ());
  822. /* now run it */
  823.   execv (argv[0],argv);
  824. }
  825. _exit (1); /* child is done */
  826.       }
  827.       else if (j > 0) { /* reap child; grandchild now owned by init */
  828. grim_pid_reap (j,NIL);
  829. /* read response from locking program */
  830. if ((read (pi[0],tmp,1) == 1) && (tmp[0] == '+')) {
  831. /* success, record pipes */
  832.   base->pipei = pi[0]; base->pipeo = po[1];
  833. /* close child's side of the pipes */
  834.   close (pi[1]); close (po[0]);
  835.   return LONGT;
  836. }
  837.       }
  838.       close (po[0]); close (po[1]);
  839.     }
  840.     close (pi[0]); close (pi[1]);
  841.   }
  842.   if (lockEaccesError) {/* punt silently if paranoid site */
  843.     sprintf (tmp,"Mailbox vulnerable - directory %.80s",hitch);
  844.     if (s = strrchr (tmp,'/')) *s = '';
  845.     strcat (tmp," must have 1777 protection");
  846.     mm_log (tmp,WARN);
  847.   }
  848.   base->lock[0] = ''; /* give up on lock file */
  849. }
  851.       case EEXIST: /* file already exists */
  852. break; /* try again */
  853.       default: /* some other failure */
  854. sprintf (tmp,"Mailbox vulnerable - error creating %.80s: %s",
  855.  hitch,strerror (errno));
  856. mm_log (tmp,WARN); /* this is probably not good */
  857. base->lock[0] = ''; /* don't use lock files */
  858. break;
  859.       }
  860. /* if failed to make lock file and retry OK */
  861.     if ((ld < 0) && base->lock) {
  862.       if (!(i%15)) { /* time to notify? */
  863. sprintf (tmp,"Mailbox %.80s is locked, will override in %d seconds...",
  864.  file,i);
  865. mm_log (tmp,WARN);
  866.       }
  867.       sleep (1); /* wait 1 second before next try */
  868.     }
  869.   } while (i-- && (ld < 0) && base->lock[0]);
  870. /* failed if no longer a lock name */
  871.   if (!base->lock[0]) return NIL;
  872. /* make sure others can break the lock */
  873.   chmod (base->lock,(int) lock_protection);
  874.   return LONGT;
  875. }
  878. /* Dot-lock file unlocker
  879.  * Accepts: lock file name
  880.  * Returns: T if success, NIL if failure
  881.  */
  883. long dotlock_unlock (DOTLOCK *base)
  884. {
  885.   long ret = LONGT;
  886.   if (base && base->lock[0]) {
  887.     if (base->pipei >= 0) { /* if running through a pipe unlocker */
  888.       ret = (write (base->pipeo,"+",1) == 1);
  889. /* nuke the pipes */
  890.       close (base->pipei); close (base->pipeo);
  891.     }
  892.     else ret = !unlink (base->lock);
  893.   }
  894.   return ret;
  895. }
  897. /* Lock file name
  898.  * Accepts: scratch buffer
  899.  *     file name
  900.  *     type of locking operation (LOCK_SH or LOCK_EX)
  901.  *     pointer to return PID of locker
  902.  * Returns: file descriptor of lock or negative if error
  903.  */
  905. int lockname (char *lock,char *fname,int op,long *pid)
  906. {
  907.   struct stat sbuf;
  908.   *pid = 0; /* no locker PID */
  909.   return stat (fname,&sbuf) ? -1 : lock_work (lock,&sbuf,op,pid);
  910. }
  913. /* Lock file descriptor
  914.  * Accepts: file descriptor
  915.  *     lock file name buffer
  916.  *     type of locking operation (LOCK_SH or LOCK_EX)
  917.  * Returns: file descriptor of lock or negative if error
  918.  */
  920. int lockfd (int fd,char *lock,int op)
  921. {
  922.   struct stat sbuf;
  923.   return fstat (fd,&sbuf) ? -1 : lock_work (lock,&sbuf,op,NIL);
  924. }
  926. /* Lock file name worker
  927.  * Accepts: lock file name
  928.  *     pointer to stat() buffer
  929.  *     type of locking operation (LOCK_SH or LOCK_EX)
  930.  *     pointer to return PID of locker
  931.  * Returns: file descriptor of lock or negative if error
  932.  */
  934. int lock_work (char *lock,void *sb,int op,long *pid)
  935. {
  936.   struct stat lsb,fsb;
  937.   struct stat *sbuf = sb;
  938.   char tmp[MAILTMPLEN];
  939.   long i;
  940.   int fd;
  941.   if (pid) *pid = 0; /* initialize return PID */
  942. /* make temporary lock file name */
  943.   sprintf (lock,"/tmp/.%lx.%lx",(unsigned long) sbuf->st_dev,
  944.    (unsigned long) sbuf->st_ino);
  945.   while (T) { /* until get a good lock */
  946.     do switch ((int) chk_notsymlink (lock,&lsb)) {
  947.     case 1: /* exists just once */
  948.       if (((fd = open (lock,O_RDWR,lock_protection)) >= 0) ||
  949.   (errno != ENOENT) || (chk_notsymlink (lock,&lsb) >= 0)) break;
  950.     case -1: /* name doesn't exist */
  951.       fd = open (lock,O_RDWR|O_CREAT|O_EXCL,lock_protection);
  952.       break;
  953.     default: /* multiple hard links */
  954.       mm_log ("hard link to lock name",ERROR);
  955.       syslog (LOG_CRIT,"SECURITY PROBLEM: hard link to lock name: %.80s",lock);
  956.     case 0: /* symlink (already did syslog) */
  957.       return -1; /* fail: no lock file */
  958.     } while ((fd < 0) && (errno == EEXIST));
  959.     if (fd < 0) { /* failed to get file descriptor */
  960.       syslog (LOG_INFO,"Mailbox lock file %s open failure: %s",lock,
  961.       strerror (errno));
  962.       return -1; /* fail: can't open lock file */
  963.     }
  964. /* non-blocking form */
  965.     if (op & LOCK_NB) i = flock (fd,op);
  966.     else { /* blocking form */
  967.       (*mailblocknotify) (BLOCK_FILELOCK,NIL);
  968.       i = flock (fd,op);
  969.       (*mailblocknotify) (BLOCK_NONE,NIL);
  970.     }
  971.     if (i) { /* failed, get other process' PID */
  972.       if (pid && !fstat (fd,&fsb) && (i = min (fsb.st_size,MAILTMPLEN-1)) &&
  973.   (read (fd,tmp,i) == i) && !(tmp[i] = 0) && ((i = atol (tmp)) > 0))
  974. *pid = i;
  975.       close (fd); /* failed, give up on lock */
  976.       return -1; /* fail: can't lock */
  977.     }
  978. /* make sure this lock is good for us */
  979.     if (!lstat (lock,&lsb) && ((lsb.st_mode & S_IFMT) != S_IFLNK) &&
  980. !fstat (fd,&fsb) && (lsb.st_dev == fsb.st_dev) &&
  981. (lsb.st_ino == fsb.st_ino) && (fsb.st_nlink == 1)) break;
  982.     close (fd); /* lock not right, drop fd and try again */
  983.   }
  984. /* make sure mode OK (don't use fchmod()) */
  985.   chmod (lock,(int) lock_protection);
  986.   return fd; /* success */
  987. }
  989. /* Check to make sure not a symlink
  990.  * Accepts: file name
  991.  *     stat buffer
  992.  * Returns: -1 if doesn't exist, NIL if symlink, else number of hard links
  993.  */
  995. long chk_notsymlink (char *name,void *sb)
  996. {
  997.   struct stat *sbuf = sb;
  998. /* name exists? */
  999.   if (lstat (name,sbuf)) return -1;
  1000. /* forbid symbolic link */
  1001.   if ((sbuf->st_mode & S_IFMT) == S_IFLNK) {
  1002.     mm_log ("symbolic link on lock name",ERROR);
  1003.     syslog (LOG_CRIT,"SECURITY PROBLEM: symbolic link on lock name: %.80s",
  1004.     name);
  1005.     return NIL;
  1006.   }
  1007.   return (long) sbuf->st_nlink; /* return number of hard links */
  1008. }
  1011. /* Unlock file descriptor
  1012.  * Accepts: file descriptor
  1013.  *     lock file name from lockfd()
  1014.  */
  1016. void unlockfd (int fd,char *lock)
  1017. {
  1018. /* delete the file if no sharers */
  1019.   if (!flock (fd,LOCK_EX|LOCK_NB)) unlink (lock);
  1020.   flock (fd,LOCK_UN); /* unlock it */
  1021.   close (fd); /* close it */
  1022. }
  1024. /* Set proper file protection for mailbox
  1025.  * Accepts: mailbox name
  1026.  *     actual file path name
  1027.  * Returns: T, always
  1028.  */
  1030. long set_mbx_protections (char *mailbox,char *path)
  1031. {
  1032.   struct stat sbuf;
  1033.   int mode = (int) mbx_protection;
  1034.   if (*mailbox == '#') { /* possible namespace? */
  1035.       if (((mailbox[1] == 'f') || (mailbox[1] == 'F')) &&
  1036.   ((mailbox[2] == 't') || (mailbox[2] == 'T')) &&
  1037.   ((mailbox[3] == 'p') || (mailbox[3] == 'P')) &&
  1038.   (mailbox[4] == '/')) mode = (int) ftp_protection;
  1039.       else if (((mailbox[1] == 'p') || (mailbox[1] == 'P')) &&
  1040.        ((mailbox[2] == 'u') || (mailbox[2] == 'U')) &&
  1041.        ((mailbox[3] == 'b') || (mailbox[3] == 'B')) &&
  1042.        ((mailbox[4] == 'l') || (mailbox[4] == 'L')) &&
  1043.        ((mailbox[5] == 'i') || (mailbox[5] == 'I')) &&
  1044.        ((mailbox[6] == 'c') || (mailbox[6] == 'C')) &&
  1045.        (mailbox[7] == '/')) mode = (int) public_protection;
  1046.       else if (((mailbox[1] == 's') || (mailbox[1] == 'S')) &&
  1047.        ((mailbox[2] == 'h') || (mailbox[2] == 'H')) &&
  1048.        ((mailbox[3] == 'a') || (mailbox[3] == 'A')) &&
  1049.        ((mailbox[4] == 'r') || (mailbox[4] == 'R')) &&
  1050.        ((mailbox[5] == 'e') || (mailbox[5] == 'E')) &&
  1051.        ((mailbox[6] == 'd') || (mailbox[6] == 'D')) &&
  1052.        (mailbox[7] == '/')) mode = (int) shared_protection;
  1053.   }
  1054. /* if a directory */
  1055.   if (!stat (path,&sbuf) && ((sbuf.st_mode & S_IFMT) == S_IFDIR)) {
  1056. /* set owner search if allow read or write */
  1057.     if (mode & 0600) mode |= 0100;
  1058.     if (mode & 060) mode |= 010;/* set group search if allow read or write */
  1059.     if (mode & 06) mode |= 01; /* set world search if allow read or write */
  1060.   }
  1061.   chmod (path,mode); /* set the new protection, ignore failure */
  1062.   return LONGT;
  1063. }
  1065. /* Determine default prototype stream to user
  1066.  * Accepts: type (NIL for create, T for append)
  1067.  * Returns: default prototype stream
  1068.  */
  1070. MAILSTREAM *default_proto (long type)
  1071. {
  1072.   myusername (); /* make sure initialized */
  1073. /* return default driver's prototype */
  1074.   return type ? appendProto : createProto;
  1075. }
  1078. /* Set up user flags for stream
  1079.  * Accepts: MAIL stream
  1080.  * Returns: MAIL stream with user flags set up
  1081.  */
  1083. MAILSTREAM *user_flags (MAILSTREAM *stream)
  1084. {
  1085.   int i;
  1086.   myusername (); /* make sure initialized */
  1087.   for (i = 0; i < NUSERFLAGS && userFlags[i]; ++i)
  1088.     if (!stream->user_flags[i]) stream->user_flags[i] = cpystr (userFlags[i]);
  1089.   return stream;
  1090. }
  1093. /* Return nth user flag
  1094.  * Accepts: user flag number
  1095.  * Returns: flag
  1096.  */
  1098. char *default_user_flag (unsigned long i)
  1099. {
  1100.   myusername (); /* make sure initialized */
  1101.   return userFlags[i];
  1102. }
  1104. /* Process rc file
  1105.  * Accepts: file name
  1106.  *     .mminit flag
  1107.  * Don't even think of using this feature.
  1108.  */
  1110. void dorc (char *file,long flag)
  1111. {
  1112.   int i;
  1113.   char *s,*t,*k,tmp[MAILTMPLEN],tmpx[MAILTMPLEN];
  1114.   extern MAILSTREAM CREATEPROTO;
  1115.   extern MAILSTREAM EMPTYPROTO;
  1116.   DRIVER *d;
  1117.   FILE *f = fopen (file,"r");
  1118. /* no file or ill-advised usage */
  1119.   if (!(f && (s = fgets (tmp,MAILTMPLEN,f)) && (t = strchr (s,'n')) &&
  1120. (flag ||
  1121.  (!strcmp (s,"I accept the risk for IMAP toolkit 4.1.n") &&
  1122.   (s = fgets (tmp,MAILTMPLEN,f)) && (t = strchr (s,'n')))))) return;
  1123.   do {
  1124.     *t++ = ''; /* tie off line, find second space */
  1125.     if ((k = strchr (s,' ')) && (k = strchr (++k,' '))) {
  1126.       *k++ = ''; /* tie off two words*/
  1127.       lcase (s); /* make case-independent */
  1128.       if (!(userFlags[0] || strcmp (s,"set keywords"))) {
  1129. k = strtok (k,", "); /* yes, get first keyword */
  1130. /* copy keyword list */
  1131. for (i = 0; k && i < NUSERFLAGS; ++i) {
  1132.   if (userFlags[i]) fs_give ((void **) &userFlags[i]);
  1133.   userFlags[i] = cpystr (k);
  1134.   k = strtok (NIL,", ");
  1135. }
  1136.       }
  1137.       else if (!flag) { /* none of these valid in .mminit */
  1139. if (!(createProto || strcmp (s,"set new-folder-format"))) {
  1140.   if (!strcmp (lcase (k),"same-as-inbox"))
  1141.     createProto = ((d = mail_valid (NIL,"INBOX",NIL)) &&
  1142.     strcmp (d->name,"dummy")) ?
  1143.       ((*d->open) (NIL)) : &CREATEPROTO;
  1144.   else if (!strcmp (k,"system-standard")) createProto = &CREATEPROTO;
  1145.   else { /* see if a driver name */
  1146.     for (d = (DRIVER *) mail_parameters (NIL,GET_DRIVERS,NIL);
  1147.  d && strcmp (d->name,k); d = d->next);
  1148.     if (d) createProto = (*d->open) (NIL);
  1149.     else { /* duh... */
  1150.       sprintf (tmpx,"Unknown new folder format in %s: %s",file,k);
  1151.       mm_log (tmpx,WARN);
  1152.     }
  1153.   }
  1154. }
  1155. if (!(appendProto || strcmp (s,"set empty-folder-format"))) {
  1156.   if (!strcmp (lcase (k),"same-as-inbox"))
  1157.     appendProto = ((d = mail_valid (NIL,"INBOX",NIL)) &&
  1158.     strcmp (d->name,"dummy")) ?
  1159.       ((*d->open) (NIL)) : &EMPTYPROTO;
  1160.   else if (!strcmp (k,"system-standard")) appendProto = &EMPTYPROTO;
  1161.   else { /* see if a driver name */
  1162.     for (d = (DRIVER *) mail_parameters (NIL,GET_DRIVERS,NIL);
  1163.  d && strcmp (d->name,k); d = d->next);
  1164.     if (d) appendProto = (*d->open) (NIL);
  1165.     else { /* duh... */
  1166.       sprintf (tmpx,"Unknown empty folder format in %s: %s",file,k);
  1167.       mm_log (tmpx,WARN);
  1168.     }
  1169.   }
  1170. }
  1171. else if (!strcmp (s,"set from-widget"))
  1172.   mail_parameters (NIL,SET_FROMWIDGET,strcmp (lcase (k),"header-only")
  1173.    ? (void *) T : NIL);
  1174. else if (!strcmp (s,"set black-box-directory")) {
  1175.   if (blackBoxDir) /* users aren't allowed to do this */
  1176.     mm_log ("Can't set black-box-directory in user init",ERROR);
  1177.   else blackBoxDir = cpystr (k);
  1178. }
  1179. else if (!strcmp (s,"set black-box-default-home-directory")) {
  1180.   if (!blackBoxDir)
  1181.     mm_log ("Must set black-box-directory before default-home",ERROR);
  1182.   else if (blackBoxDefaultHome)
  1183.     mm_log ("Can't set black-box-default-home-directory in user init",
  1184.     ERROR);
  1185.   else blackBoxDefaultHome = cpystr (k);
  1186. }
  1188. else if (!strcmp (s,"set local-host")) {
  1189.   fs_give ((void **) &myLocalHost);
  1190.   myLocalHost = cpystr (k);
  1191. }
  1192. else if (!strcmp (s,"set news-active-file")) {
  1193.   fs_give ((void **) &newsActive);
  1194.   newsActive = cpystr (k);
  1195. }
  1196. else if (!strcmp (s,"set news-spool-directory")) {
  1197.   fs_give ((void **) &newsSpool);
  1198.   newsSpool = cpystr (k);
  1199. }
  1200. else if (!strcmp (s,"set news-state-file")) {
  1201.   fs_give ((void **) &myNewsrc);
  1202.   myNewsrc = cpystr (k);
  1203. }
  1204. else if (!strcmp (s,"set anonymous-home-directory")) {
  1205.   fs_give ((void **) &anonymousHome);
  1206.   anonymousHome = cpystr (k);
  1207. }
  1208. else if (!strcmp (s,"set ftp-export-directory")) {
  1209.   fs_give ((void **) &ftpHome);
  1210.   ftpHome = cpystr (k);
  1211. }
  1212. else if (!strcmp (s,"set public-home-directory")) {
  1213.   fs_give ((void **) &publicHome);
  1214.   publicHome = cpystr (k);
  1215. }
  1216. else if (!strcmp (s,"set shared-home-directory")) {
  1217.   fs_give ((void **) &sharedHome);
  1218.   sharedHome = cpystr (k);
  1219. }
  1220. else if (!strcmp (s,"set system-inbox")) {
  1221.   fs_give ((void **) &sysInbox);
  1222.   sysInbox = cpystr (k);
  1223. }
  1224. else if (!strcmp (s,"set rsh-command"))
  1225.   mail_parameters (NIL,SET_RSHCOMMAND,(void *) k);
  1226. else if (!strcmp (s,"set rsh-path"))
  1227.   mail_parameters (NIL,SET_RSHPATH,(void *) k);
  1229. else if (!strcmp (s,"set tcp-open-timeout"))
  1230.   mail_parameters (NIL,SET_OPENTIMEOUT,(void *) atol (k));
  1231. else if (!strcmp (s,"set tcp-read-timeout"))
  1232.   mail_parameters (NIL,SET_READTIMEOUT,(void *) atol (k));
  1233. else if (!strcmp (s,"set tcp-write-timeout"))
  1234.   mail_parameters (NIL,SET_WRITETIMEOUT,(void *) atol (k));
  1235. else if (!strcmp (s,"set rsh-timeout"))
  1236.   mail_parameters (NIL,SET_RSHTIMEOUT,(void *) atol (k));
  1237. else if (!strcmp (s,"set maximum-login-trials"))
  1238.   mail_parameters (NIL,SET_MAXLOGINTRIALS,(void *) atol (k));
  1239. else if (!strcmp (s,"set lookahead"))
  1240.   mail_parameters (NIL,SET_LOOKAHEAD,(void *) atol (k));
  1241. else if (!strcmp (s,"set prefetch"))
  1242.   mail_parameters (NIL,SET_PREFETCH,(void *) atol (k));
  1243. else if (!strcmp (s,"set close-on-error"))
  1244.   mail_parameters (NIL,SET_CLOSEONERROR,(void *) atol (k));
  1245. else if (!strcmp (s,"set imap-port"))
  1246.   mail_parameters (NIL,SET_IMAPPORT,(void *) atol (k));
  1247. else if (!strcmp (s,"set pop3-port"))
  1248.   mail_parameters (NIL,SET_POP3PORT,(void *) atol (k));
  1249. else if (!strcmp (s,"set uid-lookahead"))
  1250.   mail_parameters (NIL,SET_UIDLOOKAHEAD,(void *) atol (k));
  1251. else if (!strcmp (s,"set mailbox-protection"))
  1252.   mbx_protection = atol (k);
  1253. else if (!strcmp (s,"set directory-protection"))
  1254.   dir_protection = atol (k);
  1255. else if (!strcmp (s,"set lock-protection"))
  1256.   lock_protection = atol (k);
  1257. else if (!strcmp (s,"set ftp-protection"))
  1258.   ftp_protection = atol (k);
  1259. else if (!strcmp (s,"set public-protection"))
  1260.   public_protection = atol (k);
  1261. else if (!strcmp (s,"set shared-protection"))
  1262.   shared_protection = atol (k);
  1263. else if (!strcmp (s,"set dot-lock-file-timeout"))
  1264.   locktimeout = atol (k);
  1265. else if (!strcmp (s,"set disable-fcntl-locking"))
  1266.   disableFcntlLock = atol (k);
  1267. else if (!strcmp (s,"set lock-eacces-error"))
  1268.   lockEaccesError = atol (k);
  1269. else if (!strcmp (s,"set list-maximum-level"))
  1270.   list_max_level = atol (k);
  1271. else if (!strcmp (s,"set allowed-login-attempts"))
  1272.   logtry = atoi (k);
  1273. else if (!strcmp (s,"set try-alt-driver-first"))
  1274.   mail_parameters (NIL,SET_TRYALTFIRST,(void *) atol (k));
  1275. else if (!strcmp (s,"set allow-reverse-dns"))
  1276.   mail_parameters (NIL,SET_ALLOWREVERSEDNS,(void *) atol (k));
  1277.       }
  1278.     }
  1279.   }
  1280.   while ((s = fgets (tmp,MAILTMPLEN,f)) && (t = strchr (s,'n')));
  1281.   fclose (f); /* flush the file */
  1282. }
  1284. /* INBOX create function for tmail/dmail use only
  1285.  * Accepts: mail stream
  1286.  *     path name buffer, preloaded with driver-dependent path
  1287.  * Returns: T on success, NIL on failure
  1288.  *
  1289.  * This routine is evil and a truly incredible kludge.  It is private for
  1290.  * tmail/dmail and is not supported for any other application.
  1291.  */
  1293. long path_create (MAILSTREAM *stream,char *path)
  1294. {
  1295.   long ret;
  1296. /* do the easy thing if not a black box */
  1297.   if (!blackBox) return mail_create (stream,path);
  1298. /* toss out driver dependent names */
  1299.   printf (path,"%s/INBOX",myhomedir ());
  1300.   blackBox = NIL; /* well that's evil - evil is going on */
  1301.   ret = mail_create (stream,path);
  1302.   blackBox = T; /* restore the box */
  1303.   return ret;
  1304. }
  1306. /* Default block notify routine
  1307.  * Accepts: reason for calling
  1308.  *     data
  1309.  * Returns: data
  1310.  */
  1312. void *mm_blocknotify (int reason,void *data)
  1313. {
  1314.   void *ret = data;
  1315.   switch (reason) {
  1316.   case BLOCK_SENSITIVE: /* entering sensitive code */
  1317.     data = (void *) max (alarm (0),1);
  1318.     break;
  1319.   case BLOCK_NONSENSITIVE: /* exiting sensitive code */
  1320.     if ((unsigned int) data) alarm ((unsigned int) data);
  1321.     break;
  1322.   default: /* ignore all other reasons */
  1323.     break;
  1324.   }
  1325.   return ret;
  1326. }