* Copyright (c) 1983 Eric P. Allman
* Copyright (c) 1988, 1993
* The Regents of the University of California. All rights reserved.
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
static char sccsid
[] = "@(#)util.c 8.3 (Berkeley) 7/13/93";
** STRIPQUOTES -- Strip quotes & quote bits from a string.
** Runs through a string and strips off unquoted quote
** characters and quote bits. This is done in place.
** s -- the string to strip.
** XALLOC -- Allocate memory and bitch wildly on failure.
** THIS IS A CLUDGE. This should be made to give a proper
** error -- but after all, what can we do?
** sz -- size of area to allocate.
** pointer to data region.
p
= malloc((unsigned) sz
);
syserr("Out of memory!!");
/* exit(EX_UNAVAILABLE); */
** COPYPLIST -- copy list of pointers.
** This routine is the equivalent of newstr for lists of
** list -- list of pointers to copy.
** Must be NULL terminated.
** copycont -- if TRUE, copy the contents of the vector
** (which must be a string) also.
copyplist(list
, copycont
)
for (vp
= list
; *vp
!= NULL
; vp
++)
newvp
= (char **) xalloc((int) (vp
- list
) * sizeof *vp
);
bcopy((char *) list
, (char *) newvp
, (int) (vp
- list
) * sizeof *vp
);
for (vp
= newvp
; *vp
!= NULL
; vp
++)
** COPYQUEUE -- copy address queue.
** This routine is the equivalent of newstr for address queues
** addresses marked with QDONTSEND aren't copied
** addr -- list of address structures to copy.
register ADDRESS
*newaddr
;
register ADDRESS
**tail
= &ret
;
if (!bitset(QDONTSEND
, addr
->q_flags
))
newaddr
= (ADDRESS
*) xalloc(sizeof(ADDRESS
));
STRUCTCOPY(*addr
, *newaddr
);
** PRINTAV -- print argument vector.
** av -- argument vector.
printf("\n\t%08x=", *av
);
** LOWER -- turn letter into lower case.
** c -- character to turn into lower case.
return((isascii(c
) && isupper(c
)) ? tolower(c
) : c
);
** XPUTS -- put string doing control escapes.
register struct metamac
*mp
;
extern struct metamac MetaMacros
[];
while ((c
= (*s
++ & 0377)) != '\0')
if (c
== MATCHREPL
|| c
== MACROEXPAND
)
for (mp
= MetaMacros
; mp
->metaname
!= '\0'; mp
++)
if ((mp
->metaval
& 0377) == c
)
printf("$%c", mp
->metaname
);
if (mp
->metaname
!= '\0')
/* wasn't a meta-macro -- find another way to print it */
(void) putchar(c
^ 0100);
** MAKELOWER -- Translate a line into lower case
** p -- the string to translate. If NULL, return is
** String pointed to by p is translated to lower case.
for (; (c
= *p
) != '\0'; p
++)
if (isascii(c
) && isupper(c
))
** BUILDFNAME -- build full name from gecos style entry.
** This routine interprets the strange entry that would appear
** in the GECOS field of the password file.
** login -- the login name of this user (for &).
** buf -- place to put the result.
buildfname(gecos
, login
, buf
)
/* find length of final string */
for (p
= gecos
; *p
!= '\0' && *p
!= ',' && *p
!= ';' && *p
!= '%'; p
++)
for (p
= gecos
; *p
!= '\0' && *p
!= ',' && *p
!= ';' && *p
!= '%'; p
++)
(void) strcpy(bp
, login
);
** SAFEFILE -- return true if a file exists and is safe for a user.
** fn -- filename to check.
** uid -- uid to compare against.
** mustown -- to be safe, this uid must own the file.
** mode -- mode bits that must match.
** 0 if fn exists, is owned by uid, and matches mode.
** An errno otherwise. The actual errno is cleared.
# define S_IXOTH (S_IEXEC >> 6)
# define S_IXUSR (S_IEXEC)
safefile(fn
, uid
, mustown
, mode
)
printf("safefile(%s, %d, %d, %o): ", fn
, uid
, mustown
, mode
);
for (p
= fn
; (p
= strchr(++p
, '/')) != NULL
; *p
= '/')
if (stat(fn
, &stbuf
) < 0 ||
!bitset(stbuf
.st_uid
== uid
? S_IXUSR
: S_IXOTH
,
printf("[dir %s] %s\n", fn
, errstring(ret
));
if (stat(fn
, &stbuf
) < 0)
printf("%s\n", errstring(ret
));
if (stbuf
.st_uid
!= uid
|| uid
== 0 || !mustown
)
printf("[uid %d, stat %o] ", stbuf
.st_uid
, stbuf
.st_mode
);
if ((stbuf
.st_uid
== uid
|| uid
== 0 || !mustown
) &&
(stbuf
.st_mode
& mode
) == mode
)
** FIXCRLF -- fix <CR><LF> in line.
** Looks for the <CR><LF> combination and turns it into the
** UNIX canonical <NL> character. It only takes one line,
** i.e., it is assumed that the first <NL> found is the end
** line -- the line to fix.
** stripnl -- if true, strip the newline also.
** line is changed in place.
if (p
> line
&& p
[-1] == '\r')
** DFOPEN -- determined file open
** This routine has the semantics of fopen, except that it will
** keep trying a few times to make this happen. The idea is that
** on very loaded systems, we may run out of resources (inodes,
** whatever), so this tries to get around it.
# define O_ACCMODE (O_RDONLY|O_WRONLY|O_RDWR)
O_ACCMODE
, O_RDONLY
, "r",
O_ACCMODE
|O_APPEND
, O_WRONLY
, "w",
O_ACCMODE
|O_APPEND
, O_WRONLY
|O_APPEND
, "a",
O_APPEND
, O_APPEND
, "a+",
dfopen(filename
, omode
, cmode
)
register struct omodes
*om
;
for (om
= OpenModes
; om
->mask
!= 0; om
++)
if ((omode
& om
->mask
) == om
->mode
)
for (tries
= 0; tries
< 10; tries
++)
sleep((unsigned) (10 * tries
));
fd
= open(filename
, omode
, cmode
);
if (errno
!= ENFILE
&& errno
!= EINTR
)
if (fd
>= 0 && fstat(fd
, &st
) >= 0 && S_ISREG(st
.st_mode
))
/* lock the file to avoid accidental conflicts */
if ((omode
& O_ACCMODE
) != O_RDONLY
)
(void) lockfile(fd
, filename
, locktype
);
return fdopen(fd
, om
->farg
);
** PUTLINE -- put a line like fputs obeying SMTP conventions
** This routine always guarantees outputing a newline (or CRLF,
** as appropriate) at the end of the string.
** fp -- file to put it onto.
** m -- the mailer used to control output.
/* strip out 0200 bits -- these can look like TELNET protocol */
if (bitnset(M_7BITS
, m
->m_flags
))
for (p
= l
; (svchar
= *p
) != '\0'; ++p
)
if (bitset(0200, svchar
))
/* find the end of the line */
if (TrafficLogFile
!= NULL
)
fprintf(TrafficLogFile
, "%05d >>> ", getpid());
/* check for line overflow */
while (m
->m_linelimit
> 0 && (p
- l
) > m
->m_linelimit
)
register char *q
= &l
[m
->m_linelimit
- 1];
if (l
[0] == '.' && bitnset(M_XDOT
, m
->m_flags
))
if (TrafficLogFile
!= NULL
)
(void) putc('.', TrafficLogFile
);
if (TrafficLogFile
!= NULL
)
fprintf(TrafficLogFile
, "%s!\n%05d >>> ",
if (l
[0] == '.' && bitnset(M_XDOT
, m
->m_flags
))
if (TrafficLogFile
!= NULL
)
(void) putc('.', TrafficLogFile
);
if (TrafficLogFile
!= NULL
)
fprintf(TrafficLogFile
, "%.*s\n", p
- l
, l
);
** XUNLINK -- unlink a file, doing logging as appropriate.
** f -- name of file to unlink.
syslog(LOG_DEBUG
, "%s: unlink %s", CurEnv
->e_id
, f
);
if (i
< 0 && LogLevel
> 97)
syslog(LOG_DEBUG
, "%s: unlink-fail %d", f
, errno
);
** XFCLOSE -- close a file, doing logging as appropriate.
** fp -- file pointer for the file to close
** a, b -- miscellaneous crud to print for debugging
printf("xfclose(%x) %s %s\n", fp
, a
, b
);
if (fclose(fp
) < 0 && tTd(53, 99))
printf("xfclose FAILURE: %s\n", errstring(errno
));
** SFGETS -- "safe" fgets -- times out and ignores random interrupts.
** buf -- place to put the input line.
** fp -- file to read from.
** timeout -- the timeout before error occurs.
** during -- what we are trying to read (for error messages).
** NULL on error (including timeout). This will also leave
** buf containing a null string.
static jmp_buf CtxReadTimeout
;
sfgets(buf
, siz
, fp
, timeout
, during
)
register EVENT
*ev
= NULL
;
static int readtimeout();
if (setjmp(CtxReadTimeout
) != 0)
"timeout waiting for input from %s during %s\n",
CurHostName
? CurHostName
: "local", during
);
usrerr("451 timeout waiting for input during %s",
ev
= setevent(timeout
, readtimeout
, 0);
while (p
== NULL
&& !feof(fp
) && !ferror(fp
))
/* clear the event if it has not sprung */
/* clean up the books and exit */
if (TrafficLogFile
!= NULL
)
fprintf(TrafficLogFile
, "%05d <<< [EOF]\n", getpid());
if (TrafficLogFile
!= NULL
)
fprintf(TrafficLogFile
, "%05d <<< %s", getpid(), buf
);
for (p
= buf
; *p
!= '\0'; p
++)
longjmp(CtxReadTimeout
, 1);
** FGETFOLDED -- like fgets, but know about folded lines.
** buf -- place to put result.
** f -- file to read from.
** input line(s) on success, NULL on error or EOF.
** This will normally be buf -- unless the line is too
** long, when it will be xalloc()ed.
** buf gets lines from f, with continuation lines (lines
** with leading white space) appended. CRLF's are mapped
** into single newlines. Any trailing NL is stripped.
while ((i
= getc(f
)) != EOF
)
if (i
!= ' ' && i
!= '\t')
** CURTIME -- return current time.
** ATOBOOL -- convert a string representation to boolean.
** s -- string to convert. Takes "tTyY" as true,
** A boolean representation of the string.
if (*s
== '\0' || strchr("tTyY", *s
) != NULL
)
** ATOOCT -- convert a string representation to octal.
** s -- string to convert.
** An integer representing the string interpreted as an
while (*s
>= '0' && *s
<= '7')
i
= (i
<< 3) | (*s
++ - '0');
** WAITFOR -- wait for a particular process id.
** pid -- process id to wait for.
** -1 if pid never shows up.
} while ((i
>= 0 || errno
== EINTR
) && i
!= pid
);
** BITINTERSECT -- tell if two bitmaps intersect
** a, b -- the bitmaps in question
** TRUE if they have a non-null intersection
for (i
= BITMAPBYTES
/ sizeof (int); --i
>= 0; )
** BITZEROP -- tell if a bitmap is all zero
** map -- the bit map to check
** TRUE if map is all zero.
** FALSE if there are any bits set in map.
for (i
= BITMAPBYTES
/ sizeof (int); --i
>= 0; )
** STRCONTAINEDIN -- tell if one string is contained in another
** a -- possible substring.
** b -- possible superstring.
** TRUE if a is contained in b.
if (strncmp(a
, b
, l
) == 0)
** CHECKFD012 -- check low numbered file descriptors
** File descriptors 0, 1, and 2 should be open at all times.
** This routine verifies that, and fixes it if not true.
** where -- a tag printed if the assertion failed
if (fstat(i
, &stbuf
) < 0)
syserr("%s: fd %d not open", where
, i
);
fd
= open("/dev/null", i
== 0 ? O_RDONLY
: O_WRONLY
, 0666);