Adding upstream version 1.47.0.upstream/1.47.0upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 503 insertions, 0 deletions

diff --git a/debugfs/xattrs.c b/debugfs/xattrs.c
new file mode 100644
index 0000000..cd042bc
--- /dev/null
+++ b/debugfs/xattrs.c
@@ -0,0 +1,503 @@
+/*
+ * xattrs.c --- Modify extended attributes via debugfs.
+ *
+ * Copyright (C) 2014 Oracle.  This file may be redistributed
+ * under the terms of the GNU Public License.
+ */
+
+#include "config.h"
+#include <stdio.h>
+#ifdef HAVE_GETOPT_H
+#include <getopt.h>
+#else
+extern int optind;
+extern char *optarg;
+#endif
+#include <ctype.h>
+#include "support/cstring.h"
+
+#include "debugfs.h"
+
+#define PRINT_XATTR_HEX		0x01
+#define PRINT_XATTR_RAW		0x02
+#define PRINT_XATTR_C		0x04
+#define PRINT_XATTR_STATFMT	0x08
+#define PRINT_XATTR_NOQUOTES	0x10
+
+/* Dump extended attributes */
+static void print_xattr_hex(FILE *f, const char *str, int len)
+{
+	int i;
+
+	for (i = 0; i < len; i++)
+		fprintf(f, "%02x ", (unsigned char)str[i]);
+}
+
+/* Dump extended attributes */
+static void print_xattr_string(FILE *f, const char *str, int len, int flags)
+{
+	int printable = 0;
+	int i;
+
+	if (flags & PRINT_XATTR_RAW) {
+		fwrite(str, len, 1, f);
+		return;
+	}
+
+	if ((flags & PRINT_XATTR_C) == 0) {
+		/* check: is string "printable enough?" */
+		for (i = 0; i < len; i++)
+			if (isprint(str[i]))
+				printable++;
+
+		if (printable <= len*7/8)
+			flags |= PRINT_XATTR_HEX;
+	}
+
+	if (flags & PRINT_XATTR_HEX) {
+		print_xattr_hex(f, str, len);
+	} else {
+		if ((flags & PRINT_XATTR_NOQUOTES) == 0)
+			fputc('\"', f);
+		print_c_string(f, str, len);
+		if ((flags & PRINT_XATTR_NOQUOTES) == 0)
+			fputc('\"', f);
+	}
+}
+
+static void print_xattr(FILE *f, char *name, char *value, size_t value_len,
+			int print_flags)
+{
+	print_xattr_string(f, name, strlen(name), PRINT_XATTR_NOQUOTES);
+	fprintf(f, " (%zu)", value_len);
+	if ((print_flags & PRINT_XATTR_STATFMT) &&
+	    (strcmp(name, "system.data") == 0))
+		value_len = 0;
+	if (value_len != 0 &&
+	    (!(print_flags & PRINT_XATTR_STATFMT) || (value_len < 40))) {
+		fprintf(f, " = ");
+		print_xattr_string(f, value, value_len, print_flags);
+	}
+	fputc('\n', f);
+}
+
+static int dump_attr(char *name, char *value, size_t value_len, void *data)
+{
+	FILE *out = data;
+
+	fprintf(out, "  ");
+	print_xattr(out, name, value, value_len, PRINT_XATTR_STATFMT);
+	return 0;
+}
+
+void dump_inode_attributes(FILE *out, ext2_ino_t ino)
+{
+	struct ext2_xattr_handle *h;
+	size_t sz;
+	errcode_t err;
+
+	err = ext2fs_xattrs_open(current_fs, ino, &h);
+	if (err)
+		return;
+
+	err = ext2fs_xattrs_read(h);
+	if (err)
+		goto out;
+
+	err = ext2fs_xattrs_count(h, &sz);
+	if (err || sz == 0)
+		goto out;
+
+	fprintf(out, "Extended attributes:\n");
+	err = ext2fs_xattrs_iterate(h, dump_attr, out);
+	if (err)
+		goto out;
+
+out:
+	err = ext2fs_xattrs_close(&h);
+}
+
+void do_list_xattr(int argc, char **argv, int sci_idx EXT2FS_ATTR((unused)),
+		   void *infop EXT2FS_ATTR((unused)))
+{
+	ext2_ino_t ino;
+
+	if (argc != 2) {
+		printf("%s: Usage: %s <file>\n", argv[0],
+		       argv[0]);
+		return;
+	}
+
+	if (check_fs_open(argv[0]))
+		return;
+
+	ino = string_to_inode(argv[1]);
+	if (!ino)
+		return;
+
+	dump_inode_attributes(stdout, ino);
+}
+
+void do_get_xattr(int argc, char **argv, int sci_idx EXT2FS_ATTR((unused)),
+		  void *infop EXT2FS_ATTR((unused)))
+{
+	ext2_ino_t ino;
+	struct ext2_xattr_handle *h;
+	FILE *fp = NULL;
+	char *buf = NULL;
+	size_t buflen;
+	int i;
+	int print_flags = 0;
+	unsigned int handle_flags = 0;
+	errcode_t err;
+
+	reset_getopt();
+	while ((i = getopt(argc, argv, "Cf:rxV")) != -1) {
+		switch (i) {
+		case 'f':
+			if (fp)
+				fclose(fp);
+			fp = fopen(optarg, "w");
+			if (fp == NULL) {
+				perror(optarg);
+				return;
+			}
+			break;
+		case 'r':
+			handle_flags |= XATTR_HANDLE_FLAG_RAW;
+			break;
+		case 'x':
+			print_flags |= PRINT_XATTR_HEX;
+			break;
+		case 'V':
+			print_flags |= PRINT_XATTR_RAW|
+				PRINT_XATTR_NOQUOTES;
+			break;
+		case 'C':
+			print_flags |= PRINT_XATTR_C;
+			break;
+		default:
+			goto usage;
+		}
+	}
+
+	if (optind != argc - 2) {
+	usage:
+		printf("%s: Usage: %s [-f outfile]|[-xVC] [-r] <file> <attr>\n",
+			       argv[0], argv[0]);
+
+		goto out2;
+	}
+
+	if (check_fs_open(argv[0]))
+		goto out2;
+
+	ino = string_to_inode(argv[optind]);
+	if (!ino)
+		goto out2;
+
+	err = ext2fs_xattrs_open(current_fs, ino, &h);
+	if (err)
+		goto out2;
+
+	err = ext2fs_xattrs_flags(h, &handle_flags, NULL);
+	if (err)
+		goto out;
+
+	err = ext2fs_xattrs_read(h);
+	if (err)
+		goto out;
+
+	err = ext2fs_xattr_get(h, argv[optind + 1], (void **)&buf, &buflen);
+	if (err)
+		goto out;
+
+	if (fp) {
+		fwrite(buf, buflen, 1, fp);
+	} else {
+		if (print_flags & PRINT_XATTR_RAW) {
+			if (print_flags & (PRINT_XATTR_HEX|PRINT_XATTR_C))
+				print_flags &= ~PRINT_XATTR_RAW;
+			print_xattr_string(stdout, buf, buflen, print_flags);
+		} else {
+			print_xattr(stdout, argv[optind + 1],
+				    buf, buflen, print_flags);
+		}
+		printf("\n");
+	}
+
+	ext2fs_free_mem(&buf);
+out:
+	ext2fs_xattrs_close(&h);
+	if (err)
+		com_err(argv[0], err, "while getting extended attribute");
+out2:
+	if (fp)
+		fclose(fp);
+}
+
+void do_set_xattr(int argc, char **argv, int sci_idx EXT2FS_ATTR((unused)),
+		  void *infop EXT2FS_ATTR((unused)))
+{
+	ext2_ino_t ino;
+	struct ext2_xattr_handle *h;
+	FILE *fp = NULL;
+	char *buf = NULL;
+	size_t buflen;
+	unsigned int handle_flags = 0;
+	int i;
+	errcode_t err;
+
+	reset_getopt();
+	while ((i = getopt(argc, argv, "f:r")) != -1) {
+		switch (i) {
+		case 'f':
+			if (fp)
+				fclose(fp);
+			fp = fopen(optarg, "r");
+			if (fp == NULL) {
+				perror(optarg);
+				return;
+			}
+			break;
+		case 'r':
+			handle_flags |= XATTR_HANDLE_FLAG_RAW;
+			break;
+		default:
+			goto print_usage;
+		}
+	}
+
+	if (!(fp && optind == argc - 2) && !(!fp && optind == argc - 3)) {
+	print_usage:
+		printf("Usage:\t%s [-r] <file> <attr> <value>\n", argv[0]);
+		printf("\t%s -f <value_file> [-r] <file> <attr>\n", argv[0]);
+		goto out2;
+	}
+
+	if (check_fs_open(argv[0]))
+		goto out2;
+	if (check_fs_read_write(argv[0]))
+		goto out2;
+	if (check_fs_bitmaps(argv[0]))
+		goto out2;
+
+	ino = string_to_inode(argv[optind]);
+	if (!ino)
+		goto out2;
+
+	err = ext2fs_xattrs_open(current_fs, ino, &h);
+	if (err)
+		goto out2;
+
+	err = ext2fs_xattrs_flags(h, &handle_flags, NULL);
+	if (err)
+		goto out;
+
+	err = ext2fs_xattrs_read(h);
+	if (err)
+		goto out;
+
+	if (fp) {
+		err = ext2fs_get_mem(current_fs->blocksize, &buf);
+		if (err)
+			goto out;
+		buflen = fread(buf, 1, current_fs->blocksize, fp);
+	} else {
+		buf = argv[optind + 2];
+		buflen = parse_c_string(buf);
+	}
+
+	err = ext2fs_xattr_set(h, argv[optind + 1], buf, buflen);
+out:
+	ext2fs_xattrs_close(&h);
+	if (err)
+		com_err(argv[0], err, "while setting extended attribute");
+out2:
+	if (fp) {
+		fclose(fp);
+		ext2fs_free_mem(&buf);
+	}
+}
+
+void do_rm_xattr(int argc, char **argv, int sci_idx EXT2FS_ATTR((unused)),
+		 void *infop EXT2FS_ATTR((unused)))
+{
+	ext2_ino_t ino;
+	struct ext2_xattr_handle *h;
+	int i;
+	errcode_t err;
+
+	if (argc < 3) {
+		printf("%s: Usage: %s <file> <attrs>...\n", argv[0], argv[0]);
+		return;
+	}
+
+	if (check_fs_open(argv[0]))
+		return;
+	if (check_fs_read_write(argv[0]))
+		return;
+	if (check_fs_bitmaps(argv[0]))
+		return;
+
+	ino = string_to_inode(argv[1]);
+	if (!ino)
+		return;
+
+	err = ext2fs_xattrs_open(current_fs, ino, &h);
+	if (err)
+		return;
+
+	err = ext2fs_xattrs_read(h);
+	if (err)
+		goto out;
+
+	for (i = 2; i < argc; i++) {
+		err = ext2fs_xattr_remove(h, argv[i]);
+		if (err)
+			goto out;
+	}
+out:
+	ext2fs_xattrs_close(&h);
+	if (err)
+		com_err(argv[0], err, "while removing extended attribute");
+}
+
+/*
+ * Return non-zero if the string has a minimal number of non-printable
+ * characters.
+ */
+static int is_mostly_printable(const char *cp, int len)
+{
+	int	np = 0;
+
+	if (len < 0)
+		len = strlen(cp);
+
+	while (len--) {
+		if (!isprint(*cp++)) {
+			np++;
+			if (np > 3)
+				return 0;
+		}
+	}
+	return 1;
+}
+
+static void safe_print(FILE *f, const char *cp, int len)
+{
+	unsigned char	ch;
+
+	if (len < 0)
+		len = strlen(cp);
+
+	while (len--) {
+		ch = *cp++;
+		if (ch > 128) {
+			fputs("M-", f);
+			ch -= 128;
+		}
+		if ((ch < 32) || (ch == 0x7f)) {
+			fputc('^', f);
+			ch ^= 0x40; /* ^@, ^A, ^B; ^? for DEL */
+		}
+		fputc(ch, f);
+	}
+}
+
+static void dump_xattr_raw_entries(FILE *f, unsigned char *buf,
+				   unsigned int start, unsigned int len,
+				   unsigned value_start)
+{
+	struct ext2_ext_attr_entry ent;
+	unsigned int off = start;
+	unsigned int vstart;
+
+	while (off < len) {
+		if ((*(__u16 *) (buf + off)) == 0) {
+			fprintf(f, "last entry found at offset %u (%04o)\n",
+				off, off);
+			break;
+		}
+		if ((off + sizeof(struct ext2_ext_attr_entry)) >= len) {
+			fprintf(f, "xattr buffer overrun at %u (len = %u)\n",
+				off, len);
+			break;
+		}
+#if WORDS_BIGENDIAN
+		ext2fs_swap_ext_attr_entry(&ent,
+			(struct ext2_ext_attr_entry *) (buf + off));
+#else
+		ent = *((struct ext2_ext_attr_entry *) (buf + off));
+#endif
+		fprintf(f, "offset = %d (%04o), hash = %u, name_len = %u, "
+			"name_index = %u\n",
+			off, off, ent.e_hash, ent.e_name_len, ent.e_name_index);
+		vstart = value_start + ent.e_value_offs;
+		fprintf(f, "value_offset = %d (%04o), value_inum = %u, "
+			"value_size = %u\n", ent.e_value_offs,
+			vstart, ent.e_value_inum, ent.e_value_size);
+		off += sizeof(struct ext2_ext_attr_entry);
+		fprintf(f, "name = ");
+		if ((off + ent.e_name_len) >= len)
+			fprintf(f, "<runs off end>");
+		else
+			safe_print(f, (char *)(buf + off), ent.e_name_len);
+		fputc('\n', f);
+		if (ent.e_value_size == 0)
+			goto skip_value;
+		fprintf(f, "value = ");
+		if (ent.e_value_inum)
+			fprintf(f, "<ino %u>", ent.e_value_inum);
+		else if (ent.e_value_offs >= len ||
+			 (vstart + ent.e_value_size) > len)
+			fprintf(f, "<runs off end>");
+		else if (is_mostly_printable((char *)(buf + vstart),
+					ent.e_value_size))
+			safe_print(f, (char *)(buf + vstart),
+				   ent.e_value_size);
+		else {
+			fprintf(f, "<hexdump>\n");
+			do_byte_hexdump(f, (unsigned char *)(buf + vstart),
+					ent.e_value_size);
+		}
+		fputc('\n', f);
+	skip_value:
+		fputc('\n', f);
+		off += (ent.e_name_len + 3) & ~3;
+	}
+}
+
+void raw_inode_xattr_dump(FILE *f, unsigned char *buf, unsigned int len)
+{
+	__u32 magic = ext2fs_le32_to_cpu(*((__le32 *) buf));
+
+	fprintf(f, "magic = %08x, length = %u, value_start =4 \n\n",
+		magic, len);
+	if (magic == EXT2_EXT_ATTR_MAGIC)
+		dump_xattr_raw_entries(f, buf, 4, len, 4);
+}
+
+void block_xattr_dump(FILE *f, unsigned char *buf, unsigned int len)
+{
+	struct ext2_ext_attr_header header;
+
+#ifdef WORDS_BIGENDIAN
+	ext2fs_swap_ext_attr_header(&header,
+				    (struct ext2_ext_attr_header *) buf);
+#else
+	header = *((struct ext2_ext_attr_header *) buf);
+#endif
+	fprintf(f, "magic = %08x, length = %u\n", header.h_magic, len);
+	if (header.h_magic != EXT2_EXT_ATTR_MAGIC)
+		return;
+	fprintf(f, "refcount = %u, blocks = %u\n", header.h_refcount,
+		header.h_blocks);
+	fprintf(f, "hash = %08x, checksum = %08x\n", header.h_hash,
+		header.h_checksum);
+	fprintf(f, "reserved: %08x %08x %08x\n\n", header.h_reserved[0],
+		header.h_reserved[1], header.h_reserved[2]);
+
+	dump_xattr_raw_entries(f, buf,
+			       sizeof(struct ext2_ext_attr_header), len, 0);
+}