user/vixie-cron/compat.c

   1 /* Copyright 1988,1990,1993,1994 by Paul Vixie
   2  * All rights reserved
   3  *
   4  * Distribute freely, except: don't remove my name from the source or
   5  * documentation (don't take credit for my work), mark your changes (don't
   6  * get me blamed for your possible bugs), don't alter or remove this
   7  * notice.  May be sold if buildable source is provided to buyer.  No
   8  * warrantee of any kind, express or implied, is included with this
   9  * software; use at your own risk, responsibility for damages (if any) to
  10  * anyone resulting from the use of this software rests entirely with the
  11  * user.
  12  *
  13  * Send bug reports, bug fixes, enhancements, requests, flames, etc., and
  14  * I'll try to keep a version up to date.  I can be reached as follows:
  15  * Paul Vixie          <paul@vix.com>          uunet!decwrl!vixie!paul
  16  */
  17
  18 #if !defined(lint) && !defined(LINT)
  19 static char rcsid[] = "$Id: compat.c,v 1.6 1994/01/15 20:43:43 vixie Exp $";
  20 #endif
  21
  22 /* vix 30dec93 [broke this out of misc.c - see RCS log for history]
  23  * vix 15jan87 [added TIOCNOTTY, thanks csg@pyramid]
  24  */
  25
  26
  27 #include "cron.h"
  28 #ifdef NEED_GETDTABLESIZE
  29 # include <limits.h>
  30 #endif
  31 #if defined(NEED_SETSID) && defined(BSD)
  32 # include <sys/ioctl.h>
  33 #endif
  34 #include <errno.h>
  35
  36
  37 /* the code does not depend on any of vfork's
  38  * side-effects; it just uses it as a quick
  39  * fork-and-exec.
  40  */
  41 #ifdef NEED_VFORK
  42 PID_T
  43 vfork() {
  44         return (fork());
  45 }
  46 #endif
  47
  48
  49 #ifdef NEED_STRDUP
  50 char *
  51 strdup(str)
  52         char    *str;
  53 {
  54         char    *temp;
  55
  56         temp = malloc(strlen(str) + 1);
  57         (void) strcpy(temp, str);
  58         return temp;
  59 }
  60 #endif
  61
  62
  63 #ifdef NEED_STRERROR
  64 char *
  65 strerror(error)
  66         int error;
  67 {
  68         extern char *sys_errlist[];
  69         extern int sys_nerr;
  70         static char buf[32];
  71
  72         if ((error <= sys_nerr) && (error > 0)) {
  73                 return sys_errlist[error];
  74         }
  75
  76         sprintf(buf, "Unknown error: %d", error);
  77         return buf;
  78 }
  79 #endif
  80
  81
  82 #ifdef NEED_STRCASECMP
  83 int
  84 strcasecmp(left, right)
  85         char    *left;
  86         char    *right;
  87 {
  88         while (*left && (MkLower(*left) == MkLower(*right))) {
  89                 left++;
  90                 right++;
  91         }
  92         return MkLower(*left) - MkLower(*right);
  93 }
  94 #endif
  95
  96
  97 #ifdef NEED_SETSID
  98 int
  99 setsid()
 100 {
 101         int     newpgrp;
 102 # if defined(BSD)
 103         int     fd;
 104 #  if defined(POSIX)
 105         newpgrp = setpgid((pid_t)0, getpid());
 106 #  else
 107         newpgrp = setpgrp(0, getpid());
 108 #  endif
 109         if ((fd = open("/dev/tty", 2)) >= 0)
 110         {
 111                 (void) ioctl(fd, TIOCNOTTY, (char*)0);
 112                 (void) close(fd);
 113         }
 114 # else /*BSD*/
 115         newpgrp = setpgrp();
 116
 117         (void) close(STDIN);    (void) open("/dev/null", 0);
 118         (void) close(STDOUT);   (void) open("/dev/null", 1);
 119         (void) close(STDERR);   (void) open("/dev/null", 2);
 120 # endif /*BSD*/
 121         return newpgrp;
 122 }
 123 #endif /*NEED_SETSID*/
 124
 125
 126 #ifdef NEED_GETDTABLESIZE
 127 int
 128 getdtablesize() {
 129 #ifdef _SC_OPEN_MAX
 130         return sysconf(_SC_OPEN_MAX);
 131 #else
 132         return _POSIX_OPEN_MAX;
 133 #endif
 134 }
 135 #endif
 136
 137
 138 #ifdef NEED_FLOCK
 139 /* The following flock() emulation snarfed intact *) from the HP-UX
 140  * "BSD to HP-UX porting tricks" maintained by
 141  * system@alchemy.chem.utoronto.ca (System Admin (Mike Peterson))
 142  * from the version "last updated: 11-Jan-1993"
 143  * Snarfage done by Jarkko Hietaniemi <Jarkko.Hietaniemi@hut.fi>
 144  * *) well, almost, had to K&R the function entry, HPUX "cc"
 145  * does not grok ANSI function prototypes */
 146
 147 /*
 148  * flock (fd, operation)
 149  *
 150  * This routine performs some file locking like the BSD 'flock'
 151  * on the object described by the int file descriptor 'fd',
 152  * which must already be open.
 153  *
 154  * The operations that are available are:
 155  *
 156  * LOCK_SH  -  get a shared lock.
 157  * LOCK_EX  -  get an exclusive lock.
 158  * LOCK_NB  -  don't block (must be ORed with LOCK_SH or LOCK_EX).
 159  * LOCK_UN  -  release a lock.
 160  *
 161  * Return value: 0 if lock successful, -1 if failed.
 162  *
 163  * Note that whether the locks are enforced or advisory is
 164  * controlled by the presence or absence of the SETGID bit on
 165  * the executable.
 166  *
 167  * Note that there is no difference between shared and exclusive
 168  * locks, since the 'lockf' system call in SYSV doesn't make any
 169  * distinction.
 170  *
 171  * The file "<sys/file.h>" should be modified to contain the definitions
 172  * of the available operations, which must be added manually (see below
 173  * for the values).
 174  */
 175
 176 /* this code has been reformatted by vixie */
 177
 178 int
 179 flock(fd, operation)
 180         int fd;
 181         int operation;
 182 {
 183         int i;
 184
 185         switch (operation) {
 186         case LOCK_SH:           /* get a shared lock */
 187         case LOCK_EX:           /* get an exclusive lock */
 188                 i = lockf (fd, F_LOCK, 0);
 189                 break;
 190
 191         case LOCK_SH|LOCK_NB:   /* get a non-blocking shared lock */
 192         case LOCK_EX|LOCK_NB:   /* get a non-blocking exclusive lock */
 193                 i = lockf (fd, F_TLOCK, 0);
 194                 if (i == -1)
 195                         if ((errno == EAGAIN) || (errno == EACCES))
 196                                 errno = EWOULDBLOCK;
 197                 break;
 198
 199         case LOCK_UN:           /* unlock */
 200                 i = lockf (fd, F_ULOCK, 0);
 201                 break;
 202
 203         default:                /* can't decipher operation */
 204                 i = -1;
 205                 errno = EINVAL;
 206                 break;
 207         }
 208
 209         return (i);
 210 }
 211 #endif /*NEED_FLOCK*/
 212
 213
 214 #ifdef NEED_SETENV
 215 int
 216 setenv(name, value, overwrite)
 217         char *name, *value;
 218         int overwrite;
 219 {
 220         char *tmp;
 221
 222         if (overwrite && getenv(name))
 223                 return -1;
 224
 225         if (!(tmp = malloc(strlen(name) + strlen(value) + 2))) {
 226                 errno = ENOMEM;
 227                 return -1;
 228         }
 229
 230         sprintf("%s=%s", name, value);
 231         return putenv(tmp);     /* intentionally orphan 'tmp' storage */
 232 }
 233 #endif