|
1772
|
1 /* log.c Routines to manage the uulog file.
|
|
|
2 Copyright (C) 1994 Brad Spencer
|
|
|
3
|
|
|
4 This file is part of the OS-9 UUCP package, UUCPbb.
|
|
|
5
|
|
|
6 This program is free software; you can redistribute it and/or modify
|
|
|
7 it under the terms of the GNU General Public License as published by
|
|
|
8 the Free Software Foundation; either version 2 of the License, or
|
|
|
9 (at your option) any later version.
|
|
|
10
|
|
|
11 This program is distributed in the hope that it will be useful,
|
|
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
14 GNU General Public License for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with this program; if not, write to the Free Software
|
|
|
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
19
|
|
|
20 The author of UUCPbb, Bob Billson, can be contacted at:
|
|
|
21 bob@kc2wz.bubble.org or uunet!kc2wz!bob or by snail mail:
|
|
|
22 21 Bates Way, Westfield, NJ 07090
|
|
|
23 */
|
|
|
24
|
|
|
25 #include "uucp.h"
|
|
|
26
|
|
|
27 static char logpath[200], fcaller[200];
|
|
|
28 static flag copylog = FALSE,
|
|
|
29 to_stderr = FALSE,
|
|
|
30 wval;
|
|
|
31
|
|
|
32
|
|
|
33 /* Initalize logpath to requested log path and others */
|
|
|
34
|
|
|
35 void inizlog (caller, where)
|
|
|
36 char *caller;
|
|
|
37 int where;
|
|
|
38 {
|
|
|
39 if (logdir == NULL)
|
|
|
40 if ((logdir = getenv ("LOGDIR")) != NULL)
|
|
|
41 logdir = strdup (logdir);
|
|
|
42 else
|
|
|
43 logdir = LOGDIR;
|
|
|
44
|
|
|
45 if (caller == NULL || *caller == '\0')
|
|
|
46 strcpy (fcaller, "unnamed");
|
|
|
47 else
|
|
|
48 strcpy (fcaller, caller);
|
|
|
49
|
|
|
50 switch (where)
|
|
|
51 {
|
|
|
52 /* Someone did something silly, so log to LOGDIR/uulog */
|
|
|
53 default:
|
|
|
54 where = 1;
|
|
|
55 /* Fall through */
|
|
|
56
|
|
|
57 /* Ok, log to the disk file LOGDIR/uulog */
|
|
|
58 case 1:
|
|
|
59 sprintf (logpath, "%s/uulog", logdir);
|
|
|
60 break;
|
|
|
61
|
|
|
62 /* Ok, log to the RAMDISK and copy the contents to LOGDIR/uulog
|
|
|
63 later */
|
|
|
64
|
|
|
65 case 2:
|
|
|
66 sprintf (logpath, "%s/uulog", RAMDISK);
|
|
|
67 copylog = TRUE;
|
|
|
68 break;
|
|
|
69
|
|
|
70 /* Ok, log to stderr */
|
|
|
71 case 3:
|
|
|
72 strcpy (logpath, "stderr");
|
|
|
73 to_stderr = TRUE;
|
|
|
74 break;
|
|
|
75 }
|
|
|
76 wval = where;
|
|
|
77
|
|
|
78 /* Ensure that something is in the uulog. Might as well make it useful
|
|
|
79 information */
|
|
|
80 }
|
|
|
81
|
|
|
82
|
|
|
83
|
|
|
84 /* Log will write a message to the end of the log, returning where, or -1
|
|
|
85 Really, varargs should be used here, but I don't know if OSK or OS-9000
|
|
|
86 has them */
|
|
|
87
|
|
|
88 int log (message)
|
|
|
89 char *message;
|
|
|
90 {
|
|
|
91 FILE *fd;
|
|
|
92
|
|
|
93 /* Need a message in order to log one */
|
|
|
94 if (message == NULL || *message == '\0')
|
|
|
95 return (wval);
|
|
|
96
|
|
|
97 if (to_stderr)
|
|
|
98 fd = stderr;
|
|
|
99 else
|
|
|
100 if ((fd = fopen (logpath, "a")) == NULL)
|
|
|
101 {
|
|
|
102 fprintf (stderr, "log: Couldn't open '%s', because %d\n",
|
|
|
103 logpath, errno);
|
|
|
104 return (-1);
|
|
|
105 }
|
|
|
106
|
|
|
107 fprintf (fd,"%s %s %s\n", fcaller, gtime(), message);
|
|
|
108
|
|
|
109 if (!to_stderr)
|
|
|
110 fclose (fd);
|
|
|
111
|
|
|
112 return (wval);
|
|
|
113 }
|
|
|
114
|
|
|
115
|
|
|
116
|
|
|
117 /* deinizlog will copy the log from RAMDISK, if needed */
|
|
|
118
|
|
|
119 int deinizlog()
|
|
|
120 {
|
|
|
121 FILE *rfd, *lfd;
|
|
|
122 char nlog[200], bigbuf[1024], llbuf[100];
|
|
|
123 int r;
|
|
|
124
|
|
|
125 /* Copy the file from the RAMDRIVE to LOGDIR/uulog, if asked to */
|
|
|
126 if (copylog)
|
|
|
127 {
|
|
|
128 if ((rfd = fopen (logpath, "r")) == NULL)
|
|
|
129 {
|
|
|
130 fprintf (stderr, "deinizlog: Can't open '%s', because %d\n",
|
|
|
131 logpath, errno);
|
|
|
132 return (-1);
|
|
|
133 }
|
|
|
134
|
|
|
135 sprintf (nlog, "%s/uulog", logdir);
|
|
|
136
|
|
|
137 if ((lfd = fopen (nlog, "a")) == NULL)
|
|
|
138 {
|
|
|
139 fprintf (stderr, "deinizlog: Can't open '%s'\n", nlog);
|
|
|
140 return (-1);
|
|
|
141 }
|
|
|
142
|
|
|
143 do
|
|
|
144 {
|
|
|
145 if ((r = fread (bigbuf, 1, sizeof (bigbuf)-1, rfd)) < 0)
|
|
|
146 fputs ("deinizlog: read error\n", stderr);
|
|
|
147 else
|
|
|
148 if (r != 0)
|
|
|
149 fwrite (bigbuf, 1, r, lfd);
|
|
|
150 }
|
|
|
151 while (r > 0);
|
|
|
152
|
|
|
153 fclose (rfd);
|
|
|
154 fclose (lfd);
|
|
|
155
|
|
|
156 if (r == 0)
|
|
|
157 unlink (logpath);
|
|
|
158 }
|
|
|
159 return (r);
|
|
|
160 }
|
