8a16b7a18f
Mainly focus on files that use BSD 3-Clause license. The Software Package Data Exchange (SPDX) group provides a specification to make it easier for automated tools to detect and summarize well known opensource licenses. We are gradually adopting the specification, noting that the tags are considered only advisory and do not, in any way, superceed or replace the license texts. Special thanks to Wind River for providing access to "The Duke of Highlander" tool: an older (2014) run over FreeBSD tree was useful as a starting point.
1012 lines
25 KiB
C
1012 lines
25 KiB
C
/*-
|
|
* SPDX-License-Identifier: BSD-3-Clause
|
|
*
|
|
* Copyright (c) 2002 Poul-Henning Kamp
|
|
* Copyright (c) 2002 Networks Associates Technology, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This software was developed for the FreeBSD Project by Poul-Henning Kamp
|
|
* and NAI Labs, the Security Research Division of Network Associates, Inc.
|
|
* under DARPA/SPAWAR contract N66001-01-C-8035 ("CBOSS"), as part of the
|
|
* DARPA CHATS research program.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. The names of the authors may not be used to endorse or promote
|
|
* products derived from this software without specific prior written
|
|
* permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*
|
|
* Copyright (c) 1986, 1992, 1993
|
|
* The Regents of the University of California. All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. Neither the name of the University nor the names of its contributors
|
|
* may be used to endorse or promote products derived from this software
|
|
* without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
__FBSDID("$FreeBSD$");
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/disk.h>
|
|
#include <sys/kerneldump.h>
|
|
#include <sys/mount.h>
|
|
#include <sys/stat.h>
|
|
#include <ctype.h>
|
|
#include <errno.h>
|
|
#include <fcntl.h>
|
|
#include <fstab.h>
|
|
#include <paths.h>
|
|
#include <signal.h>
|
|
#include <stdarg.h>
|
|
#include <stdbool.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <syslog.h>
|
|
#include <time.h>
|
|
#include <unistd.h>
|
|
#include <libxo/xo.h>
|
|
|
|
/* The size of the buffer used for I/O. */
|
|
#define BUFFERSIZE (1024*1024)
|
|
|
|
#define STATUS_BAD 0
|
|
#define STATUS_GOOD 1
|
|
#define STATUS_UNKNOWN 2
|
|
|
|
static int checkfor, compress, clear, force, keep, verbose; /* flags */
|
|
static int nfound, nsaved, nerr; /* statistics */
|
|
static int maxdumps;
|
|
|
|
extern FILE *zopen(const char *, const char *);
|
|
|
|
static sig_atomic_t got_siginfo;
|
|
static void infohandler(int);
|
|
|
|
static void
|
|
printheader(xo_handle_t *xo, const struct kerneldumpheader *h,
|
|
const char *device, int bounds, const int status)
|
|
{
|
|
uint64_t dumplen;
|
|
time_t t;
|
|
const char *stat_str;
|
|
|
|
xo_flush_h(xo);
|
|
xo_emit_h(xo, "{Lwc:Dump header from device}{:dump_device/%s}\n",
|
|
device);
|
|
xo_emit_h(xo, "{P: }{Lwc:Architecture}{:architecture/%s}\n",
|
|
h->architecture);
|
|
xo_emit_h(xo,
|
|
"{P: }{Lwc:Architecture Version}{:architecture_version/%u}\n",
|
|
dtoh32(h->architectureversion));
|
|
dumplen = dtoh64(h->dumplength);
|
|
xo_emit_h(xo, "{P: }{Lwc:Dump Length}{:dump_length_bytes/%lld}\n",
|
|
(long long)dumplen);
|
|
xo_emit_h(xo, "{P: }{Lwc:Blocksize}{:blocksize/%d}\n",
|
|
dtoh32(h->blocksize));
|
|
xo_emit_h(xo, "{P: }{Lwc:Compression}{:compression/%s}\n",
|
|
h->compression == KERNELDUMP_COMP_GZIP ?
|
|
"gzip" : "none");
|
|
|
|
t = dtoh64(h->dumptime);
|
|
xo_emit_h(xo, "{P: }{Lwc:Dumptime}{:dumptime/%s}", ctime(&t));
|
|
xo_emit_h(xo, "{P: }{Lwc:Hostname}{:hostname/%s}\n", h->hostname);
|
|
xo_emit_h(xo, "{P: }{Lwc:Magic}{:magic/%s}\n", h->magic);
|
|
xo_emit_h(xo, "{P: }{Lwc:Version String}{:version_string/%s}",
|
|
h->versionstring);
|
|
xo_emit_h(xo, "{P: }{Lwc:Panic String}{:panic_string/%s}\n",
|
|
h->panicstring);
|
|
xo_emit_h(xo, "{P: }{Lwc:Dump Parity}{:dump_parity/%u}\n", h->parity);
|
|
xo_emit_h(xo, "{P: }{Lwc:Bounds}{:bounds/%d}\n", bounds);
|
|
|
|
switch (status) {
|
|
case STATUS_BAD:
|
|
stat_str = "bad";
|
|
break;
|
|
case STATUS_GOOD:
|
|
stat_str = "good";
|
|
break;
|
|
default:
|
|
stat_str = "unknown";
|
|
break;
|
|
}
|
|
xo_emit_h(xo, "{P: }{Lwc:Dump Status}{:dump_status/%s}\n", stat_str);
|
|
xo_flush_h(xo);
|
|
}
|
|
|
|
static int
|
|
getbounds(void)
|
|
{
|
|
FILE *fp;
|
|
char buf[6];
|
|
int ret;
|
|
|
|
ret = 0;
|
|
|
|
if ((fp = fopen("bounds", "r")) == NULL) {
|
|
if (verbose)
|
|
printf("unable to open bounds file, using 0\n");
|
|
return (ret);
|
|
}
|
|
|
|
if (fgets(buf, sizeof buf, fp) == NULL) {
|
|
if (feof(fp))
|
|
syslog(LOG_WARNING, "bounds file is empty, using 0");
|
|
else
|
|
syslog(LOG_WARNING, "bounds file: %s", strerror(errno));
|
|
fclose(fp);
|
|
return (ret);
|
|
}
|
|
|
|
errno = 0;
|
|
ret = (int)strtol(buf, NULL, 10);
|
|
if (ret == 0 && (errno == EINVAL || errno == ERANGE))
|
|
syslog(LOG_WARNING, "invalid value found in bounds, using 0");
|
|
fclose(fp);
|
|
return (ret);
|
|
}
|
|
|
|
static void
|
|
writebounds(int bounds)
|
|
{
|
|
FILE *fp;
|
|
|
|
if ((fp = fopen("bounds", "w")) == NULL) {
|
|
syslog(LOG_WARNING, "unable to write to bounds file: %m");
|
|
return;
|
|
}
|
|
|
|
if (verbose)
|
|
printf("bounds number: %d\n", bounds);
|
|
|
|
fprintf(fp, "%d\n", bounds);
|
|
fclose(fp);
|
|
}
|
|
|
|
static bool
|
|
writekey(const char *keyname, uint8_t *dumpkey, uint32_t dumpkeysize)
|
|
{
|
|
int fd;
|
|
|
|
fd = open(keyname, O_WRONLY | O_CREAT | O_TRUNC, 0600);
|
|
if (fd == -1) {
|
|
syslog(LOG_ERR, "Unable to open %s to write the key: %m.",
|
|
keyname);
|
|
return (false);
|
|
}
|
|
|
|
if (write(fd, dumpkey, dumpkeysize) != (ssize_t)dumpkeysize) {
|
|
syslog(LOG_ERR, "Unable to write the key to %s: %m.", keyname);
|
|
close(fd);
|
|
return (false);
|
|
}
|
|
|
|
close(fd);
|
|
return (true);
|
|
}
|
|
|
|
static off_t
|
|
file_size(const char *path)
|
|
{
|
|
struct stat sb;
|
|
|
|
/* Ignore all errors, those file may not exists. */
|
|
if (stat(path, &sb) == -1)
|
|
return (0);
|
|
return (sb.st_size);
|
|
}
|
|
|
|
static off_t
|
|
saved_dump_size(int bounds)
|
|
{
|
|
static char path[PATH_MAX];
|
|
off_t dumpsize;
|
|
|
|
dumpsize = 0;
|
|
|
|
(void)snprintf(path, sizeof(path), "info.%d", bounds);
|
|
dumpsize += file_size(path);
|
|
(void)snprintf(path, sizeof(path), "vmcore.%d", bounds);
|
|
dumpsize += file_size(path);
|
|
(void)snprintf(path, sizeof(path), "vmcore.%d.gz", bounds);
|
|
dumpsize += file_size(path);
|
|
(void)snprintf(path, sizeof(path), "textdump.tar.%d", bounds);
|
|
dumpsize += file_size(path);
|
|
(void)snprintf(path, sizeof(path), "textdump.tar.%d.gz", bounds);
|
|
dumpsize += file_size(path);
|
|
|
|
return (dumpsize);
|
|
}
|
|
|
|
static void
|
|
saved_dump_remove(int bounds)
|
|
{
|
|
static char path[PATH_MAX];
|
|
|
|
(void)snprintf(path, sizeof(path), "info.%d", bounds);
|
|
(void)unlink(path);
|
|
(void)snprintf(path, sizeof(path), "vmcore.%d", bounds);
|
|
(void)unlink(path);
|
|
(void)snprintf(path, sizeof(path), "vmcore.%d.gz", bounds);
|
|
(void)unlink(path);
|
|
(void)snprintf(path, sizeof(path), "textdump.tar.%d", bounds);
|
|
(void)unlink(path);
|
|
(void)snprintf(path, sizeof(path), "textdump.tar.%d.gz", bounds);
|
|
(void)unlink(path);
|
|
}
|
|
|
|
static void
|
|
symlinks_remove(void)
|
|
{
|
|
|
|
(void)unlink("info.last");
|
|
(void)unlink("key.last");
|
|
(void)unlink("vmcore.last");
|
|
(void)unlink("vmcore.last.gz");
|
|
(void)unlink("vmcore_encrypted.last");
|
|
(void)unlink("vmcore_encrypted.last.gz");
|
|
(void)unlink("textdump.tar.last");
|
|
(void)unlink("textdump.tar.last.gz");
|
|
}
|
|
|
|
/*
|
|
* Check that sufficient space is available on the disk that holds the
|
|
* save directory.
|
|
*/
|
|
static int
|
|
check_space(const char *savedir, off_t dumpsize, int bounds)
|
|
{
|
|
FILE *fp;
|
|
off_t available, minfree, spacefree, totfree, needed;
|
|
struct statfs fsbuf;
|
|
char buf[100];
|
|
|
|
if (statfs(".", &fsbuf) < 0) {
|
|
syslog(LOG_ERR, "%s: %m", savedir);
|
|
exit(1);
|
|
}
|
|
spacefree = ((off_t) fsbuf.f_bavail * fsbuf.f_bsize) / 1024;
|
|
totfree = ((off_t) fsbuf.f_bfree * fsbuf.f_bsize) / 1024;
|
|
|
|
if ((fp = fopen("minfree", "r")) == NULL)
|
|
minfree = 0;
|
|
else {
|
|
if (fgets(buf, sizeof(buf), fp) == NULL)
|
|
minfree = 0;
|
|
else {
|
|
char *endp;
|
|
|
|
errno = 0;
|
|
minfree = strtoll(buf, &endp, 10);
|
|
if (minfree == 0 && errno != 0)
|
|
minfree = -1;
|
|
else {
|
|
while (*endp != '\0' && isspace(*endp))
|
|
endp++;
|
|
if (*endp != '\0' || minfree < 0)
|
|
minfree = -1;
|
|
}
|
|
if (minfree < 0)
|
|
syslog(LOG_WARNING,
|
|
"`minfree` didn't contain a valid size "
|
|
"(`%s`). Defaulting to 0", buf);
|
|
}
|
|
(void)fclose(fp);
|
|
}
|
|
|
|
available = minfree > 0 ? spacefree - minfree : totfree;
|
|
needed = dumpsize / 1024 + 2; /* 2 for info file */
|
|
needed -= saved_dump_size(bounds);
|
|
if (available < needed) {
|
|
syslog(LOG_WARNING,
|
|
"no dump: not enough free space on device (need at least "
|
|
"%jdkB for dump; %jdkB available; %jdkB reserved)",
|
|
(intmax_t)needed,
|
|
(intmax_t)available + minfree,
|
|
(intmax_t)minfree);
|
|
return (0);
|
|
}
|
|
if (spacefree - needed < 0)
|
|
syslog(LOG_WARNING,
|
|
"dump performed, but free space threshold crossed");
|
|
return (1);
|
|
}
|
|
|
|
static bool
|
|
compare_magic(const struct kerneldumpheader *kdh, const char *magic)
|
|
{
|
|
|
|
return (strncmp(kdh->magic, magic, sizeof(kdh->magic)) == 0);
|
|
}
|
|
|
|
#define BLOCKSIZE (1<<12)
|
|
#define BLOCKMASK (~(BLOCKSIZE-1))
|
|
|
|
static int
|
|
DoRegularFile(int fd, off_t dumpsize, u_int sectorsize, bool sparse, char *buf,
|
|
const char *device, const char *filename, FILE *fp)
|
|
{
|
|
int he, hs, nr, nw, wl;
|
|
off_t dmpcnt, origsize;
|
|
|
|
dmpcnt = 0;
|
|
origsize = dumpsize;
|
|
he = 0;
|
|
while (dumpsize > 0) {
|
|
wl = BUFFERSIZE;
|
|
if (wl > dumpsize)
|
|
wl = dumpsize;
|
|
nr = read(fd, buf, roundup(wl, sectorsize));
|
|
if (nr != (int)roundup(wl, sectorsize)) {
|
|
if (nr == 0)
|
|
syslog(LOG_WARNING,
|
|
"WARNING: EOF on dump device");
|
|
else
|
|
syslog(LOG_ERR, "read error on %s: %m", device);
|
|
nerr++;
|
|
return (-1);
|
|
}
|
|
if (!sparse) {
|
|
nw = fwrite(buf, 1, wl, fp);
|
|
} else {
|
|
for (nw = 0; nw < nr; nw = he) {
|
|
/* find a contiguous block of zeroes */
|
|
for (hs = nw; hs < nr; hs += BLOCKSIZE) {
|
|
for (he = hs; he < nr && buf[he] == 0;
|
|
++he)
|
|
/* nothing */ ;
|
|
/* is the hole long enough to matter? */
|
|
if (he >= hs + BLOCKSIZE)
|
|
break;
|
|
}
|
|
|
|
/* back down to a block boundary */
|
|
he &= BLOCKMASK;
|
|
|
|
/*
|
|
* 1) Don't go beyond the end of the buffer.
|
|
* 2) If the end of the buffer is less than
|
|
* BLOCKSIZE bytes away, we're at the end
|
|
* of the file, so just grab what's left.
|
|
*/
|
|
if (hs + BLOCKSIZE > nr)
|
|
hs = he = nr;
|
|
|
|
/*
|
|
* At this point, we have a partial ordering:
|
|
* nw <= hs <= he <= nr
|
|
* If hs > nw, buf[nw..hs] contains non-zero
|
|
* data. If he > hs, buf[hs..he] is all zeroes.
|
|
*/
|
|
if (hs > nw)
|
|
if (fwrite(buf + nw, hs - nw, 1, fp)
|
|
!= 1)
|
|
break;
|
|
if (he > hs)
|
|
if (fseeko(fp, he - hs, SEEK_CUR) == -1)
|
|
break;
|
|
}
|
|
}
|
|
if (nw != wl) {
|
|
syslog(LOG_ERR,
|
|
"write error on %s file: %m", filename);
|
|
syslog(LOG_WARNING,
|
|
"WARNING: vmcore may be incomplete");
|
|
nerr++;
|
|
return (-1);
|
|
}
|
|
if (verbose) {
|
|
dmpcnt += wl;
|
|
printf("%llu\r", (unsigned long long)dmpcnt);
|
|
fflush(stdout);
|
|
}
|
|
dumpsize -= wl;
|
|
if (got_siginfo) {
|
|
printf("%s %.1lf%%\n", filename, (100.0 - (100.0 *
|
|
(double)dumpsize / (double)origsize)));
|
|
got_siginfo = 0;
|
|
}
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* Specialized version of dump-reading logic for use with textdumps, which
|
|
* are written backwards from the end of the partition, and must be reversed
|
|
* before being written to the file. Textdumps are small, so do a bit less
|
|
* work to optimize/sparsify.
|
|
*/
|
|
static int
|
|
DoTextdumpFile(int fd, off_t dumpsize, off_t lasthd, char *buf,
|
|
const char *device, const char *filename, FILE *fp)
|
|
{
|
|
int nr, nw, wl;
|
|
off_t dmpcnt, totsize;
|
|
|
|
totsize = dumpsize;
|
|
dmpcnt = 0;
|
|
wl = 512;
|
|
if ((dumpsize % wl) != 0) {
|
|
syslog(LOG_ERR, "textdump uneven multiple of 512 on %s",
|
|
device);
|
|
nerr++;
|
|
return (-1);
|
|
}
|
|
while (dumpsize > 0) {
|
|
nr = pread(fd, buf, wl, lasthd - (totsize - dumpsize) - wl);
|
|
if (nr != wl) {
|
|
if (nr == 0)
|
|
syslog(LOG_WARNING,
|
|
"WARNING: EOF on dump device");
|
|
else
|
|
syslog(LOG_ERR, "read error on %s: %m", device);
|
|
nerr++;
|
|
return (-1);
|
|
}
|
|
nw = fwrite(buf, 1, wl, fp);
|
|
if (nw != wl) {
|
|
syslog(LOG_ERR,
|
|
"write error on %s file: %m", filename);
|
|
syslog(LOG_WARNING,
|
|
"WARNING: textdump may be incomplete");
|
|
nerr++;
|
|
return (-1);
|
|
}
|
|
if (verbose) {
|
|
dmpcnt += wl;
|
|
printf("%llu\r", (unsigned long long)dmpcnt);
|
|
fflush(stdout);
|
|
}
|
|
dumpsize -= wl;
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
static void
|
|
DoFile(const char *savedir, const char *device)
|
|
{
|
|
xo_handle_t *xostdout, *xoinfo;
|
|
static char infoname[PATH_MAX], corename[PATH_MAX], linkname[PATH_MAX];
|
|
static char keyname[PATH_MAX];
|
|
static char *buf = NULL;
|
|
char *temp = NULL;
|
|
struct kerneldumpheader kdhf, kdhl;
|
|
uint8_t *dumpkey;
|
|
off_t mediasize, dumpextent, dumplength, firsthd, lasthd;
|
|
FILE *info, *fp;
|
|
mode_t oumask;
|
|
int fd, fdinfo, error;
|
|
int bounds, status;
|
|
u_int sectorsize, xostyle;
|
|
uint32_t dumpkeysize;
|
|
bool iscompressed, isencrypted, istextdump, ret;
|
|
|
|
bounds = getbounds();
|
|
dumpkey = NULL;
|
|
mediasize = 0;
|
|
status = STATUS_UNKNOWN;
|
|
|
|
xostdout = xo_create_to_file(stdout, XO_STYLE_TEXT, 0);
|
|
if (xostdout == NULL) {
|
|
syslog(LOG_ERR, "%s: %m", infoname);
|
|
return;
|
|
}
|
|
|
|
if (maxdumps > 0 && bounds == maxdumps)
|
|
bounds = 0;
|
|
|
|
if (buf == NULL) {
|
|
buf = malloc(BUFFERSIZE);
|
|
if (buf == NULL) {
|
|
syslog(LOG_ERR, "%m");
|
|
return;
|
|
}
|
|
}
|
|
|
|
if (verbose)
|
|
printf("checking for kernel dump on device %s\n", device);
|
|
|
|
fd = open(device, (checkfor || keep) ? O_RDONLY : O_RDWR);
|
|
if (fd < 0) {
|
|
syslog(LOG_ERR, "%s: %m", device);
|
|
return;
|
|
}
|
|
|
|
error = ioctl(fd, DIOCGMEDIASIZE, &mediasize);
|
|
if (!error)
|
|
error = ioctl(fd, DIOCGSECTORSIZE, §orsize);
|
|
if (error) {
|
|
syslog(LOG_ERR,
|
|
"couldn't find media and/or sector size of %s: %m", device);
|
|
goto closefd;
|
|
}
|
|
|
|
if (verbose) {
|
|
printf("mediasize = %lld bytes\n", (long long)mediasize);
|
|
printf("sectorsize = %u bytes\n", sectorsize);
|
|
}
|
|
|
|
if (sectorsize < sizeof(kdhl)) {
|
|
syslog(LOG_ERR,
|
|
"Sector size is less the kernel dump header %zu",
|
|
sizeof(kdhl));
|
|
goto closefd;
|
|
}
|
|
|
|
lasthd = mediasize - sectorsize;
|
|
temp = malloc(sectorsize);
|
|
if (temp == NULL) {
|
|
syslog(LOG_ERR, "%m");
|
|
goto closefd;
|
|
}
|
|
if (lseek(fd, lasthd, SEEK_SET) != lasthd ||
|
|
read(fd, temp, sectorsize) != (ssize_t)sectorsize) {
|
|
syslog(LOG_ERR,
|
|
"error reading last dump header at offset %lld in %s: %m",
|
|
(long long)lasthd, device);
|
|
goto closefd;
|
|
}
|
|
memcpy(&kdhl, temp, sizeof(kdhl));
|
|
iscompressed = istextdump = false;
|
|
if (compare_magic(&kdhl, TEXTDUMPMAGIC)) {
|
|
if (verbose)
|
|
printf("textdump magic on last dump header on %s\n",
|
|
device);
|
|
istextdump = true;
|
|
if (dtoh32(kdhl.version) != KERNELDUMP_TEXT_VERSION) {
|
|
syslog(LOG_ERR,
|
|
"unknown version (%d) in last dump header on %s",
|
|
dtoh32(kdhl.version), device);
|
|
|
|
status = STATUS_BAD;
|
|
if (force == 0)
|
|
goto closefd;
|
|
}
|
|
} else if (compare_magic(&kdhl, KERNELDUMPMAGIC)) {
|
|
if (dtoh32(kdhl.version) != KERNELDUMPVERSION) {
|
|
syslog(LOG_ERR,
|
|
"unknown version (%d) in last dump header on %s",
|
|
dtoh32(kdhl.version), device);
|
|
|
|
status = STATUS_BAD;
|
|
if (force == 0)
|
|
goto closefd;
|
|
}
|
|
switch (kdhl.compression) {
|
|
case KERNELDUMP_COMP_NONE:
|
|
break;
|
|
case KERNELDUMP_COMP_GZIP:
|
|
if (compress && verbose)
|
|
printf("dump is already compressed\n");
|
|
compress = false;
|
|
iscompressed = true;
|
|
break;
|
|
default:
|
|
syslog(LOG_ERR, "unknown compression type %d on %s",
|
|
kdhl.compression, device);
|
|
break;
|
|
}
|
|
} else {
|
|
if (verbose)
|
|
printf("magic mismatch on last dump header on %s\n",
|
|
device);
|
|
|
|
status = STATUS_BAD;
|
|
if (force == 0)
|
|
goto closefd;
|
|
|
|
if (compare_magic(&kdhl, KERNELDUMPMAGIC_CLEARED)) {
|
|
if (verbose)
|
|
printf("forcing magic on %s\n", device);
|
|
memcpy(kdhl.magic, KERNELDUMPMAGIC, sizeof(kdhl.magic));
|
|
} else {
|
|
syslog(LOG_ERR, "unable to force dump - bad magic");
|
|
goto closefd;
|
|
}
|
|
if (dtoh32(kdhl.version) != KERNELDUMPVERSION) {
|
|
syslog(LOG_ERR,
|
|
"unknown version (%d) in last dump header on %s",
|
|
dtoh32(kdhl.version), device);
|
|
|
|
status = STATUS_BAD;
|
|
if (force == 0)
|
|
goto closefd;
|
|
}
|
|
}
|
|
|
|
nfound++;
|
|
if (clear)
|
|
goto nuke;
|
|
|
|
if (kerneldump_parity(&kdhl)) {
|
|
syslog(LOG_ERR,
|
|
"parity error on last dump header on %s", device);
|
|
nerr++;
|
|
status = STATUS_BAD;
|
|
if (force == 0)
|
|
goto closefd;
|
|
}
|
|
dumpextent = dtoh64(kdhl.dumpextent);
|
|
dumplength = dtoh64(kdhl.dumplength);
|
|
dumpkeysize = dtoh32(kdhl.dumpkeysize);
|
|
firsthd = lasthd - dumpextent - sectorsize - dumpkeysize;
|
|
if (lseek(fd, firsthd, SEEK_SET) != firsthd ||
|
|
read(fd, temp, sectorsize) != (ssize_t)sectorsize) {
|
|
syslog(LOG_ERR,
|
|
"error reading first dump header at offset %lld in %s: %m",
|
|
(long long)firsthd, device);
|
|
nerr++;
|
|
goto closefd;
|
|
}
|
|
memcpy(&kdhf, temp, sizeof(kdhf));
|
|
|
|
if (verbose >= 2) {
|
|
printf("First dump headers:\n");
|
|
printheader(xostdout, &kdhf, device, bounds, -1);
|
|
|
|
printf("\nLast dump headers:\n");
|
|
printheader(xostdout, &kdhl, device, bounds, -1);
|
|
printf("\n");
|
|
}
|
|
|
|
if (memcmp(&kdhl, &kdhf, sizeof(kdhl))) {
|
|
syslog(LOG_ERR,
|
|
"first and last dump headers disagree on %s", device);
|
|
nerr++;
|
|
status = STATUS_BAD;
|
|
if (force == 0)
|
|
goto closefd;
|
|
} else {
|
|
status = STATUS_GOOD;
|
|
}
|
|
|
|
if (checkfor) {
|
|
printf("A dump exists on %s\n", device);
|
|
close(fd);
|
|
exit(0);
|
|
}
|
|
|
|
if (kdhl.panicstring[0] != '\0')
|
|
syslog(LOG_ALERT, "reboot after panic: %.*s",
|
|
(int)sizeof(kdhl.panicstring), kdhl.panicstring);
|
|
else
|
|
syslog(LOG_ALERT, "reboot");
|
|
|
|
if (verbose)
|
|
printf("Checking for available free space\n");
|
|
|
|
if (!check_space(savedir, dumplength, bounds)) {
|
|
nerr++;
|
|
goto closefd;
|
|
}
|
|
|
|
writebounds(bounds + 1);
|
|
|
|
saved_dump_remove(bounds);
|
|
|
|
snprintf(infoname, sizeof(infoname), "info.%d", bounds);
|
|
|
|
/*
|
|
* Create or overwrite any existing dump header files.
|
|
*/
|
|
fdinfo = open(infoname, O_WRONLY | O_CREAT | O_TRUNC, 0600);
|
|
if (fdinfo < 0) {
|
|
syslog(LOG_ERR, "%s: %m", infoname);
|
|
nerr++;
|
|
goto closefd;
|
|
}
|
|
|
|
oumask = umask(S_IRWXG|S_IRWXO); /* Restrict access to the core file. */
|
|
isencrypted = (dumpkeysize > 0);
|
|
if (compress) {
|
|
snprintf(corename, sizeof(corename), "%s.%d.gz",
|
|
istextdump ? "textdump.tar" :
|
|
(isencrypted ? "vmcore_encrypted" : "vmcore"), bounds);
|
|
fp = zopen(corename, "w");
|
|
} else if (iscompressed && !isencrypted) {
|
|
snprintf(corename, sizeof(corename), "vmcore.%d.gz", bounds);
|
|
fp = fopen(corename, "w");
|
|
} else {
|
|
snprintf(corename, sizeof(corename), "%s.%d",
|
|
istextdump ? "textdump.tar" :
|
|
(isencrypted ? "vmcore_encrypted" : "vmcore"), bounds);
|
|
fp = fopen(corename, "w");
|
|
}
|
|
if (fp == NULL) {
|
|
syslog(LOG_ERR, "%s: %m", corename);
|
|
close(fdinfo);
|
|
nerr++;
|
|
goto closefd;
|
|
}
|
|
(void)umask(oumask);
|
|
|
|
info = fdopen(fdinfo, "w");
|
|
|
|
if (info == NULL) {
|
|
syslog(LOG_ERR, "fdopen failed: %m");
|
|
nerr++;
|
|
goto closeall;
|
|
}
|
|
|
|
xostyle = xo_get_style(NULL);
|
|
xoinfo = xo_create_to_file(info, xostyle, 0);
|
|
if (xoinfo == NULL) {
|
|
syslog(LOG_ERR, "%s: %m", infoname);
|
|
nerr++;
|
|
goto closeall;
|
|
}
|
|
xo_open_container_h(xoinfo, "crashdump");
|
|
|
|
if (verbose)
|
|
printheader(xostdout, &kdhl, device, bounds, status);
|
|
|
|
printheader(xoinfo, &kdhl, device, bounds, status);
|
|
xo_close_container_h(xoinfo, "crashdump");
|
|
xo_flush_h(xoinfo);
|
|
xo_finish_h(xoinfo);
|
|
fclose(info);
|
|
|
|
if (isencrypted) {
|
|
dumpkey = calloc(1, dumpkeysize);
|
|
if (dumpkey == NULL) {
|
|
syslog(LOG_ERR, "Unable to allocate kernel dump key.");
|
|
nerr++;
|
|
goto closeall;
|
|
}
|
|
|
|
if (read(fd, dumpkey, dumpkeysize) != (ssize_t)dumpkeysize) {
|
|
syslog(LOG_ERR, "Unable to read kernel dump key: %m.");
|
|
nerr++;
|
|
goto closeall;
|
|
}
|
|
|
|
snprintf(keyname, sizeof(keyname), "key.%d", bounds);
|
|
ret = writekey(keyname, dumpkey, dumpkeysize);
|
|
explicit_bzero(dumpkey, dumpkeysize);
|
|
if (!ret) {
|
|
nerr++;
|
|
goto closeall;
|
|
}
|
|
}
|
|
|
|
syslog(LOG_NOTICE, "writing %s%score to %s/%s",
|
|
isencrypted ? "encrypted " : "", compress ? "compressed " : "",
|
|
savedir, corename);
|
|
|
|
if (istextdump) {
|
|
if (DoTextdumpFile(fd, dumplength, lasthd, buf, device,
|
|
corename, fp) < 0)
|
|
goto closeall;
|
|
} else {
|
|
if (DoRegularFile(fd, dumplength, sectorsize,
|
|
!(compress || iscompressed || isencrypted), buf, device,
|
|
corename, fp) < 0) {
|
|
goto closeall;
|
|
}
|
|
}
|
|
if (verbose)
|
|
printf("\n");
|
|
|
|
if (fclose(fp) < 0) {
|
|
syslog(LOG_ERR, "error on %s: %m", corename);
|
|
nerr++;
|
|
goto closefd;
|
|
}
|
|
|
|
symlinks_remove();
|
|
if (symlink(infoname, "info.last") == -1) {
|
|
syslog(LOG_WARNING, "unable to create symlink %s/%s: %m",
|
|
savedir, "info.last");
|
|
}
|
|
if (isencrypted) {
|
|
if (symlink(keyname, "key.last") == -1) {
|
|
syslog(LOG_WARNING,
|
|
"unable to create symlink %s/%s: %m", savedir,
|
|
"key.last");
|
|
}
|
|
}
|
|
if (compress || iscompressed) {
|
|
snprintf(linkname, sizeof(linkname), "%s.last.gz",
|
|
istextdump ? "textdump.tar" :
|
|
(isencrypted ? "vmcore_encrypted" : "vmcore"));
|
|
} else {
|
|
snprintf(linkname, sizeof(linkname), "%s.last",
|
|
istextdump ? "textdump.tar" :
|
|
(isencrypted ? "vmcore_encrypted" : "vmcore"));
|
|
}
|
|
if (symlink(corename, linkname) == -1) {
|
|
syslog(LOG_WARNING, "unable to create symlink %s/%s: %m",
|
|
savedir, linkname);
|
|
}
|
|
|
|
nsaved++;
|
|
|
|
if (verbose)
|
|
printf("dump saved\n");
|
|
|
|
nuke:
|
|
if (!keep) {
|
|
if (verbose)
|
|
printf("clearing dump header\n");
|
|
memcpy(kdhl.magic, KERNELDUMPMAGIC_CLEARED, sizeof(kdhl.magic));
|
|
memcpy(temp, &kdhl, sizeof(kdhl));
|
|
if (lseek(fd, lasthd, SEEK_SET) != lasthd ||
|
|
write(fd, temp, sectorsize) != (ssize_t)sectorsize)
|
|
syslog(LOG_ERR,
|
|
"error while clearing the dump header: %m");
|
|
}
|
|
xo_close_container_h(xostdout, "crashdump");
|
|
xo_finish_h(xostdout);
|
|
free(dumpkey);
|
|
free(temp);
|
|
close(fd);
|
|
return;
|
|
|
|
closeall:
|
|
fclose(fp);
|
|
|
|
closefd:
|
|
free(dumpkey);
|
|
free(temp);
|
|
close(fd);
|
|
}
|
|
|
|
static void
|
|
usage(void)
|
|
{
|
|
xo_error("%s\n%s\n%s\n",
|
|
"usage: savecore -c [-v] [device ...]",
|
|
" savecore -C [-v] [device ...]",
|
|
" savecore [-fkvz] [-m maxdumps] [directory [device ...]]");
|
|
exit(1);
|
|
}
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
const char *savedir = ".";
|
|
struct fstab *fsp;
|
|
int i, ch, error;
|
|
|
|
checkfor = compress = clear = force = keep = verbose = 0;
|
|
nfound = nsaved = nerr = 0;
|
|
|
|
openlog("savecore", LOG_PERROR, LOG_DAEMON);
|
|
signal(SIGINFO, infohandler);
|
|
|
|
argc = xo_parse_args(argc, argv);
|
|
if (argc < 0)
|
|
exit(1);
|
|
|
|
while ((ch = getopt(argc, argv, "Ccfkm:vz")) != -1)
|
|
switch(ch) {
|
|
case 'C':
|
|
checkfor = 1;
|
|
break;
|
|
case 'c':
|
|
clear = 1;
|
|
break;
|
|
case 'f':
|
|
force = 1;
|
|
break;
|
|
case 'k':
|
|
keep = 1;
|
|
break;
|
|
case 'm':
|
|
maxdumps = atoi(optarg);
|
|
if (maxdumps <= 0) {
|
|
syslog(LOG_ERR, "Invalid maxdump value");
|
|
exit(1);
|
|
}
|
|
break;
|
|
case 'v':
|
|
verbose++;
|
|
break;
|
|
case 'z':
|
|
compress = 1;
|
|
break;
|
|
case '?':
|
|
default:
|
|
usage();
|
|
}
|
|
if (checkfor && (clear || force || keep))
|
|
usage();
|
|
if (clear && (compress || keep))
|
|
usage();
|
|
if (maxdumps > 0 && (checkfor || clear))
|
|
usage();
|
|
argc -= optind;
|
|
argv += optind;
|
|
if (argc >= 1 && !checkfor && !clear) {
|
|
error = chdir(argv[0]);
|
|
if (error) {
|
|
syslog(LOG_ERR, "chdir(%s): %m", argv[0]);
|
|
exit(1);
|
|
}
|
|
savedir = argv[0];
|
|
argc--;
|
|
argv++;
|
|
}
|
|
if (argc == 0) {
|
|
for (;;) {
|
|
fsp = getfsent();
|
|
if (fsp == NULL)
|
|
break;
|
|
if (strcmp(fsp->fs_vfstype, "swap") &&
|
|
strcmp(fsp->fs_vfstype, "dump"))
|
|
continue;
|
|
DoFile(savedir, fsp->fs_spec);
|
|
}
|
|
endfsent();
|
|
} else {
|
|
for (i = 0; i < argc; i++)
|
|
DoFile(savedir, argv[i]);
|
|
}
|
|
|
|
/* Emit minimal output. */
|
|
if (nfound == 0) {
|
|
if (checkfor) {
|
|
if (verbose)
|
|
printf("No dump exists\n");
|
|
exit(1);
|
|
}
|
|
if (verbose)
|
|
syslog(LOG_WARNING, "no dumps found");
|
|
} else if (nsaved == 0) {
|
|
if (nerr != 0) {
|
|
if (verbose)
|
|
syslog(LOG_WARNING,
|
|
"unsaved dumps found but not saved");
|
|
exit(1);
|
|
} else if (verbose)
|
|
syslog(LOG_WARNING, "no unsaved dumps found");
|
|
}
|
|
|
|
return (0);
|
|
}
|
|
|
|
static void
|
|
infohandler(int sig __unused)
|
|
{
|
|
got_siginfo = 1;
|
|
}
|