savecore.c revision 196528
1235783Skib/*- 2235783Skib * Copyright (c) 2002 Poul-Henning Kamp 3235783Skib * Copyright (c) 2002 Networks Associates Technology, Inc. 4235783Skib * All rights reserved. 5235783Skib * 6235783Skib * This software was developed for the FreeBSD Project by Poul-Henning Kamp 7235783Skib * and NAI Labs, the Security Research Division of Network Associates, Inc. 8235783Skib * under DARPA/SPAWAR contract N66001-01-C-8035 ("CBOSS"), as part of the 9235783Skib * DARPA CHATS research program. 10235783Skib * 11235783Skib * Redistribution and use in source and binary forms, with or without 12235783Skib * modification, are permitted provided that the following conditions 13235783Skib * are met: 14235783Skib * 1. Redistributions of source code must retain the above copyright 15235783Skib * notice, this list of conditions and the following disclaimer. 16235783Skib * 2. Redistributions in binary form must reproduce the above copyright 17235783Skib * notice, this list of conditions and the following disclaimer in the 18235783Skib * documentation and/or other materials provided with the distribution. 19235783Skib * 3. The names of the authors may not be used to endorse or promote 20235783Skib * products derived from this software without specific prior written 21235783Skib * permission. 22235783Skib * 23235783Skib * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 24235783Skib * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25235783Skib * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26235783Skib * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 27235783Skib * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28235783Skib * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29235783Skib * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30235783Skib * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31235783Skib * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32235783Skib * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33235783Skib * SUCH DAMAGE. 34235783Skib * 35235783Skib * Copyright (c) 1986, 1992, 1993 36235783Skib * The Regents of the University of California. All rights reserved. 37235783Skib * 38235783Skib * Redistribution and use in source and binary forms, with or without 39235783Skib * modification, are permitted provided that the following conditions 40235783Skib * are met: 41235783Skib * 1. Redistributions of source code must retain the above copyright 42235783Skib * notice, this list of conditions and the following disclaimer. 43235783Skib * 2. Redistributions in binary form must reproduce the above copyright 44235783Skib * notice, this list of conditions and the following disclaimer in the 45235783Skib * documentation and/or other materials provided with the distribution. 46235783Skib * 3. All advertising materials mentioning features or use of this software 47235783Skib * must display the following acknowledgement: 48235783Skib * This product includes software developed by the University of 49235783Skib * California, Berkeley and its contributors. 50235783Skib * 4. Neither the name of the University nor the names of its contributors 51235783Skib * may be used to endorse or promote products derived from this software 52235783Skib * without specific prior written permission. 53235783Skib * 54235783Skib * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 55235783Skib * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 56235783Skib * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 57235783Skib * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 58235783Skib * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 59235783Skib * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 60235783Skib * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 61235783Skib * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 62235783Skib * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 63235783Skib * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 64235783Skib * SUCH DAMAGE. 65235783Skib */ 66235783Skib 67235783Skib#include <sys/cdefs.h> 68235783Skib__FBSDID("$FreeBSD: head/sbin/savecore/savecore.c 196528 2009-08-25 06:21:45Z lulf $"); 69235783Skib 70235783Skib#include <sys/param.h> 71235783Skib#include <sys/disk.h> 72235783Skib#include <sys/kerneldump.h> 73235783Skib#include <sys/param.h> 74235783Skib#include <sys/mount.h> 75235783Skib#include <sys/stat.h> 76235783Skib#include <errno.h> 77235783Skib#include <fcntl.h> 78235783Skib#include <fstab.h> 79235783Skib#include <paths.h> 80235783Skib#include <stdarg.h> 81235783Skib#include <stdio.h> 82235783Skib#include <stdlib.h> 83235783Skib#include <string.h> 84235783Skib#include <syslog.h> 85235783Skib#include <time.h> 86235783Skib#include <unistd.h> 87235783Skib 88235783Skib/* The size of the buffer used for I/O. */ 89235783Skib#define BUFFERSIZE (1024*1024) 90235783Skib 91235783Skib#define STATUS_BAD 0 92235783Skib#define STATUS_GOOD 1 93235783Skib#define STATUS_UNKNOWN 2 94235783Skib 95235783Skibstatic int checkfor, compress, clear, force, keep, verbose; /* flags */ 96235783Skibstatic int nfound, nsaved, nerr; /* statistics */ 97235783Skib 98235783Skibextern FILE *zopen(const char *, const char *); 99235783Skib 100235783Skibstatic sig_atomic_t got_siginfo; 101235783Skibstatic void infohandler(int); 102235783Skib 103235783Skibstatic void 104235783Skibprintheader(FILE *f, const struct kerneldumpheader *h, const char *device, 105235783Skib int bounds, const int status) 106235783Skib{ 107235783Skib uint64_t dumplen; 108235783Skib time_t t; 109235783Skib const char *stat_str; 110235783Skib 111235783Skib fprintf(f, "Dump header from device %s\n", device); 112235783Skib fprintf(f, " Architecture: %s\n", h->architecture); 113235783Skib fprintf(f, " Architecture Version: %u\n", 114235783Skib dtoh32(h->architectureversion)); 115235783Skib dumplen = dtoh64(h->dumplength); 116235783Skib fprintf(f, " Dump Length: %lldB (%lld MB)\n", (long long)dumplen, 117235783Skib (long long)(dumplen >> 20)); 118235783Skib fprintf(f, " Blocksize: %d\n", dtoh32(h->blocksize)); 119235783Skib t = dtoh64(h->dumptime); 120235783Skib fprintf(f, " Dumptime: %s", ctime(&t)); 121235783Skib fprintf(f, " Hostname: %s\n", h->hostname); 122235783Skib fprintf(f, " Magic: %s\n", h->magic); 123235783Skib fprintf(f, " Version String: %s", h->versionstring); 124235783Skib fprintf(f, " Panic String: %s\n", h->panicstring); 125235783Skib fprintf(f, " Dump Parity: %u\n", h->parity); 126235783Skib fprintf(f, " Bounds: %d\n", bounds); 127235783Skib 128235783Skib switch(status) { 129235783Skib case STATUS_BAD: 130235783Skib stat_str = "bad"; 131235783Skib break; 132235783Skib case STATUS_GOOD: 133235783Skib stat_str = "good"; 134235783Skib break; 135235783Skib default: 136235783Skib stat_str = "unknown"; 137235783Skib } 138235783Skib fprintf(f, " Dump Status: %s\n", stat_str); 139235783Skib fflush(f); 140235783Skib} 141235783Skib 142235783Skibstatic int 143235783Skibgetbounds(void) { 144235783Skib FILE *fp; 145235783Skib char buf[6]; 146235783Skib int ret; 147235783Skib 148235783Skib ret = 0; 149235783Skib 150235783Skib if ((fp = fopen("bounds", "r")) == NULL) { 151235783Skib if (verbose) 152235783Skib printf("unable to open bounds file, using 0\n"); 153235783Skib return (ret); 154235783Skib } 155235783Skib 156235783Skib if (fgets(buf, sizeof buf, fp) == NULL) { 157235783Skib syslog(LOG_WARNING, "unable to read from bounds, using 0"); 158235783Skib fclose(fp); 159235783Skib return (ret); 160235783Skib } 161235783Skib 162235783Skib errno = 0; 163235783Skib ret = (int)strtol(buf, NULL, 10); 164235783Skib if (ret == 0 && (errno == EINVAL || errno == ERANGE)) 165235783Skib syslog(LOG_WARNING, "invalid value found in bounds, using 0"); 166235783Skib return (ret); 167235783Skib} 168235783Skib 169235783Skibstatic void 170235783Skibwritebounds(int bounds) { 171235783Skib FILE *fp; 172235783Skib 173235783Skib if ((fp = fopen("bounds", "w")) == NULL) { 174235783Skib syslog(LOG_WARNING, "unable to write to bounds file: %m"); 175235783Skib return; 176235783Skib } 177235783Skib 178235783Skib if (verbose) 179235783Skib printf("bounds number: %d\n", bounds); 180255012Sjkim 181255012Sjkim fprintf(fp, "%d\n", bounds); 182255012Sjkim fclose(fp); 183255012Sjkim} 184255012Sjkim 185255012Sjkim/* 186255012Sjkim * Check that sufficient space is available on the disk that holds the 187255012Sjkim * save directory. 188255012Sjkim */ 189235783Skibstatic int 190235783Skibcheck_space(const char *savedir, off_t dumpsize) 191235783Skib{ 192235783Skib FILE *fp; 193235783Skib off_t minfree, spacefree, totfree, needed; 194235783Skib struct statfs fsbuf; 195235783Skib char buf[100], path[MAXPATHLEN]; 196235783Skib 197235783Skib if (statfs(savedir, &fsbuf) < 0) { 198235783Skib syslog(LOG_ERR, "%s: %m", savedir); 199235783Skib exit(1); 200235783Skib } 201235783Skib spacefree = ((off_t) fsbuf.f_bavail * fsbuf.f_bsize) / 1024; 202235783Skib totfree = ((off_t) fsbuf.f_bfree * fsbuf.f_bsize) / 1024; 203235783Skib 204235783Skib (void)snprintf(path, sizeof(path), "%s/minfree", savedir); 205235783Skib if ((fp = fopen(path, "r")) == NULL) 206235783Skib minfree = 0; 207235783Skib else { 208235783Skib if (fgets(buf, sizeof(buf), fp) == NULL) 209235783Skib minfree = 0; 210235783Skib else 211235783Skib minfree = atoi(buf); 212235783Skib (void)fclose(fp); 213235783Skib } 214235783Skib 215235783Skib needed = dumpsize / 1024 + 2; /* 2 for info file */ 216235783Skib if (((minfree > 0) ? spacefree : totfree) - needed < minfree) { 217235783Skib syslog(LOG_WARNING, 218235783Skib "no dump, not enough free space on device (%lld available, need %lld)", 219235783Skib (long long)(minfree > 0 ? spacefree : totfree), 220235783Skib (long long)needed); 221235783Skib return (0); 222255012Sjkim } 223255012Sjkim if (spacefree - needed < 0) 224235783Skib syslog(LOG_WARNING, 225255012Sjkim "dump performed, but free space threshold crossed"); 226255012Sjkim return (1); 227255012Sjkim} 228255012Sjkim 229255012Sjkim#define BLOCKSIZE (1<<12) 230255012Sjkim#define BLOCKMASK (~(BLOCKSIZE-1)) 231255012Sjkim 232255012Sjkimstatic int 233235783SkibDoRegularFile(int fd, off_t dumpsize, char *buf, const char *device, 234255012Sjkim const char *filename, FILE *fp) 235255012Sjkim{ 236235783Skib int he, hs, nr, nw, wl; 237235783Skib off_t dmpcnt, origsize; 238235783Skib 239235783Skib dmpcnt = 0; 240235783Skib origsize = dumpsize; 241235783Skib he = 0; 242235783Skib while (dumpsize > 0) { 243235783Skib wl = BUFFERSIZE; 244235783Skib if (wl > dumpsize) 245235783Skib wl = dumpsize; 246235783Skib nr = read(fd, buf, wl); 247235783Skib if (nr != wl) { 248235783Skib if (nr == 0) 249235783Skib syslog(LOG_WARNING, 250235783Skib "WARNING: EOF on dump device"); 251235783Skib else 252235783Skib syslog(LOG_ERR, "read error on %s: %m", device); 253235783Skib nerr++; 254235783Skib return (-1); 255235783Skib } 256235783Skib if (compress) { 257235783Skib nw = fwrite(buf, 1, wl, fp); 258235783Skib } else { 259235783Skib for (nw = 0; nw < nr; nw = he) { 260235783Skib /* find a contiguous block of zeroes */ 261235783Skib for (hs = nw; hs < nr; hs += BLOCKSIZE) { 262235783Skib for (he = hs; he < nr && buf[he] == 0; 263235783Skib ++he) 264235783Skib /* nothing */ ; 265235783Skib /* is the hole long enough to matter? */ 266235783Skib if (he >= hs + BLOCKSIZE) 267235783Skib break; 268235783Skib } 269235783Skib 270235783Skib /* back down to a block boundary */ 271235783Skib he &= BLOCKMASK; 272235783Skib 273235783Skib /* 274235783Skib * 1) Don't go beyond the end of the buffer. 275235783Skib * 2) If the end of the buffer is less than 276235783Skib * BLOCKSIZE bytes away, we're at the end 277235783Skib * of the file, so just grab what's left. 278235783Skib */ 279235783Skib if (hs + BLOCKSIZE > nr) 280235783Skib hs = he = nr; 281235783Skib 282235783Skib /* 283235783Skib * At this point, we have a partial ordering: 284235783Skib * nw <= hs <= he <= nr 285235783Skib * If hs > nw, buf[nw..hs] contains non-zero data. 286235783Skib * If he > hs, buf[hs..he] is all zeroes. 287235783Skib */ 288235783Skib if (hs > nw) 289235783Skib if (fwrite(buf + nw, hs - nw, 1, fp) 290235783Skib != 1) 291235783Skib break; 292235783Skib if (he > hs) 293235783Skib if (fseeko(fp, he - hs, SEEK_CUR) == -1) 294235783Skib break; 295235783Skib } 296235783Skib } 297235783Skib if (nw != wl) { 298235783Skib syslog(LOG_ERR, 299235783Skib "write error on %s file: %m", filename); 300235783Skib syslog(LOG_WARNING, 301235783Skib "WARNING: vmcore may be incomplete"); 302235783Skib nerr++; 303235783Skib return (-1); 304235783Skib } 305235783Skib if (verbose) { 306235783Skib dmpcnt += wl; 307235783Skib printf("%llu\r", (unsigned long long)dmpcnt); 308235783Skib fflush(stdout); 309235783Skib } 310235783Skib dumpsize -= wl; 311235783Skib if (got_siginfo) { 312235783Skib printf("%s %.1lf%%\n", filename, (100.0 - (100.0 * 313235783Skib (double)dumpsize / (double)origsize))); 314235783Skib got_siginfo = 0; 315235783Skib } 316235783Skib } 317235783Skib return (0); 318235783Skib} 319235783Skib 320235783Skib/* 321235783Skib * Specialized version of dump-reading logic for use with textdumps, which 322235783Skib * are written backwards from the end of the partition, and must be reversed 323235783Skib * before being written to the file. Textdumps are small, so do a bit less 324235783Skib * work to optimize/sparsify. 325235783Skib */ 326235783Skibstatic int 327235783SkibDoTextdumpFile(int fd, off_t dumpsize, off_t lasthd, char *buf, 328235783Skib const char *device, const char *filename, FILE *fp) 329235783Skib{ 330235783Skib int nr, nw, wl; 331235783Skib off_t dmpcnt, totsize; 332235783Skib 333235783Skib totsize = dumpsize; 334235783Skib dmpcnt = 0; 335235783Skib wl = 512; 336235783Skib if ((dumpsize % wl) != 0) { 337235783Skib syslog(LOG_ERR, "textdump uneven multiple of 512 on %s", 338235783Skib device); 339235783Skib nerr++; 340235783Skib return (-1); 341235783Skib } 342235783Skib while (dumpsize > 0) { 343235783Skib nr = pread(fd, buf, wl, lasthd - (totsize - dumpsize) - wl); 344235783Skib if (nr != wl) { 345235783Skib if (nr == 0) 346235783Skib syslog(LOG_WARNING, 347235783Skib "WARNING: EOF on dump device"); 348235783Skib else 349235783Skib syslog(LOG_ERR, "read error on %s: %m", device); 350235783Skib nerr++; 351235783Skib return (-1); 352235783Skib } 353235783Skib nw = fwrite(buf, 1, wl, fp); 354235783Skib if (nw != wl) { 355235783Skib syslog(LOG_ERR, 356235783Skib "write error on %s file: %m", filename); 357235783Skib syslog(LOG_WARNING, 358235783Skib "WARNING: textdump may be incomplete"); 359235783Skib nerr++; 360235783Skib return (-1); 361235783Skib } 362235783Skib if (verbose) { 363235783Skib dmpcnt += wl; 364235783Skib printf("%llu\r", (unsigned long long)dmpcnt); 365235783Skib fflush(stdout); 366235783Skib } 367235783Skib dumpsize -= wl; 368235783Skib } 369235783Skib return (0); 370235783Skib} 371235783Skib 372235783Skibstatic void 373235783SkibDoFile(const char *savedir, const char *device) 374235783Skib{ 375235783Skib static char filename[PATH_MAX]; 376235783Skib static char *buf = NULL; 377235783Skib struct kerneldumpheader kdhf, kdhl; 378235783Skib off_t mediasize, dumpsize, firsthd, lasthd; 379235783Skib FILE *info, *fp; 380235783Skib mode_t oumask; 381235783Skib int fd, fdinfo, error; 382235783Skib int bounds, status; 383 u_int sectorsize; 384 int istextdump; 385 386 bounds = getbounds(); 387 mediasize = 0; 388 status = STATUS_UNKNOWN; 389 390 if (buf == NULL) { 391 buf = malloc(BUFFERSIZE); 392 if (buf == NULL) { 393 syslog(LOG_ERR, "%m"); 394 return; 395 } 396 } 397 398 if (verbose) 399 printf("checking for kernel dump on device %s\n", device); 400 401 fd = open(device, O_RDWR); 402 if (fd < 0) { 403 syslog(LOG_ERR, "%s: %m", device); 404 return; 405 } 406 407 error = ioctl(fd, DIOCGMEDIASIZE, &mediasize); 408 if (!error) 409 error = ioctl(fd, DIOCGSECTORSIZE, §orsize); 410 if (error) { 411 syslog(LOG_ERR, 412 "couldn't find media and/or sector size of %s: %m", device); 413 goto closefd; 414 } 415 416 if (verbose) { 417 printf("mediasize = %lld\n", (long long)mediasize); 418 printf("sectorsize = %u\n", sectorsize); 419 } 420 421 lasthd = mediasize - sectorsize; 422 lseek(fd, lasthd, SEEK_SET); 423 error = read(fd, &kdhl, sizeof kdhl); 424 if (error != sizeof kdhl) { 425 syslog(LOG_ERR, 426 "error reading last dump header at offset %lld in %s: %m", 427 (long long)lasthd, device); 428 goto closefd; 429 } 430 istextdump = 0; 431 if (strncmp(kdhl.magic, TEXTDUMPMAGIC, sizeof kdhl) == 0) { 432 if (verbose) 433 printf("textdump magic on last dump header on %s\n", 434 device); 435 istextdump = 1; 436 if (dtoh32(kdhl.version) != KERNELDUMP_TEXT_VERSION) { 437 syslog(LOG_ERR, 438 "unknown version (%d) in last dump header on %s", 439 dtoh32(kdhl.version), device); 440 441 status = STATUS_BAD; 442 if (force == 0) 443 goto closefd; 444 } 445 } else if (memcmp(kdhl.magic, KERNELDUMPMAGIC, sizeof kdhl.magic) == 446 0) { 447 if (dtoh32(kdhl.version) != KERNELDUMPVERSION) { 448 syslog(LOG_ERR, 449 "unknown version (%d) in last dump header on %s", 450 dtoh32(kdhl.version), device); 451 452 status = STATUS_BAD; 453 if (force == 0) 454 goto closefd; 455 } 456 } else { 457 if (verbose) 458 printf("magic mismatch on last dump header on %s\n", 459 device); 460 461 status = STATUS_BAD; 462 if (force == 0) 463 goto closefd; 464 465 if (memcmp(kdhl.magic, KERNELDUMPMAGIC_CLEARED, 466 sizeof kdhl.magic) == 0) { 467 if (verbose) 468 printf("forcing magic on %s\n", device); 469 memcpy(kdhl.magic, KERNELDUMPMAGIC, 470 sizeof kdhl.magic); 471 } else { 472 syslog(LOG_ERR, "unable to force dump - bad magic"); 473 goto closefd; 474 } 475 if (dtoh32(kdhl.version) != KERNELDUMPVERSION) { 476 syslog(LOG_ERR, 477 "unknown version (%d) in last dump header on %s", 478 dtoh32(kdhl.version), device); 479 480 status = STATUS_BAD; 481 if (force == 0) 482 goto closefd; 483 } 484 } 485 486 nfound++; 487 if (clear) 488 goto nuke; 489 490 if (kerneldump_parity(&kdhl)) { 491 syslog(LOG_ERR, 492 "parity error on last dump header on %s", device); 493 nerr++; 494 status = STATUS_BAD; 495 if (force == 0) 496 goto closefd; 497 } 498 dumpsize = dtoh64(kdhl.dumplength); 499 firsthd = lasthd - dumpsize - sizeof kdhf; 500 lseek(fd, firsthd, SEEK_SET); 501 error = read(fd, &kdhf, sizeof kdhf); 502 if (error != sizeof kdhf) { 503 syslog(LOG_ERR, 504 "error reading first dump header at offset %lld in %s: %m", 505 (long long)firsthd, device); 506 nerr++; 507 goto closefd; 508 } 509 510 if (verbose >= 2) { 511 printf("First dump headers:\n"); 512 printheader(stdout, &kdhf, device, bounds, -1); 513 514 printf("\nLast dump headers:\n"); 515 printheader(stdout, &kdhl, device, bounds, -1); 516 printf("\n"); 517 } 518 519 if (memcmp(&kdhl, &kdhf, sizeof kdhl)) { 520 syslog(LOG_ERR, 521 "first and last dump headers disagree on %s", device); 522 nerr++; 523 status = STATUS_BAD; 524 if (force == 0) 525 goto closefd; 526 } else { 527 status = STATUS_GOOD; 528 } 529 530 if (checkfor) { 531 printf("A dump exists on %s\n", device); 532 close(fd); 533 exit(0); 534 } 535 536 if (kdhl.panicstring[0]) 537 syslog(LOG_ALERT, "reboot after panic: %s", kdhl.panicstring); 538 else 539 syslog(LOG_ALERT, "reboot"); 540 541 if (verbose) 542 printf("Checking for available free space\n"); 543 if (!check_space(savedir, dumpsize)) { 544 nerr++; 545 goto closefd; 546 } 547 548 writebounds(bounds + 1); 549 550 sprintf(buf, "info.%d", bounds); 551 552 /* 553 * Create or overwrite any existing dump header files. 554 */ 555 fdinfo = open(buf, O_WRONLY | O_CREAT | O_TRUNC, 0600); 556 if (fdinfo < 0) { 557 syslog(LOG_ERR, "%s: %m", buf); 558 nerr++; 559 goto closefd; 560 } 561 oumask = umask(S_IRWXG|S_IRWXO); /* Restrict access to the core file.*/ 562 if (compress) { 563 sprintf(filename, "%s.%d.gz", istextdump ? "textdump.tar" : 564 "vmcore", bounds); 565 fp = zopen(filename, "w"); 566 } else { 567 sprintf(filename, "%s.%d", istextdump ? "textdump.tar" : 568 "vmcore", bounds); 569 fp = fopen(filename, "w"); 570 } 571 if (fp == NULL) { 572 syslog(LOG_ERR, "%s: %m", filename); 573 close(fdinfo); 574 nerr++; 575 goto closefd; 576 } 577 (void)umask(oumask); 578 579 info = fdopen(fdinfo, "w"); 580 581 if (info == NULL) { 582 syslog(LOG_ERR, "fdopen failed: %m"); 583 nerr++; 584 goto closefd; 585 } 586 587 if (verbose) 588 printheader(stdout, &kdhl, device, bounds, status); 589 590 printheader(info, &kdhl, device, bounds, status); 591 fclose(info); 592 593 syslog(LOG_NOTICE, "writing %score to %s", 594 compress ? "compressed " : "", filename); 595 596 if (istextdump) { 597 if (DoTextdumpFile(fd, dumpsize, lasthd, buf, device, 598 filename, fp) < 0) 599 goto closeall; 600 } else { 601 if (DoRegularFile(fd, dumpsize, buf, device, filename, fp) 602 < 0) 603 goto closeall; 604 } 605 if (verbose) 606 printf("\n"); 607 608 if (fclose(fp) < 0) { 609 syslog(LOG_ERR, "error on %s: %m", filename); 610 nerr++; 611 goto closeall; 612 } 613 nsaved++; 614 615 if (verbose) 616 printf("dump saved\n"); 617 618nuke: 619 if (clear || !keep) { 620 if (verbose) 621 printf("clearing dump header\n"); 622 memcpy(kdhl.magic, KERNELDUMPMAGIC_CLEARED, sizeof kdhl.magic); 623 lseek(fd, lasthd, SEEK_SET); 624 error = write(fd, &kdhl, sizeof kdhl); 625 if (error != sizeof kdhl) 626 syslog(LOG_ERR, 627 "error while clearing the dump header: %m"); 628 } 629 close(fd); 630 return; 631 632closeall: 633 fclose(fp); 634 635closefd: 636 close(fd); 637} 638 639static void 640usage(void) 641{ 642 fprintf(stderr, "%s\n%s\n%s\n", 643 "usage: savecore -c", 644 " savecore -C [-v] [directory device]", 645 " savecore [-fkvz] [directory [device ...]]"); 646 exit (1); 647} 648 649int 650main(int argc, char **argv) 651{ 652 const char *savedir = "."; 653 struct fstab *fsp; 654 int i, ch, error; 655 656 checkfor = compress = clear = force = keep = verbose = 0; 657 nfound = nsaved = nerr = 0; 658 659 openlog("savecore", LOG_PERROR, LOG_DAEMON); 660 signal(SIGINFO, infohandler); 661 662 while ((ch = getopt(argc, argv, "Ccfkvz")) != -1) 663 switch(ch) { 664 case 'C': 665 checkfor = 1; 666 break; 667 case 'c': 668 clear = 1; 669 break; 670 case 'k': 671 keep = 1; 672 break; 673 case 'v': 674 verbose++; 675 break; 676 case 'f': 677 force = 1; 678 break; 679 case 'z': 680 compress = 1; 681 break; 682 case '?': 683 default: 684 usage(); 685 } 686 if (checkfor && (clear || force || keep)) 687 usage(); 688 argc -= optind; 689 argv += optind; 690 if (argc >= 1) { 691 error = chdir(argv[0]); 692 if (error) { 693 syslog(LOG_ERR, "chdir(%s): %m", argv[0]); 694 exit(1); 695 } 696 savedir = argv[0]; 697 argc--; 698 argv++; 699 } 700 if (argc == 0) { 701 for (;;) { 702 fsp = getfsent(); 703 if (fsp == NULL) 704 break; 705 if (strcmp(fsp->fs_vfstype, "swap") && 706 strcmp(fsp->fs_vfstype, "dump")) 707 continue; 708 DoFile(savedir, fsp->fs_spec); 709 } 710 } else { 711 for (i = 0; i < argc; i++) 712 DoFile(savedir, argv[i]); 713 } 714 715 /* Emit minimal output. */ 716 if (nfound == 0) { 717 if (checkfor) { 718 printf("No dump exists\n"); 719 exit(1); 720 } 721 syslog(LOG_WARNING, "no dumps found"); 722 } 723 else if (nsaved == 0) { 724 if (nerr != 0) 725 syslog(LOG_WARNING, "unsaved dumps found but not saved"); 726 else 727 syslog(LOG_WARNING, "no unsaved dumps found"); 728 } 729 730 return (0); 731} 732 733static void 734infohandler(int sig __unused) 735{ 736 got_siginfo = 1; 737} 738