NetBSD/gnu/libexec/uucp/uulog/uulog.c

445 lines
10 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* uulog.c
Display the UUCP log file.
Copyright (C) 1991, 1992 Ian Lance Taylor
This file is part of the Taylor UUCP package.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
The author of the program may be contacted at ian@airs.com or
c/o Infinity Development Systems, P.O. Box 520, Waltham, MA 02254.
*/
#include "uucp.h"
#if USE_RCS_ID
const char uulog_rcsid[] = "$Id: uulog.c,v 1.1 1993/08/04 19:36:47 jtc Exp $";
#endif
#include <ctype.h>
#include <errno.h>
#include "getopt.h"
#include "uudefs.h"
#include "uuconf.h"
#include "system.h"
/* This is a pretty bad implementation of uulog, which I don't think
is a very useful program anyhow. It only takes a single -s and/or
-u switch. When using HAVE_HDB_LOGGING it requires a system. */
/* The program name. */
char abProgram[] = "uulog";
/* Local functions. */
static void ulusage P((void));
/* Long getopt options. */
static const struct option asLlongopts[] = { { NULL, 0, NULL, 0 } };
int
main (argc, argv)
int argc;
char **argv;
{
/* -D: display Debug file */
boolean fdebug = FALSE;
/* -f: keep displaying lines forever. */
boolean fforever = FALSE;
/* -n lines: number of lines to display. */
int cshow = 0;
/* -s: system name. */
const char *zsystem = NULL;
/* -S: display Stats file */
boolean fstats = FALSE;
/* -u: user name. */
const char *zuser = NULL;
/* -I: configuration file name. */
const char *zconfig = NULL;
/* -x: display uuxqt log file. */
boolean fuuxqt = FALSE;
int i;
int iopt;
pointer puuconf;
int iuuconf;
const char *zlogfile;
const char *zstatsfile;
const char *zdebugfile;
const char *zfile;
FILE *e;
char **pzshow = NULL;
int ishow = 0;
size_t csystem = 0;
size_t cuser = 0;
char *zline;
size_t cline;
/* Look for a straight number argument, and convert it to -n before
passing the arguments to getopt. */
for (i = 0; i < argc; i++)
{
if (argv[i][0] == '-' && isdigit (argv[i][1]))
{
size_t clen;
char *znew;
clen = strlen (argv[i]);
znew = zbufalc (clen + 2);
znew[0] = '-';
znew[1] = 'n';
memcpy (znew + 2, argv[i] + 1, clen);
argv[i] = znew;
}
}
while ((iopt = getopt_long (argc, argv, "Df:FI:n:s:Su:xX:", asLlongopts,
(int *) NULL)) != EOF)
{
switch (iopt)
{
case 'D':
/* Show debugging file. */
fdebug = TRUE;
break;
case 'f':
/* Keep displaying lines forever for a particular system. */
fforever = TRUE;
zsystem = optarg;
if (cshow == 0)
cshow = 10;
break;
case 'F':
/* Keep displaying lines forever. */
fforever = TRUE;
if (cshow == 0)
cshow = 10;
break;
case 'I':
/* Configuration file name. */
if (fsysdep_other_config (optarg))
zconfig = optarg;
break;
case 'n':
/* Number of lines to display. */
cshow = (int) strtol (optarg, (char **) NULL, 10);
break;
case 's':
/* System name. */
zsystem = optarg;
break;
case 'S':
/* Show statistics file. */
fstats = TRUE;
break;
case 'u':
/* User name. */
zuser = optarg;
break;
case 'x':
/* Display uuxqt log file. */
fuuxqt = TRUE;
break;
case 'X':
#if DEBUG > 1
/* Set debugging level. */
iDebug |= idebug_parse (optarg);
#endif
break;
case 0:
/* Long option found and flag set. */
break;
default:
ulusage ();
break;
}
}
if (optind != argc || (fstats && fdebug))
ulusage ();
iuuconf = uuconf_init (&puuconf, (const char *) NULL, zconfig);
if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
#if DEBUG > 1
{
const char *zdebug;
iuuconf = uuconf_debuglevel (puuconf, &zdebug);
if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
if (zdebug != NULL)
iDebug |= idebug_parse (zdebug);
}
#endif
iuuconf = uuconf_logfile (puuconf, &zlogfile);
if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
iuuconf = uuconf_statsfile (puuconf, &zstatsfile);
if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
iuuconf = uuconf_debugfile (puuconf, &zdebugfile);
if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
usysdep_initialize (puuconf, 0);
if (zsystem != NULL)
{
#if HAVE_HDB_LOGGING
if (strcmp (zsystem, "ANY") != 0)
#endif
{
struct uuconf_system ssys;
iuuconf = uuconf_system_info (puuconf, zsystem, &ssys);
if (iuuconf != UUCONF_SUCCESS)
{
if (iuuconf != UUCONF_NOT_FOUND)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
ulog (LOG_FATAL, "%s: System not found", zsystem);
}
zsystem = zbufcpy (ssys.uuconf_zname);
(void) uuconf_system_free (puuconf, &ssys);
}
}
if (fstats)
zfile = zstatsfile;
else if (fdebug)
zfile = zdebugfile;
else
{
#if ! HAVE_HDB_LOGGING
zfile = zlogfile;
#else
const char *zprogram;
char *zalc;
/* We need a system to find a HDB log file. */
if (zsystem == NULL)
ulusage ();
if (fuuxqt)
zprogram = "uuxqt";
else
zprogram = "uucico";
zalc = zbufalc (strlen (zlogfile)
+ strlen (zprogram)
+ strlen (zsystem)
+ 1);
sprintf (zalc, zlogfile, zprogram, zsystem);
zfile = zalc;
if (strcmp (zsystem, "ANY") == 0)
zsystem = NULL;
#endif
}
e = fopen (zfile, "r");
if (e == NULL)
{
ulog (LOG_ERROR, "fopen (%s): %s", zfile, strerror (errno));
usysdep_exit (FALSE);
}
if (cshow > 0)
{
pzshow = (char **) xmalloc (cshow * sizeof (char *));
for (ishow = 0; ishow < cshow; ishow++)
pzshow[ishow] = NULL;
ishow = 0;
}
/* Read the log file and output the appropriate lines. */
if (zsystem != NULL)
csystem = strlen (zsystem);
if (zuser != NULL)
cuser = strlen (zuser);
zline = NULL;
cline = 0;
while (TRUE)
{
while (getline (&zline, &cline, e) > 0)
{
char *zluser, *zlsys, *znext;
size_t cluser, clsys;
/* Skip any leading whitespace (not that there should be
any). */
znext = zline + strspn (zline, " \t");
if (! fstats)
{
#if ! HAVE_TAYLOR_LOGGING
/* The user name is the first field on the line. */
zluser = znext;
cluser = strcspn (znext, " \t");
#endif
/* Skip the first field. */
znext += strcspn (znext, " \t");
znext += strspn (znext, " \t");
/* The system is the second field on the line. */
zlsys = znext;
clsys = strcspn (znext, " \t");
/* Skip the second field. */
znext += clsys;
znext += strspn (znext, " \t");
#if HAVE_TAYLOR_LOGGING
/* The user is the third field on the line. */
zluser = znext;
cluser = strcspn (znext, " \t");
#endif
}
else
{
#if ! HAVE_HDB_LOGGING
/* The user name is the first field on the line, and the
system name is the second. */
zluser = znext;
cluser = strcspn (znext, " \t");
znext += cluser;
znext += strspn (znext, " \t");
zlsys = znext;
clsys = strcspn (znext, " \t");
#else
/* The first field is system!user. */
zlsys = znext;
clsys = strcspn (znext, "!");
znext += clsys + 1;
zlsys = znext;
clsys = strcspn (znext, " \t");
#endif
}
/* See if we should print this line. */
if (zsystem != NULL
&& (csystem != clsys
|| strncmp (zsystem, zlsys, clsys) != 0))
continue;
if (zuser != NULL
&& (cuser != cluser
|| strncmp (zuser, zluser, cluser) != 0))
continue;
/* Output the line, or save it if we are outputting only a
particular number of lines. */
if (cshow <= 0)
printf ("%s", zline);
else
{
ubuffree ((pointer) pzshow[ishow]);
pzshow[ishow] = zbufcpy (zline);
ishow = (ishow + 1) % cshow;
}
}
/* Output the number of lines requested by the -n option. */
if (cshow > 0)
{
for (i = 0; i < cshow; i++)
{
if (pzshow[ishow] != NULL)
printf ("%s", pzshow[ishow]);
ishow = (ishow + 1) % cshow;
}
}
/* If -f was not specified, or an error occurred while reading
the file, get out. */
if (! fforever || ferror (e))
break;
clearerr (e);
cshow = 0;
/* Sleep 1 second before going around the loop again. */
usysdep_sleep (1);
}
(void) fclose (e);
ulog_close ();
usysdep_exit (TRUE);
/* Avoid errors about not returning a value. */
return 0;
}
/* Print a usage message and die. */
static void
ulusage ()
{
fprintf (stderr,
"Taylor UUCP version %s, copyright (C) 1991, 1992 Ian Lance Taylor\n",
VERSION);
fprintf (stderr,
"Usage: uulog [-n #] [-sf system] [-u user] [-xDSF] [-I file] [-X debug]\n");
fprintf (stderr,
" -n: show given number of lines from end of log\n");
fprintf (stderr,
" -s: print entries for named system\n");
fprintf (stderr,
" -f: follow entries for named system\n");
fprintf (stderr,
" -u: print entries for named user\n");
#if HAVE_HDB_LOGGING
fprintf (stderr,
" -x: print uuxqt log rather than uucico log\n");
#else
fprintf (stderr,
" -F: follow entries for any system\n");
#endif
fprintf (stderr,
" -S: show statistics file\n");
fprintf (stderr,
" -D: show debugging file\n");
fprintf (stderr,
" -X debug: Set debugging level (0 for none, 9 is max)\n");
#if HAVE_TAYLOR_CONFIG
fprintf (stderr,
" -I file: Set configuration file to use\n");
#endif /* HAVE_TAYLOR_CONFIG */
exit (EXIT_FAILURE);
}