add Berkeley specific copyrights

[unix-history] / usr / src / usr.bin / uucp / libuu / logent.c

#ifndef lint
static char sccsid[] = "@(#)logent.c    5.9     (Berkeley) %G%";
#endif

#include "uucp.h"
#ifdef BSD4_2
#include <sys/time.h>
#else
#include <time.h>
#endif
#if defined(USG) || defined(BSD4_2)
#include <fcntl.h>
#endif

extern int errno;
extern int sys_nerr;
extern char *sys_errlist[];

static FILE *Lp = NULL;
static FILE *Sp = NULL;
#ifndef USE_SYSLOG
static FILE *Ep = NULL;
#endif /* !USE_SYSLOG */
static int pid = 0;

/*LINTLIBRARY*/

/*
*      make log entry
*/
FILE *
get_logfd(pname, logfilename)
char *pname;
char *logfilename;
{
       FILE *fp;
       int savemask;
#ifdef LOGBYSITE
       char lfile[MAXFULLNAME];
#endif LOGBYSITE

       savemask = umask(LOGMASK);
#ifdef LOGBYSITE
       if (pname != NULL) {
               (void) sprintf(lfile, "%s/%s/%s", LOGBYSITE, pname, Rmtname);
               logfilename = lfile;
       }
#endif LOGBYSITE
       fp = fopen(logfilename, "a");
       umask(savemask);
       if (fp) {
#ifdef          F_SETFL
               int flags;
               flags = fcntl(fileno(fp), F_GETFL, 0);
               fcntl(fileno(Lp), F_SETFL, flags|O_APPEND);
#endif          /* F_SETFL */
               fioclex(fileno(fp));
       } else /* we really want to log this, but it's the logging that failed*/
               perror(logfilename);
       return fp;
}

/*
*      make a log entry
*/
mlogent(fp, status, text)
char *text, *status;
register FILE *fp;
{
       register struct tm *tp;
       extern struct tm *localtime();

       if (text == NULL)
               text = "";
       if (status == NULL)
               status = "";
       if (pid == 0)
               pid = getpid();
#ifdef USG
       time(&Now.time);
       Now.millitm = 0;
#else !USG
       ftime(&Now);
#endif !USG
       tp = localtime(&Now.time);
#ifdef USG
       fprintf(fp, "%s %s (%d/%d-%2.2d:%2.2d-%d) ",
#else !USG
       fprintf(fp, "%s %s (%d/%d-%02d:%02d-%d) ",
#endif !USG
               User, Rmtname, tp->tm_mon + 1, tp->tm_mday,
               tp->tm_hour, tp->tm_min, pid);
       fprintf(fp, "%s %s\n", status, text);

       /* Since it's buffered */
#ifndef F_SETFL
       lseek (fileno(fp), (long)0, 2);
#endif !F_SETFL
       fflush (fp);
       if (Debug) {
               fprintf(stderr, "%s %s ", User, Rmtname);
#ifdef USG
               fprintf(stderr, "(%d/%d-%2.2d:%2.2d-%d) ", tp->tm_mon + 1,
                       tp->tm_mday, tp->tm_hour, tp->tm_min, pid);
#else !USG
               fprintf(stderr, "(%d/%d-%02d:%02d-%d) ", tp->tm_mon + 1,
                       tp->tm_mday, tp->tm_hour, tp->tm_min, pid);
#endif !USG
               fprintf(stderr, "%s %s\n", status, text);
       }
}

/*
*      close log file
*/
logcls()
{
       if (Lp != NULL)
               fclose(Lp);
       Lp = NULL;

       if (Sp != NULL)
               fclose (Sp);
       Sp = NULL;
#ifndef USE_SYSLOG
       if (Ep != NULL)
               fclose (Ep);
       Ep = NULL;
#endif /* !USE_SYSLOG */
}

/*
* Arrange to close fd on exec(II).
* Otherwise unwanted file descriptors are inherited
* by other programs.  And that may be a security hole.
*/
#ifndef USG
#include <sgtty.h>
#endif

fioclex(fd)
int fd;
{
       register int ret;

#if defined(USG) || defined(BSD4_2)
       ret = fcntl(fd, F_SETFD, 1);    /* Steve Bellovin says this does it */
#else
       ret = ioctl(fd, FIOCLEX, STBNULL);
#endif
       if (ret)
               DEBUG(2, "CAN'T FIOCLEX %d\n", fd);
}

logent(text, status)
char *text, *status;
{
       if (Lp == NULL)
               Lp = get_logfd(Progname, LOGFILE);

       mlogent(Lp, status, text);
}

/*
*      make system log entry
*/
log_xferstats(text)
char *text;
{
       char tbuf[BUFSIZ];
       if (Sp == NULL)
               Sp = get_logfd("xferstats", SYSLOG);
       sprintf(tbuf, "(%ld.%02u)", Now.time, Now.millitm/10);
       mlogent(Sp, tbuf, text);
}

#ifndef USE_SYSLOG
/*
* This is for sites that don't have a decent syslog() in their library
* This routine would be a lot simpler if syslog() didn't permit %m
* (or if printf did!)
*/
syslog(priority, format, p0, p1, p2, p3, p4)
int priority;
char *format;
{
       char nformat[BUFSIZ], sbuf[BUFSIZ];
       register char *s, *d;
       register int c;
       long now;

       s = format;
       d = nformat;
       while ((c = *s++) != '\0' && c != '\n' && d < &nformat[BUFSIZ]) {
               if (c != '%') {
                       *d++ = c;
                       continue;
               }
               if ((c = *s++) != 'm') {
                       *d++ = '%';
                       *d++ = c;
                       continue;
               }
               if ((unsigned)errno > sys_nerr)
                       sprintf(d, "error %d", errno);
               else
                       strcpy(d, sys_errlist[errno]);
               d += strlen(d);
       }
       *d = '\0';

       if (Ep == NULL)
               Ep = get_logfd(NULL, ERRLOG);
       sprintf(sbuf, nformat, p0, p1, p2, p3, p4);
       mlogent(Ep, sbuf, "");
}
#endif /* !USE_SYSLOG */