savecore.c revision 1.17 1 1.13 pk /*-
2 1.13 pk * Copyright (c) 1986, 1992, 1993
3 1.13 pk * The Regents of the University of California. All rights reserved.
4 1.1 cgd *
5 1.1 cgd * Redistribution and use in source and binary forms, with or without
6 1.1 cgd * modification, are permitted provided that the following conditions
7 1.1 cgd * are met:
8 1.1 cgd * 1. Redistributions of source code must retain the above copyright
9 1.1 cgd * notice, this list of conditions and the following disclaimer.
10 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer in the
12 1.1 cgd * documentation and/or other materials provided with the distribution.
13 1.1 cgd * 3. All advertising materials mentioning features or use of this software
14 1.1 cgd * must display the following acknowledgement:
15 1.1 cgd * This product includes software developed by the University of
16 1.1 cgd * California, Berkeley and its contributors.
17 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
18 1.1 cgd * may be used to endorse or promote products derived from this software
19 1.1 cgd * without specific prior written permission.
20 1.1 cgd *
21 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 1.1 cgd * SUCH DAMAGE.
32 1.1 cgd */
33 1.1 cgd
34 1.1 cgd #ifndef lint
35 1.13 pk static char copyright[] =
36 1.13 pk "@(#) Copyright (c) 1986, 1992, 1993\n\
37 1.13 pk The Regents of the University of California. All rights reserved.\n";
38 1.1 cgd #endif /* not lint */
39 1.1 cgd
40 1.1 cgd #ifndef lint
41 1.14 mycroft /*static char sccsid[] = "from: @(#)savecore.c 8.3 (Berkeley) 1/2/94";*/
42 1.17 mycroft static char *rcsid = "$Id: savecore.c,v 1.17 1994/09/23 14:28:15 mycroft Exp $";
43 1.1 cgd #endif /* not lint */
44 1.1 cgd
45 1.1 cgd #include <sys/param.h>
46 1.13 pk #include <sys/stat.h>
47 1.1 cgd #include <sys/mount.h>
48 1.13 pk #include <sys/syslog.h>
49 1.1 cgd #include <sys/time.h>
50 1.13 pk
51 1.1 cgd #include <dirent.h>
52 1.7 cgd #include <errno.h>
53 1.13 pk #include <fcntl.h>
54 1.1 cgd #include <nlist.h>
55 1.1 cgd #include <paths.h>
56 1.7 cgd #include <stdio.h>
57 1.7 cgd #include <stdlib.h>
58 1.13 pk #include <string.h>
59 1.13 pk #include <tzfile.h>
60 1.7 cgd #include <unistd.h>
61 1.1 cgd
62 1.6 cgd #define ok(number) ((number) - KERNBASE)
63 1.1 cgd
64 1.13 pk struct nlist current_nl[] = { /* Namelist for currently running system. */
65 1.1 cgd #define X_DUMPDEV 0
66 1.1 cgd { "_dumpdev" },
67 1.1 cgd #define X_DUMPLO 1
68 1.1 cgd { "_dumplo" },
69 1.1 cgd #define X_TIME 2
70 1.1 cgd { "_time" },
71 1.1 cgd #define X_DUMPSIZE 3
72 1.1 cgd { "_dumpsize" },
73 1.1 cgd #define X_VERSION 4
74 1.1 cgd { "_version" },
75 1.1 cgd #define X_PANICSTR 5
76 1.1 cgd { "_panicstr" },
77 1.1 cgd #define X_DUMPMAG 6
78 1.1 cgd { "_dumpmag" },
79 1.1 cgd { "" },
80 1.1 cgd };
81 1.13 pk int cursyms[] = { X_DUMPDEV, X_DUMPLO, X_VERSION, X_DUMPMAG, -1 };
82 1.13 pk int dumpsyms[] = { X_TIME, X_DUMPSIZE, X_VERSION, X_PANICSTR, X_DUMPMAG, -1 };
83 1.1 cgd
84 1.13 pk struct nlist dump_nl[] = { /* Name list for dumped system. */
85 1.13 pk { "_dumpdev" }, /* Entries MUST be the same as */
86 1.13 pk { "_dumplo" }, /* those in current_nl[]. */
87 1.1 cgd { "_time" },
88 1.1 cgd { "_dumpsize" },
89 1.1 cgd { "_version" },
90 1.1 cgd { "_panicstr" },
91 1.1 cgd { "_dumpmag" },
92 1.1 cgd { "" },
93 1.1 cgd };
94 1.1 cgd
95 1.13 pk /* Types match kernel declarations. */
96 1.13 pk long dumplo; /* where dump starts on dumpdev */
97 1.13 pk int dumpmag; /* magic number in dump */
98 1.13 pk int dumpsize; /* amount of memory dumped */
99 1.13 pk
100 1.15 mycroft char *kernel;
101 1.1 cgd char *dirname; /* directory to save dumps in */
102 1.1 cgd char *ddname; /* name of dump device */
103 1.13 pk dev_t dumpdev; /* dump device */
104 1.1 cgd int dumpfd; /* read/write descriptor on block dev */
105 1.1 cgd time_t now; /* current date */
106 1.13 pk char panic_mesg[1024];
107 1.1 cgd int panicstr;
108 1.13 pk char vers[1024];
109 1.7 cgd
110 1.13 pk int clear, compress, force, verbose; /* flags */
111 1.13 pk
112 1.13 pk void check_kmem __P((void));
113 1.13 pk int check_space __P((void));
114 1.13 pk void clear_dump __P((void));
115 1.13 pk int Create __P((char *, int));
116 1.13 pk int dump_exists __P((void));
117 1.7 cgd char *find_dev __P((dev_t, int));
118 1.13 pk int get_crashtime __P((void));
119 1.13 pk void kmem_setup __P((void));
120 1.13 pk void log __P((int, char *, ...));
121 1.13 pk void Lseek __P((int, off_t, int));
122 1.13 pk int Open __P((char *, int rw));
123 1.13 pk int Read __P((int, void *, int));
124 1.13 pk char *rawname __P((char *s));
125 1.13 pk void save_core __P((void));
126 1.13 pk void usage __P((void));
127 1.13 pk void Write __P((int, void *, int));
128 1.1 cgd
129 1.13 pk int
130 1.1 cgd main(argc, argv)
131 1.1 cgd int argc;
132 1.13 pk char *argv[];
133 1.1 cgd {
134 1.1 cgd int ch;
135 1.1 cgd
136 1.13 pk openlog("savecore", LOG_PERROR, LOG_DAEMON);
137 1.13 pk
138 1.13 pk while ((ch = getopt(argc, argv, "cdfNvz")) != EOF)
139 1.1 cgd switch(ch) {
140 1.1 cgd case 'c':
141 1.1 cgd clear = 1;
142 1.1 cgd break;
143 1.13 pk case 'd': /* Not documented. */
144 1.1 cgd case 'v':
145 1.1 cgd verbose = 1;
146 1.1 cgd break;
147 1.1 cgd case 'f':
148 1.1 cgd force = 1;
149 1.1 cgd break;
150 1.13 pk case 'N':
151 1.15 mycroft kernel = optarg;
152 1.13 pk break;
153 1.13 pk case 'z':
154 1.13 pk compress = 1;
155 1.13 pk break;
156 1.1 cgd case '?':
157 1.1 cgd default:
158 1.1 cgd usage();
159 1.1 cgd }
160 1.1 cgd argc -= optind;
161 1.1 cgd argv += optind;
162 1.1 cgd
163 1.1 cgd if (!clear) {
164 1.1 cgd if (argc != 1 && argc != 2)
165 1.1 cgd usage();
166 1.1 cgd dirname = argv[0];
167 1.1 cgd }
168 1.1 cgd if (argc == 2)
169 1.15 mycroft kernel = argv[1];
170 1.1 cgd
171 1.13 pk (void)time(&now);
172 1.13 pk kmem_setup();
173 1.1 cgd
174 1.1 cgd if (clear) {
175 1.1 cgd clear_dump();
176 1.1 cgd exit(0);
177 1.1 cgd }
178 1.13 pk
179 1.13 pk if (!dump_exists() && !force)
180 1.13 pk exit(1);
181 1.13 pk
182 1.1 cgd check_kmem();
183 1.13 pk
184 1.1 cgd if (panicstr)
185 1.13 pk syslog(LOG_ALERT, "reboot after panic: %s", panic_mesg);
186 1.1 cgd else
187 1.13 pk syslog(LOG_ALERT, "reboot");
188 1.1 cgd
189 1.1 cgd if ((!get_crashtime() || !check_space()) && !force)
190 1.1 cgd exit(1);
191 1.1 cgd
192 1.13 pk save_core();
193 1.1 cgd
194 1.13 pk clear_dump();
195 1.13 pk exit(0);
196 1.1 cgd }
197 1.1 cgd
198 1.13 pk void
199 1.13 pk kmem_setup()
200 1.1 cgd {
201 1.1 cgd FILE *fp;
202 1.13 pk int kmem, i;
203 1.1 cgd char *dump_sys;
204 1.1 cgd
205 1.1 cgd /*
206 1.13 pk * Some names we need for the currently running system, others for
207 1.13 pk * the system that was running when the dump was made. The values
208 1.13 pk * obtained from the current system are used to look for things in
209 1.13 pk * /dev/kmem that cannot be found in the dump_sys namelist, but are
210 1.13 pk * presumed to be the same (since the disk partitions are probably
211 1.13 pk * the same!)
212 1.1 cgd */
213 1.13 pk if ((nlist(_PATH_UNIX, current_nl)) == -1)
214 1.13 pk syslog(LOG_ERR, "%s: nlist: %s", _PATH_UNIX, strerror(errno));
215 1.1 cgd for (i = 0; cursyms[i] != -1; i++)
216 1.1 cgd if (current_nl[cursyms[i]].n_value == 0) {
217 1.13 pk syslog(LOG_ERR, "%s: %s not in namelist",
218 1.13 pk _PATH_UNIX, current_nl[cursyms[i]].n_name);
219 1.1 cgd exit(1);
220 1.1 cgd }
221 1.13 pk
222 1.15 mycroft dump_sys = kernel ? kernel : _PATH_UNIX;
223 1.13 pk if ((nlist(dump_sys, dump_nl)) == -1)
224 1.13 pk syslog(LOG_ERR, "%s: nlist: %s", dump_sys, strerror(errno));
225 1.1 cgd for (i = 0; dumpsyms[i] != -1; i++)
226 1.1 cgd if (dump_nl[dumpsyms[i]].n_value == 0) {
227 1.13 pk syslog(LOG_ERR, "%s: %s not in namelist",
228 1.13 pk dump_sys, dump_nl[dumpsyms[i]].n_name);
229 1.1 cgd exit(1);
230 1.1 cgd }
231 1.13 pk
232 1.1 cgd kmem = Open(_PATH_KMEM, O_RDONLY);
233 1.13 pk Lseek(kmem, (off_t)current_nl[X_DUMPDEV].n_value, L_SET);
234 1.13 pk (void)Read(kmem, &dumpdev, sizeof(dumpdev));
235 1.5 pk if (dumpdev == NODEV) {
236 1.13 pk syslog(LOG_WARNING, "no core dump (no dumpdev)");
237 1.13 pk exit(1);
238 1.5 pk }
239 1.13 pk Lseek(kmem, (off_t)current_nl[X_DUMPLO].n_value, L_SET);
240 1.13 pk (void)Read(kmem, &dumplo, sizeof(dumplo));
241 1.1 cgd if (verbose)
242 1.13 pk (void)printf("dumplo = %d (%d * %d)\n",
243 1.13 pk dumplo, dumplo/DEV_BSIZE, DEV_BSIZE);
244 1.13 pk Lseek(kmem, (off_t)current_nl[X_DUMPMAG].n_value, L_SET);
245 1.13 pk (void)Read(kmem, &dumpmag, sizeof(dumpmag));
246 1.1 cgd dumplo *= DEV_BSIZE;
247 1.1 cgd ddname = find_dev(dumpdev, S_IFBLK);
248 1.1 cgd dumpfd = Open(ddname, O_RDWR);
249 1.1 cgd fp = fdopen(kmem, "r");
250 1.1 cgd if (fp == NULL) {
251 1.13 pk syslog(LOG_ERR, "%s: fdopen: %m", _PATH_KMEM);
252 1.1 cgd exit(1);
253 1.1 cgd }
254 1.15 mycroft if (kernel)
255 1.1 cgd return;
256 1.13 pk (void)fseek(fp, (off_t)current_nl[X_VERSION].n_value, L_SET);
257 1.13 pk (void)fgets(vers, sizeof(vers), fp);
258 1.13 pk
259 1.13 pk /* Don't fclose(fp), we use dumpfd later. */
260 1.1 cgd }
261 1.1 cgd
262 1.13 pk void
263 1.1 cgd check_kmem()
264 1.1 cgd {
265 1.13 pk register char *cp;
266 1.1 cgd FILE *fp;
267 1.13 pk char core_vers[1024];
268 1.1 cgd
269 1.1 cgd fp = fdopen(dumpfd, "r");
270 1.1 cgd if (fp == NULL) {
271 1.13 pk syslog(LOG_ERR, "%s: fdopen: %m", ddname);
272 1.1 cgd exit(1);
273 1.1 cgd }
274 1.13 pk fseek(fp, (off_t)(dumplo + ok(dump_nl[X_VERSION].n_value)), L_SET);
275 1.13 pk fgets(core_vers, sizeof(core_vers), fp);
276 1.15 mycroft if (strcmp(vers, core_vers) && kernel == 0)
277 1.13 pk syslog(LOG_WARNING,
278 1.13 pk "warning: %s version mismatch:\n\t%s\nand\t%s\n",
279 1.13 pk _PATH_UNIX, vers, core_vers);
280 1.13 pk (void)fseek(fp,
281 1.13 pk (off_t)(dumplo + ok(dump_nl[X_PANICSTR].n_value)), L_SET);
282 1.13 pk (void)fread(&panicstr, sizeof(panicstr), 1, fp);
283 1.1 cgd if (panicstr) {
284 1.13 pk (void)fseek(fp, dumplo + ok(panicstr), L_SET);
285 1.1 cgd cp = panic_mesg;
286 1.1 cgd do
287 1.1 cgd *cp = getc(fp);
288 1.1 cgd while (*cp++ && cp < &panic_mesg[sizeof(panic_mesg)]);
289 1.1 cgd }
290 1.13 pk /* Don't fclose(fp), we use dumpfd later. */
291 1.13 pk }
292 1.13 pk
293 1.13 pk void
294 1.13 pk clear_dump()
295 1.13 pk {
296 1.13 pk long newdumplo;
297 1.13 pk
298 1.13 pk newdumplo = 0;
299 1.13 pk Lseek(dumpfd, (off_t)(dumplo + ok(dump_nl[X_DUMPMAG].n_value)), L_SET);
300 1.13 pk Write(dumpfd, &newdumplo, sizeof(newdumplo));
301 1.1 cgd }
302 1.1 cgd
303 1.13 pk int
304 1.13 pk dump_exists()
305 1.1 cgd {
306 1.13 pk int newdumpmag;
307 1.1 cgd
308 1.13 pk Lseek(dumpfd, (off_t)(dumplo + ok(dump_nl[X_DUMPMAG].n_value)), L_SET);
309 1.13 pk (void)Read(dumpfd, &newdumpmag, sizeof(newdumpmag));
310 1.13 pk if (newdumpmag != dumpmag) {
311 1.1 cgd if (verbose)
312 1.13 pk syslog(LOG_WARNING, "magic number mismatch (%x != %x)",
313 1.13 pk newdumpmag, dumpmag);
314 1.13 pk syslog(LOG_WARNING, "no core dump");
315 1.1 cgd return (0);
316 1.1 cgd }
317 1.13 pk return (1);
318 1.13 pk }
319 1.13 pk
320 1.13 pk char buf[1024 * 1024];
321 1.13 pk
322 1.16 deraadt FILE *zopen __P((char *, char *, int));
323 1.16 deraadt
324 1.13 pk void
325 1.13 pk save_core()
326 1.13 pk {
327 1.13 pk register FILE *fp;
328 1.13 pk register int bounds, ifd, nr, nw, ofd;
329 1.13 pk char *rawp, path[MAXPATHLEN];
330 1.13 pk
331 1.13 pk /*
332 1.13 pk * Get the current number and update the bounds file. Do the update
333 1.13 pk * now, because may fail later and don't want to overwrite anything.
334 1.13 pk */
335 1.13 pk (void)snprintf(path, sizeof(path), "%s/bounds", dirname);
336 1.13 pk if ((fp = fopen(path, "r")) == NULL)
337 1.13 pk goto err1;
338 1.13 pk if (fgets(buf, sizeof(buf), fp) == NULL) {
339 1.13 pk if (ferror(fp))
340 1.13 pk err1: syslog(LOG_WARNING, "%s: %s", path, strerror(errno));
341 1.13 pk bounds = 0;
342 1.13 pk } else
343 1.13 pk bounds = atoi(buf);
344 1.13 pk if (fp != NULL)
345 1.13 pk (void)fclose(fp);
346 1.13 pk if ((fp = fopen(path, "w")) == NULL)
347 1.13 pk syslog(LOG_ERR, "%s: %m", path);
348 1.13 pk else {
349 1.13 pk (void)fprintf(fp, "%d\n", bounds + 1);
350 1.13 pk (void)fclose(fp);
351 1.13 pk }
352 1.13 pk (void)fclose(fp);
353 1.13 pk
354 1.13 pk /* Create the core file. */
355 1.15 mycroft (void)snprintf(path, sizeof(path), "%s/netbsd.%d%s.core",
356 1.13 pk dirname, bounds, compress ? ".Z" : "");
357 1.13 pk if (compress) {
358 1.13 pk if ((fp = zopen(path, "w", 0)) == NULL) {
359 1.13 pk syslog(LOG_ERR, "%s: %s", path, strerror(errno));
360 1.13 pk exit(1);
361 1.13 pk }
362 1.13 pk } else
363 1.13 pk ofd = Create(path, S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH);
364 1.13 pk
365 1.13 pk /* Open the raw device. */
366 1.13 pk rawp = rawname(ddname);
367 1.13 pk if ((ifd = open(rawp, O_RDONLY)) == -1) {
368 1.13 pk syslog(LOG_WARNING, "%s: %m; using block device", rawp);
369 1.13 pk ifd = dumpfd;
370 1.13 pk }
371 1.13 pk
372 1.13 pk /* Read the dump size. */
373 1.13 pk Lseek(dumpfd, (off_t)(dumplo + ok(dump_nl[X_DUMPSIZE].n_value)), L_SET);
374 1.13 pk (void)Read(dumpfd, &dumpsize, sizeof(dumpsize));
375 1.13 pk
376 1.13 pk /* Seek to the start of the core. */
377 1.13 pk Lseek(ifd, (off_t)dumplo, L_SET);
378 1.13 pk
379 1.13 pk /* Copy the core file. */
380 1.16 deraadt dumpsize *= getpagesize();
381 1.13 pk syslog(LOG_NOTICE, "writing %score to %s",
382 1.13 pk compress ? "compressed " : "", path);
383 1.13 pk for (; dumpsize > 0; dumpsize -= nr) {
384 1.13 pk (void)printf("%6dK\r", dumpsize / 1024);
385 1.13 pk (void)fflush(stdout);
386 1.13 pk nr = read(ifd, buf, MIN(dumpsize, sizeof(buf)));
387 1.13 pk if (nr <= 0) {
388 1.13 pk if (nr == 0)
389 1.13 pk syslog(LOG_WARNING,
390 1.13 pk "WARNING: EOF on dump device");
391 1.13 pk else
392 1.13 pk syslog(LOG_ERR, "%s: %m", rawp);
393 1.13 pk goto err2;
394 1.13 pk }
395 1.13 pk if (compress)
396 1.13 pk nw = fwrite(buf, 1, nr, fp);
397 1.13 pk else
398 1.13 pk nw = write(ofd, buf, nr);
399 1.13 pk if (nw != nr) {
400 1.13 pk syslog(LOG_ERR, "%s: %s",
401 1.13 pk path, strerror(nw == 0 ? EIO : errno));
402 1.13 pk err2: syslog(LOG_WARNING,
403 1.15 mycroft "WARNING: core may be incomplete");
404 1.13 pk (void)printf("\n");
405 1.13 pk exit(1);
406 1.13 pk }
407 1.13 pk }
408 1.13 pk (void)printf("\n");
409 1.13 pk (void)close(ifd);
410 1.13 pk if (compress)
411 1.13 pk (void)fclose(fp);
412 1.13 pk else
413 1.13 pk (void)close(ofd);
414 1.13 pk
415 1.13 pk /* Copy the kernel. */
416 1.15 mycroft ifd = Open(kernel ? kernel : _PATH_UNIX, O_RDONLY);
417 1.13 pk (void)snprintf(path, sizeof(path), "%s/netbsd.%d%s",
418 1.13 pk dirname, bounds, compress ? ".Z" : "");
419 1.13 pk if (compress) {
420 1.13 pk if ((fp = zopen(path, "w", 0)) == NULL) {
421 1.13 pk syslog(LOG_ERR, "%s: %s", path, strerror(errno));
422 1.13 pk exit(1);
423 1.13 pk }
424 1.13 pk } else
425 1.13 pk ofd = Create(path, S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH);
426 1.13 pk syslog(LOG_NOTICE, "writing %skernel to %s",
427 1.13 pk compress ? "compressed " : "", path);
428 1.13 pk while ((nr = read(ifd, buf, sizeof(buf))) > 0) {
429 1.13 pk if (compress)
430 1.13 pk nw = fwrite(buf, 1, nr, fp);
431 1.13 pk else
432 1.13 pk nw = write(ofd, buf, nr);
433 1.13 pk if (nw != nr) {
434 1.13 pk syslog(LOG_ERR, "%s: %s",
435 1.13 pk path, strerror(nw == 0 ? EIO : errno));
436 1.13 pk syslog(LOG_WARNING,
437 1.15 mycroft "WARNING: kernel may be incomplete");
438 1.13 pk exit(1);
439 1.13 pk }
440 1.13 pk }
441 1.13 pk if (nr < 0) {
442 1.13 pk syslog(LOG_ERR, "%s: %s",
443 1.15 mycroft kernel ? kernel : _PATH_UNIX, strerror(errno));
444 1.13 pk syslog(LOG_WARNING,
445 1.15 mycroft "WARNING: kernel may be incomplete");
446 1.13 pk exit(1);
447 1.1 cgd }
448 1.13 pk if (compress)
449 1.13 pk (void)fclose(fp);
450 1.13 pk else
451 1.13 pk (void)close(ofd);
452 1.1 cgd }
453 1.1 cgd
454 1.1 cgd char *
455 1.13 pk find_dev(dev, type)
456 1.13 pk register dev_t dev;
457 1.13 pk register int type;
458 1.1 cgd {
459 1.13 pk register DIR *dfd;
460 1.13 pk struct dirent *dir;
461 1.13 pk struct stat sb;
462 1.13 pk char *dp, devname[MAXPATHLEN + 1];
463 1.1 cgd
464 1.13 pk if ((dfd = opendir(_PATH_DEV)) == NULL) {
465 1.13 pk syslog(LOG_ERR, "%s: %s", _PATH_DEV, strerror(errno));
466 1.13 pk exit(1);
467 1.13 pk }
468 1.13 pk (void)strcpy(devname, _PATH_DEV);
469 1.13 pk while ((dir = readdir(dfd))) {
470 1.13 pk (void)strcpy(devname + sizeof(_PATH_DEV) - 1, dir->d_name);
471 1.13 pk if (lstat(devname, &sb)) {
472 1.13 pk syslog(LOG_ERR, "%s: %s", devname, strerror(errno));
473 1.13 pk continue;
474 1.13 pk }
475 1.13 pk if ((sb.st_mode & S_IFMT) != type)
476 1.13 pk continue;
477 1.13 pk if (dev == sb.st_rdev) {
478 1.13 pk closedir(dfd);
479 1.13 pk if ((dp = strdup(devname)) == NULL) {
480 1.13 pk syslog(LOG_ERR, "%s", strerror(errno));
481 1.13 pk exit(1);
482 1.13 pk }
483 1.13 pk return (dp);
484 1.13 pk }
485 1.13 pk }
486 1.13 pk closedir(dfd);
487 1.13 pk syslog(LOG_ERR, "can't find device %d/%d", major(dev), minor(dev));
488 1.13 pk exit(1);
489 1.1 cgd }
490 1.1 cgd
491 1.13 pk char *
492 1.13 pk rawname(s)
493 1.13 pk char *s;
494 1.1 cgd {
495 1.13 pk char *sl, name[MAXPATHLEN];
496 1.1 cgd
497 1.17 mycroft if ((sl = strrchr(s, '/')) == NULL || sl[1] == '0') {
498 1.13 pk syslog(LOG_ERR,
499 1.13 pk "can't make raw dump device name from %s", s);
500 1.13 pk return (s);
501 1.13 pk }
502 1.13 pk (void)snprintf(name, sizeof(name), "%.*s/r%s", sl - s, s, sl + 1);
503 1.13 pk if ((sl = strdup(name)) == NULL) {
504 1.13 pk syslog(LOG_ERR, "%s", strerror(errno));
505 1.1 cgd exit(1);
506 1.1 cgd }
507 1.13 pk return (sl);
508 1.1 cgd }
509 1.1 cgd
510 1.13 pk int
511 1.13 pk get_crashtime()
512 1.1 cgd {
513 1.13 pk time_t dumptime; /* Time the dump was taken. */
514 1.1 cgd
515 1.13 pk Lseek(dumpfd, (off_t)(dumplo + ok(dump_nl[X_TIME].n_value)), L_SET);
516 1.13 pk (void)Read(dumpfd, &dumptime, sizeof(dumptime));
517 1.13 pk if (dumptime == 0) {
518 1.13 pk if (verbose)
519 1.13 pk syslog(LOG_ERR, "dump time is zero");
520 1.1 cgd return (0);
521 1.13 pk }
522 1.13 pk (void)printf("savecore: system went down at %s", ctime(&dumptime));
523 1.13 pk #define LEEWAY (7 * SECSPERDAY)
524 1.13 pk if (dumptime < now - LEEWAY || dumptime > now + LEEWAY) {
525 1.13 pk (void)printf("dump time is unreasonable\n");
526 1.1 cgd return (0);
527 1.1 cgd }
528 1.13 pk return (1);
529 1.1 cgd }
530 1.1 cgd
531 1.13 pk int
532 1.13 pk check_space()
533 1.1 cgd {
534 1.1 cgd register FILE *fp;
535 1.15 mycroft char *tkernel;
536 1.15 mycroft off_t minfree, spacefree, kernelsize, needed;
537 1.13 pk struct stat st;
538 1.13 pk struct statfs fsbuf;
539 1.13 pk char buf[100], path[MAXPATHLEN];
540 1.13 pk
541 1.15 mycroft tkernel = kernel ? kernel : _PATH_UNIX;
542 1.15 mycroft if (stat(tkernel, &st) < 0) {
543 1.15 mycroft syslog(LOG_ERR, "%s: %m", tkernel);
544 1.13 pk exit(1);
545 1.13 pk }
546 1.15 mycroft kernelsize = st.st_blocks * S_BLKSIZE;
547 1.13 pk if (statfs(dirname, &fsbuf) < 0) {
548 1.13 pk syslog(LOG_ERR, "%s: %m", dirname);
549 1.13 pk exit(1);
550 1.13 pk }
551 1.13 pk spacefree = (fsbuf.f_bavail * fsbuf.f_bsize) / 1024;
552 1.1 cgd
553 1.13 pk (void)snprintf(path, sizeof(path), "%s/minfree", dirname);
554 1.13 pk if ((fp = fopen(path, "r")) == NULL)
555 1.13 pk minfree = 0;
556 1.13 pk else {
557 1.13 pk if (fgets(buf, sizeof(buf), fp) == NULL)
558 1.13 pk minfree = 0;
559 1.13 pk else
560 1.13 pk minfree = atoi(buf);
561 1.13 pk (void)fclose(fp);
562 1.1 cgd }
563 1.13 pk
564 1.15 mycroft needed = (dumpsize + kernelsize) / 1024;
565 1.13 pk if (minfree > 0 && spacefree - needed < minfree) {
566 1.13 pk syslog(LOG_WARNING,
567 1.13 pk "no dump, not enough free space on device");
568 1.13 pk return (0);
569 1.1 cgd }
570 1.13 pk if (spacefree - needed < minfree)
571 1.13 pk syslog(LOG_WARNING,
572 1.13 pk "dump performed, but free space threshold crossed");
573 1.13 pk return (1);
574 1.1 cgd }
575 1.1 cgd
576 1.13 pk int
577 1.1 cgd Open(name, rw)
578 1.1 cgd char *name;
579 1.1 cgd int rw;
580 1.1 cgd {
581 1.1 cgd int fd;
582 1.1 cgd
583 1.13 pk if ((fd = open(name, rw, 0)) < 0) {
584 1.13 pk syslog(LOG_ERR, "%s: %m", name);
585 1.1 cgd exit(1);
586 1.1 cgd }
587 1.1 cgd return (fd);
588 1.1 cgd }
589 1.1 cgd
590 1.13 pk int
591 1.13 pk Read(fd, bp, size)
592 1.1 cgd int fd, size;
593 1.13 pk void *bp;
594 1.1 cgd {
595 1.13 pk int nr;
596 1.1 cgd
597 1.13 pk nr = read(fd, bp, size);
598 1.13 pk if (nr != size) {
599 1.13 pk syslog(LOG_ERR, "read: %m");
600 1.1 cgd exit(1);
601 1.1 cgd }
602 1.13 pk return (nr);
603 1.1 cgd }
604 1.1 cgd
605 1.13 pk void
606 1.1 cgd Lseek(fd, off, flag)
607 1.1 cgd int fd, flag;
608 1.13 pk off_t off;
609 1.1 cgd {
610 1.13 pk off_t ret;
611 1.1 cgd
612 1.1 cgd ret = lseek(fd, off, flag);
613 1.1 cgd if (ret == -1) {
614 1.13 pk syslog(LOG_ERR, "lseek: %m");
615 1.1 cgd exit(1);
616 1.1 cgd }
617 1.1 cgd }
618 1.1 cgd
619 1.13 pk int
620 1.1 cgd Create(file, mode)
621 1.1 cgd char *file;
622 1.1 cgd int mode;
623 1.1 cgd {
624 1.1 cgd register int fd;
625 1.1 cgd
626 1.17 mycroft fd = open(file, O_WRONLY | O_CREAT | O_TRUNC, mode);
627 1.1 cgd if (fd < 0) {
628 1.13 pk syslog(LOG_ERR, "%s: %m", file);
629 1.1 cgd exit(1);
630 1.1 cgd }
631 1.1 cgd return (fd);
632 1.1 cgd }
633 1.1 cgd
634 1.13 pk void
635 1.13 pk Write(fd, bp, size)
636 1.1 cgd int fd, size;
637 1.13 pk void *bp;
638 1.1 cgd {
639 1.1 cgd int n;
640 1.1 cgd
641 1.13 pk if ((n = write(fd, bp, size)) < size) {
642 1.13 pk syslog(LOG_ERR, "write: %s", strerror(n == -1 ? errno : EIO));
643 1.1 cgd exit(1);
644 1.1 cgd }
645 1.1 cgd }
646 1.1 cgd
647 1.13 pk void
648 1.1 cgd usage()
649 1.1 cgd {
650 1.13 pk (void)syslog(LOG_ERR, "usage: savecore [-cfvz] [-N system] directory");
651 1.1 cgd exit(1);
652 1.1 cgd }
653