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

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

网络编程

开发平台：

Unix_Linux

env_vms.c：源码内容
  1. /*
  2.  * Program: VMS 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: 2 August 1994
  13.  * Last Edited: 28 September 1998
  14.  *
  15.  * Copyright 1998 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.  */
  37. static char *myUserName = NIL; /* user name */
  38. static char *myLocalHost = NIL; /* local host name */
  39. static char *myHomeDir = NIL; /* home directory name */
  40. static char *myNewsrc = NIL; /* newsrc file name */
  42. /* Environment manipulate parameters
  43.  * Accepts: function code
  44.  *     function-dependent value
  45.  * Returns: function-dependent return value
  46.  */
  48. void *env_parameters (long function,void *value)
  49. {
  50.   switch ((int) function) {
  51.   case SET_USERNAME:
  52.     myUserName = cpystr ((char *) value);
  53.     break;
  54.   case GET_USERNAME:
  55.     value = (void *) myUserName;
  56.     break;
  57.   case SET_HOMEDIR:
  58.     myHomeDir = cpystr ((char *) value);
  59.     break;
  60.   case GET_HOMEDIR:
  61.     value = (void *) myHomeDir;
  62.     break;
  63.   case SET_LOCALHOST:
  64.     myLocalHost = cpystr ((char *) value);
  65.     break;
  66.   case GET_LOCALHOST:
  67.     value = (void *) myLocalHost;
  68.     break;
  69.   case SET_NEWSRC:
  70.     if (myNewsrc) fs_give ((void **) &myNewsrc);
  71.     myNewsrc = cpystr ((char *) value);
  72.     break;
  73.   case GET_NEWSRC:
  74.     if (!myNewsrc) { /* set news file name if not defined */
  75.       char tmp[MAILTMPLEN];
  76.       sprintf (tmp,"%s:.newsrc",myhomedir ());
  77.       myNewsrc = cpystr (tmp);
  78.     }
  79.     value = (void *) myNewsrc;
  80.     break;
  81.   default:
  82.     value = NIL; /* error case */
  83.     break;
  84.   }
  85.   return value;
  86. }
  87.  
  88. /* Write current time
  89.  * Accepts: destination string
  90.  *     optional format of day-of-week prefix
  91.  *     format of date and time
  92.  */
  94. static void do_date (char *date,char *prefix,char *fmt)
  95. {
  96.   time_t tn = time (0);
  97.   struct tm *t = localtime (&tn);
  98.   int zone = LOCALTIMEZONE + (t->tm_isdst ? 60 : 0);
  99.   if (prefix) { /* want day of week? */
  100.     sprintf (date,prefix,days[t->tm_wday]);
  101.     date += strlen (date); /* make next sprintf append */
  102.   }
  103. /* output the date */
  104.   sprintf (date,fmt,t->tm_mday,months[t->tm_mon],t->tm_year+1900,
  105.    t->tm_hour,t->tm_min,t->tm_sec,zone/60,abs (zone) % 60);
  106. }
  109. /* Write current time in RFC 822 format
  110.  * Accepts: destination string
  111.  */
  113. void rfc822_date (char *date)
  114. {
  115.   do_date (date,"%s, ","%d %s %d %02d:%02d:%02d %+03d%02d");
  116. }
  119. /* Write current time in internal format
  120.  * Accepts: destination string
  121.  */
  123. void internal_date (char *date)
  124. {
  125.   do_date (date,NIL,"%02d-%s-%d %02d:%02d:%02d %+03d%02d");
  126. }
  128. /* Return my user name
  129.  * Returns: my user name
  130.  */
  132. char *myusername ()
  133. {
  134.   struct stat sbuf;
  135.   char tmp[MAILTMPLEN];
  137.   if (!myUserName) { /* get user name if don't have it yet */
  138.     myUserName = cpystr (cuserid (NIL));
  139.     myHomeDir = cpystr ("SYS$LOGIN");
  140.   }
  141.   return myUserName;
  142. }
  145. /* Return my home directory name
  146.  * Returns: my home directory name
  147.  */
  149. char *myhomedir ()
  150. {
  151.   if (!myHomeDir) myusername ();/* initialize if first time */
  152.   return myHomeDir;
  153. }
  156. /* Determine default prototype stream to user
  157.  * Accepts: type (NIL for create, T for append)
  158.  * Returns: default prototype stream
  159.  */
  161. MAILSTREAM *default_proto (long type)
  162. {
  163.   return NIL; /* no default prototype */
  164. }
  166. /* Emulator for BSD syslog() routine
  167.  * Accepts: priority
  168.  *     message
  169.  *     parameters
  170.  */
  172. void syslog (int priority,const char *message,...)
  173. {
  174. }
  177. /* Emulator for BSD openlog() routine
  178.  * Accepts: identity
  179.  *     options
  180.  *     facility
  181.  */
  183. void openlog (const char *ident,int logopt,int facility)
  184. {
  185. }