pass1b.c revision 18a1444b4f1e6a0948fd38fa0de382d86cfe04de
1/*
2 * pass1b.c --- Pass #1b of e2fsck
3 *
4 * This file contains pass1B, pass1C, and pass1D of e2fsck.  They are
5 * only invoked if pass 1 discovered blocks which are in use by more
6 * than one inode.
7 *
8 * Pass1B scans the data blocks of all the inodes again, generating a
9 * complete list of duplicate blocks and which inodes have claimed
10 * them.
11 *
12 * Pass1C does a tree-traversal of the filesystem, to determine the
13 * parent directories of these inodes.  This step is necessary so that
14 * e2fsck can print out the pathnames of affected inodes.
15 *
16 * Pass1D is a reconciliation pass.  For each inode with duplicate
17 * blocks, the user is prompted if s/he would like to clone the file
18 * (so that the file gets a fresh copy of the duplicated blocks) or
19 * simply to delete the file.
20 *
21 * Copyright (C) 1993, 1994, 1995, 1996, 1997 Theodore Ts'o.
22 *
23 * %Begin-Header%
24 * This file may be redistributed under the terms of the GNU Public
25 * License.
26 * %End-Header%
27 *
28 */
29
30#include <time.h>
31#ifdef HAVE_ERRNO_H
32#include <errno.h>
33#endif
34
35#ifdef HAVE_INTTYPES_H
36#include <inttypes.h>
37#endif
38
39#ifndef HAVE_INTPTR_T
40typedef long intptr_t;
41#endif
42
43/* Needed for architectures where sizeof(int) != sizeof(void *) */
44#define INT_TO_VOIDPTR(val)  ((void *)(intptr_t)(val))
45#define VOIDPTR_TO_INT(ptr)  ((int)(intptr_t)(ptr))
46
47#include <et/com_err.h>
48#include "e2fsck.h"
49
50#include "problem.h"
51#include "dict.h"
52
53/* Define an extension to the ext2 library's block count information */
54#define BLOCK_COUNT_EXTATTR	(-5)
55
56struct cluster_el {
57	blk64_t	cluster;
58	struct cluster_el *next;
59};
60
61struct inode_el {
62	ext2_ino_t	inode;
63	struct inode_el *next;
64};
65
66struct dup_cluster {
67	int		num_bad;
68	struct inode_el *inode_list;
69};
70
71/*
72 * This structure stores information about a particular inode which
73 * is sharing blocks with other inodes.  This information is collected
74 * to display to the user, so that the user knows what files he or she
75 * is dealing with, when trying to decide how to resolve the conflict
76 * of multiply-claimed blocks.
77 */
78struct dup_inode {
79	ext2_ino_t		dir;
80	int			num_dupblocks;
81	struct ext2_inode	inode;
82	struct cluster_el	*cluster_list;
83};
84
85static int process_pass1b_block(ext2_filsys fs, blk64_t	*blocknr,
86				e2_blkcnt_t blockcnt, blk64_t ref_blk,
87				int ref_offset, void *priv_data);
88static void delete_file(e2fsck_t ctx, ext2_ino_t ino,
89			struct dup_inode *dp, char *block_buf);
90static errcode_t clone_file(e2fsck_t ctx, ext2_ino_t ino,
91			    struct dup_inode *dp, char* block_buf);
92static int check_if_fs_block(e2fsck_t ctx, blk64_t test_block);
93static int check_if_fs_cluster(e2fsck_t ctx, blk64_t cluster);
94
95static void pass1b(e2fsck_t ctx, char *block_buf);
96static void pass1c(e2fsck_t ctx, char *block_buf);
97static void pass1d(e2fsck_t ctx, char *block_buf);
98
99static int dup_inode_count = 0;
100static int dup_inode_founddir = 0;
101
102static dict_t clstr_dict, ino_dict;
103
104static ext2fs_inode_bitmap inode_dup_map;
105
106static int dict_int_cmp(const void *a, const void *b)
107{
108	intptr_t	ia, ib;
109
110	ia = (intptr_t)a;
111	ib = (intptr_t)b;
112
113	return (ia-ib);
114}
115
116/*
117 * Add a duplicate block record
118 */
119static void add_dupe(e2fsck_t ctx, ext2_ino_t ino, blk64_t cluster,
120		     struct ext2_inode *inode)
121{
122	dnode_t	*n;
123	struct dup_cluster	*db;
124	struct dup_inode	*di;
125	struct cluster_el	*cluster_el;
126	struct inode_el 	*ino_el;
127
128	n = dict_lookup(&clstr_dict, INT_TO_VOIDPTR(cluster));
129	if (n)
130		db = (struct dup_cluster *) dnode_get(n);
131	else {
132		db = (struct dup_cluster *) e2fsck_allocate_memory(ctx,
133			sizeof(struct dup_cluster), "duplicate cluster header");
134		db->num_bad = 0;
135		db->inode_list = 0;
136		dict_alloc_insert(&clstr_dict, INT_TO_VOIDPTR(cluster), db);
137	}
138	ino_el = (struct inode_el *) e2fsck_allocate_memory(ctx,
139			 sizeof(struct inode_el), "inode element");
140	ino_el->inode = ino;
141	ino_el->next = db->inode_list;
142	db->inode_list = ino_el;
143	db->num_bad++;
144
145	n = dict_lookup(&ino_dict, INT_TO_VOIDPTR(ino));
146	if (n)
147		di = (struct dup_inode *) dnode_get(n);
148	else {
149		di = (struct dup_inode *) e2fsck_allocate_memory(ctx,
150			 sizeof(struct dup_inode), "duplicate inode header");
151		if (ino == EXT2_ROOT_INO) {
152			di->dir = EXT2_ROOT_INO;
153			dup_inode_founddir++;
154		} else
155			di->dir = 0;
156
157		di->num_dupblocks = 0;
158		di->cluster_list = 0;
159		di->inode = *inode;
160		dict_alloc_insert(&ino_dict, INT_TO_VOIDPTR(ino), di);
161	}
162	cluster_el = (struct cluster_el *) e2fsck_allocate_memory(ctx,
163			 sizeof(struct cluster_el), "cluster element");
164	cluster_el->cluster = cluster;
165	cluster_el->next = di->cluster_list;
166	di->cluster_list = cluster_el;
167	di->num_dupblocks++;
168}
169
170/*
171 * Free a duplicate inode record
172 */
173static void inode_dnode_free(dnode_t *node,
174			     void *context EXT2FS_ATTR((unused)))
175{
176	struct dup_inode	*di;
177	struct cluster_el		*p, *next;
178
179	di = (struct dup_inode *) dnode_get(node);
180	for (p = di->cluster_list; p; p = next) {
181		next = p->next;
182		free(p);
183	}
184	free(di);
185	free(node);
186}
187
188/*
189 * Free a duplicate cluster record
190 */
191static void cluster_dnode_free(dnode_t *node,
192			       void *context EXT2FS_ATTR((unused)))
193{
194	struct dup_cluster	*dc;
195	struct inode_el		*p, *next;
196
197	dc = (struct dup_cluster *) dnode_get(node);
198	for (p = dc->inode_list; p; p = next) {
199		next = p->next;
200		free(p);
201	}
202	free(dc);
203	free(node);
204}
205
206
207/*
208 * Main procedure for handling duplicate blocks
209 */
210void e2fsck_pass1_dupblocks(e2fsck_t ctx, char *block_buf)
211{
212	ext2_filsys 		fs = ctx->fs;
213	struct problem_context	pctx;
214#ifdef RESOURCE_TRACK
215	struct resource_track	rtrack;
216#endif
217
218	clear_problem_context(&pctx);
219
220	pctx.errcode = e2fsck_allocate_inode_bitmap(fs,
221			_("multiply claimed inode map"),
222			EXT2FS_BMAP64_RBTREE, "inode_dup_map",
223			&inode_dup_map);
224	if (pctx.errcode) {
225		fix_problem(ctx, PR_1B_ALLOCATE_IBITMAP_ERROR, &pctx);
226		ctx->flags |= E2F_FLAG_ABORT;
227		return;
228	}
229
230	dict_init(&ino_dict, DICTCOUNT_T_MAX, dict_int_cmp);
231	dict_init(&clstr_dict, DICTCOUNT_T_MAX, dict_int_cmp);
232	dict_set_allocator(&ino_dict, NULL, inode_dnode_free, NULL);
233	dict_set_allocator(&clstr_dict, NULL, cluster_dnode_free, NULL);
234
235	init_resource_track(&rtrack, ctx->fs->io);
236	pass1b(ctx, block_buf);
237	print_resource_track(ctx, "Pass 1b", &rtrack, ctx->fs->io);
238
239	init_resource_track(&rtrack, ctx->fs->io);
240	pass1c(ctx, block_buf);
241	print_resource_track(ctx, "Pass 1c", &rtrack, ctx->fs->io);
242
243	init_resource_track(&rtrack, ctx->fs->io);
244	pass1d(ctx, block_buf);
245	print_resource_track(ctx, "Pass 1d", &rtrack, ctx->fs->io);
246
247	/*
248	 * Time to free all of the accumulated data structures that we
249	 * don't need anymore.
250	 */
251	dict_free_nodes(&ino_dict);
252	dict_free_nodes(&clstr_dict);
253	ext2fs_free_inode_bitmap(inode_dup_map);
254}
255
256/*
257 * Scan the inodes looking for inodes that contain duplicate blocks.
258 */
259struct process_block_struct {
260	e2fsck_t	ctx;
261	ext2_ino_t	ino;
262	int		dup_blocks;
263	blk64_t		cur_cluster;
264	struct ext2_inode *inode;
265	struct problem_context *pctx;
266};
267
268static void pass1b(e2fsck_t ctx, char *block_buf)
269{
270	ext2_filsys fs = ctx->fs;
271	ext2_ino_t ino = 0;
272	struct ext2_inode inode;
273	ext2_inode_scan	scan;
274	struct process_block_struct pb;
275	struct problem_context pctx;
276
277	clear_problem_context(&pctx);
278
279	if (!(ctx->options & E2F_OPT_PREEN))
280		fix_problem(ctx, PR_1B_PASS_HEADER, &pctx);
281	pctx.errcode = ext2fs_open_inode_scan(fs, ctx->inode_buffer_blocks,
282					      &scan);
283	if (pctx.errcode) {
284		fix_problem(ctx, PR_1B_ISCAN_ERROR, &pctx);
285		ctx->flags |= E2F_FLAG_ABORT;
286		return;
287	}
288	ctx->stashed_inode = &inode;
289	pb.ctx = ctx;
290	pb.pctx = &pctx;
291	pctx.str = "pass1b";
292	while (1) {
293		if (ino % (fs->super->s_inodes_per_group * 4) == 1) {
294			if (e2fsck_mmp_update(fs))
295				fatal_error(ctx, 0);
296		}
297		pctx.errcode = ext2fs_get_next_inode(scan, &ino, &inode);
298		if (pctx.errcode == EXT2_ET_BAD_BLOCK_IN_INODE_TABLE)
299			continue;
300		if (pctx.errcode) {
301			fix_problem(ctx, PR_1B_ISCAN_ERROR, &pctx);
302			ctx->flags |= E2F_FLAG_ABORT;
303			return;
304		}
305		if (!ino)
306			break;
307		pctx.ino = ctx->stashed_ino = ino;
308		if ((ino != EXT2_BAD_INO) &&
309		    !ext2fs_test_inode_bitmap2(ctx->inode_used_map, ino))
310			continue;
311
312		pb.ino = ino;
313		pb.dup_blocks = 0;
314		pb.inode = &inode;
315		pb.cur_cluster = ~0;
316
317		if (ext2fs_inode_has_valid_blocks2(fs, &inode) ||
318		    (ino == EXT2_BAD_INO))
319			pctx.errcode = ext2fs_block_iterate3(fs, ino,
320					     BLOCK_FLAG_READ_ONLY, block_buf,
321					     process_pass1b_block, &pb);
322		/* If the feature is not set, attrs will be cleared later anyway */
323		if ((fs->super->s_feature_compat & EXT2_FEATURE_COMPAT_EXT_ATTR) &&
324		    ext2fs_file_acl_block(fs, &inode)) {
325			blk64_t blk = ext2fs_file_acl_block(fs, &inode);
326			process_pass1b_block(fs, &blk,
327					     BLOCK_COUNT_EXTATTR, 0, 0, &pb);
328			ext2fs_file_acl_block_set(fs, &inode, blk);
329		}
330		if (pb.dup_blocks) {
331			end_problem_latch(ctx, PR_LATCH_DBLOCK);
332			if (ino >= EXT2_FIRST_INODE(fs->super) ||
333			    ino == EXT2_ROOT_INO)
334				dup_inode_count++;
335		}
336		if (pctx.errcode)
337			fix_problem(ctx, PR_1B_BLOCK_ITERATE, &pctx);
338	}
339	ext2fs_close_inode_scan(scan);
340	e2fsck_use_inode_shortcuts(ctx, 0);
341}
342
343static int process_pass1b_block(ext2_filsys fs EXT2FS_ATTR((unused)),
344				blk64_t	*block_nr,
345				e2_blkcnt_t blockcnt,
346				blk64_t ref_blk EXT2FS_ATTR((unused)),
347				int ref_offset EXT2FS_ATTR((unused)),
348				void *priv_data)
349{
350	struct process_block_struct *p;
351	e2fsck_t ctx;
352	blk64_t	lc;
353
354	if (HOLE_BLKADDR(*block_nr))
355		return 0;
356	p = (struct process_block_struct *) priv_data;
357	ctx = p->ctx;
358	lc = EXT2FS_B2C(fs, blockcnt);
359
360	if (!ext2fs_test_block_bitmap2(ctx->block_dup_map, *block_nr))
361		goto finish;
362
363	/* OK, this is a duplicate block */
364	if (p->ino != EXT2_BAD_INO) {
365		p->pctx->blk = *block_nr;
366		fix_problem(ctx, PR_1B_DUP_BLOCK, p->pctx);
367	}
368	p->dup_blocks++;
369	ext2fs_mark_inode_bitmap2(inode_dup_map, p->ino);
370
371	if (lc != p->cur_cluster)
372		add_dupe(ctx, p->ino, EXT2FS_B2C(fs, *block_nr), p->inode);
373
374finish:
375	p->cur_cluster = lc;
376	return 0;
377}
378
379/*
380 * Pass 1c: Scan directories for inodes with duplicate blocks.  This
381 * is used so that we can print pathnames when prompting the user for
382 * what to do.
383 */
384struct search_dir_struct {
385	int		count;
386	ext2_ino_t	first_inode;
387	ext2_ino_t	max_inode;
388};
389
390static int search_dirent_proc(ext2_ino_t dir, int entry,
391			      struct ext2_dir_entry *dirent,
392			      int offset EXT2FS_ATTR((unused)),
393			      int blocksize EXT2FS_ATTR((unused)),
394			      char *buf EXT2FS_ATTR((unused)),
395			      void *priv_data)
396{
397	struct search_dir_struct *sd;
398	struct dup_inode	*p;
399	dnode_t			*n;
400
401	sd = (struct search_dir_struct *) priv_data;
402
403	if (dirent->inode > sd->max_inode)
404		/* Should abort this inode, but not everything */
405		return 0;
406
407	if ((dirent->inode < sd->first_inode) || (entry < DIRENT_OTHER_FILE) ||
408	    !ext2fs_test_inode_bitmap2(inode_dup_map, dirent->inode))
409		return 0;
410
411	n = dict_lookup(&ino_dict, INT_TO_VOIDPTR(dirent->inode));
412	if (!n)
413		return 0;
414	p = (struct dup_inode *) dnode_get(n);
415	if (!p->dir) {
416		p->dir = dir;
417		sd->count--;
418	}
419
420	return(sd->count ? 0 : DIRENT_ABORT);
421}
422
423
424static void pass1c(e2fsck_t ctx, char *block_buf)
425{
426	ext2_filsys fs = ctx->fs;
427	struct search_dir_struct sd;
428	struct problem_context pctx;
429
430	clear_problem_context(&pctx);
431
432	if (!(ctx->options & E2F_OPT_PREEN))
433		fix_problem(ctx, PR_1C_PASS_HEADER, &pctx);
434
435	/*
436	 * Search through all directories to translate inodes to names
437	 * (by searching for the containing directory for that inode.)
438	 */
439	sd.count = dup_inode_count - dup_inode_founddir;
440	sd.first_inode = EXT2_FIRST_INODE(fs->super);
441	sd.max_inode = fs->super->s_inodes_count;
442	ext2fs_dblist_dir_iterate(fs->dblist, 0, block_buf,
443				  search_dirent_proc, &sd);
444}
445
446static void pass1d(e2fsck_t ctx, char *block_buf)
447{
448	ext2_filsys fs = ctx->fs;
449	struct dup_inode	*p, *t;
450	struct dup_cluster	*q;
451	ext2_ino_t		*shared, ino;
452	int	shared_len;
453	int	i;
454	int	file_ok;
455	int	meta_data = 0;
456	struct problem_context pctx;
457	dnode_t	*n, *m;
458	struct cluster_el	*s;
459	struct inode_el *r;
460
461	clear_problem_context(&pctx);
462
463	if (!(ctx->options & E2F_OPT_PREEN))
464		fix_problem(ctx, PR_1D_PASS_HEADER, &pctx);
465	e2fsck_read_bitmaps(ctx);
466
467	pctx.num = dup_inode_count; /* dict_count(&ino_dict); */
468	fix_problem(ctx, PR_1D_NUM_DUP_INODES, &pctx);
469	shared = (ext2_ino_t *) e2fsck_allocate_memory(ctx,
470				sizeof(ext2_ino_t) * dict_count(&ino_dict),
471				"Shared inode list");
472	for (n = dict_first(&ino_dict); n; n = dict_next(&ino_dict, n)) {
473		p = (struct dup_inode *) dnode_get(n);
474		shared_len = 0;
475		file_ok = 1;
476		ino = (ext2_ino_t)VOIDPTR_TO_INT(dnode_getkey(n));
477		if (ino == EXT2_BAD_INO || ino == EXT2_RESIZE_INO)
478			continue;
479
480		/*
481		 * Find all of the inodes which share blocks with this
482		 * one.  First we find all of the duplicate blocks
483		 * belonging to this inode, and then search each block
484		 * get the list of inodes, and merge them together.
485		 */
486		for (s = p->cluster_list; s; s = s->next) {
487			m = dict_lookup(&clstr_dict,
488					INT_TO_VOIDPTR(s->cluster));
489			if (!m)
490				continue; /* Should never happen... */
491			q = (struct dup_cluster *) dnode_get(m);
492			if (q->num_bad > 1)
493				file_ok = 0;
494			if (check_if_fs_cluster(ctx, s->cluster)) {
495				file_ok = 0;
496				meta_data = 1;
497			}
498
499			/*
500			 * Add all inodes used by this block to the
501			 * shared[] --- which is a unique list, so
502			 * if an inode is already in shared[], don't
503			 * add it again.
504			 */
505			for (r = q->inode_list; r; r = r->next) {
506				if (r->inode == ino)
507					continue;
508				for (i = 0; i < shared_len; i++)
509					if (shared[i] == r->inode)
510						break;
511				if (i == shared_len) {
512					shared[shared_len++] = r->inode;
513				}
514			}
515		}
516
517		/*
518		 * Report the inode that we are working on
519		 */
520		pctx.inode = &p->inode;
521		pctx.ino = ino;
522		pctx.dir = p->dir;
523		pctx.blkcount = p->num_dupblocks;
524		pctx.num = meta_data ? shared_len+1 : shared_len;
525		fix_problem(ctx, PR_1D_DUP_FILE, &pctx);
526		pctx.blkcount = 0;
527		pctx.num = 0;
528
529		if (meta_data)
530			fix_problem(ctx, PR_1D_SHARE_METADATA, &pctx);
531
532		for (i = 0; i < shared_len; i++) {
533			m = dict_lookup(&ino_dict, INT_TO_VOIDPTR(shared[i]));
534			if (!m)
535				continue; /* should never happen */
536			t = (struct dup_inode *) dnode_get(m);
537			/*
538			 * Report the inode that we are sharing with
539			 */
540			pctx.inode = &t->inode;
541			pctx.ino = shared[i];
542			pctx.dir = t->dir;
543			fix_problem(ctx, PR_1D_DUP_FILE_LIST, &pctx);
544		}
545		if (file_ok) {
546			fix_problem(ctx, PR_1D_DUP_BLOCKS_DEALT, &pctx);
547			continue;
548		}
549		if (fix_problem(ctx, PR_1D_CLONE_QUESTION, &pctx)) {
550			pctx.errcode = clone_file(ctx, ino, p, block_buf);
551			if (pctx.errcode)
552				fix_problem(ctx, PR_1D_CLONE_ERROR, &pctx);
553			else
554				continue;
555		}
556		if (fix_problem(ctx, PR_1D_DELETE_QUESTION, &pctx))
557			delete_file(ctx, ino, p, block_buf);
558		else
559			ext2fs_unmark_valid(fs);
560	}
561	ext2fs_free_mem(&shared);
562}
563
564/*
565 * Drop the refcount on the dup_block structure, and clear the entry
566 * in the block_dup_map if appropriate.
567 */
568static void decrement_badcount(e2fsck_t ctx, blk64_t block,
569			       struct dup_cluster *p)
570{
571	p->num_bad--;
572	if (p->num_bad <= 0 ||
573	    (p->num_bad == 1 && !check_if_fs_block(ctx, block))) {
574		if (check_if_fs_cluster(ctx, EXT2FS_B2C(ctx->fs, block)))
575			return;
576		ext2fs_unmark_block_bitmap2(ctx->block_dup_map, block);
577	}
578}
579
580static int delete_file_block(ext2_filsys fs,
581			     blk64_t	*block_nr,
582			     e2_blkcnt_t blockcnt,
583			     blk64_t ref_block EXT2FS_ATTR((unused)),
584			     int ref_offset EXT2FS_ATTR((unused)),
585			     void *priv_data)
586{
587	struct process_block_struct *pb;
588	struct dup_cluster *p;
589	dnode_t	*n;
590	e2fsck_t ctx;
591	blk64_t c, lc;
592
593	pb = (struct process_block_struct *) priv_data;
594	ctx = pb->ctx;
595
596	if (HOLE_BLKADDR(*block_nr))
597		return 0;
598
599	c = EXT2FS_B2C(fs, *block_nr);
600	lc = EXT2FS_B2C(fs, blockcnt);
601	if (ext2fs_test_block_bitmap2(ctx->block_dup_map, *block_nr)) {
602		n = dict_lookup(&clstr_dict, INT_TO_VOIDPTR(c));
603		if (n) {
604			p = (struct dup_cluster *) dnode_get(n);
605			if (lc != pb->cur_cluster)
606				decrement_badcount(ctx, *block_nr, p);
607		} else
608			com_err("delete_file_block", 0,
609			    _("internal error: can't find dup_blk for %llu\n"),
610				*block_nr);
611	} else {
612		ext2fs_unmark_block_bitmap2(ctx->block_found_map, *block_nr);
613		ext2fs_block_alloc_stats2(fs, *block_nr, -1);
614		pb->dup_blocks++;
615	}
616	pb->cur_cluster = lc;
617
618	return 0;
619}
620
621static void delete_file(e2fsck_t ctx, ext2_ino_t ino,
622			struct dup_inode *dp, char* block_buf)
623{
624	ext2_filsys fs = ctx->fs;
625	struct process_block_struct pb;
626	struct problem_context	pctx;
627	unsigned int		count;
628
629	clear_problem_context(&pctx);
630	pctx.ino = pb.ino = ino;
631	pb.dup_blocks = 0;
632	pb.ctx = ctx;
633	pctx.str = "delete_file";
634	pb.cur_cluster = ~0;
635
636	if (ext2fs_inode_has_valid_blocks2(fs, &dp->inode))
637		pctx.errcode = ext2fs_block_iterate3(fs, ino,
638						     BLOCK_FLAG_READ_ONLY,
639						     block_buf,
640						     delete_file_block, &pb);
641	if (pctx.errcode)
642		fix_problem(ctx, PR_1B_BLOCK_ITERATE, &pctx);
643	if (ctx->inode_bad_map)
644		ext2fs_unmark_inode_bitmap2(ctx->inode_bad_map, ino);
645	ext2fs_inode_alloc_stats2(fs, ino, -1, LINUX_S_ISDIR(dp->inode.i_mode));
646	quota_data_sub(ctx->qctx, &dp->inode, ino,
647		       pb.dup_blocks * fs->blocksize);
648	quota_data_inodes(ctx->qctx, &dp->inode, ino, -1);
649
650	/* Inode may have changed by block_iterate, so reread it */
651	e2fsck_read_inode(ctx, ino, &dp->inode, "delete_file");
652	e2fsck_clear_inode(ctx, ino, &dp->inode, 0, "delete_file");
653	if (ext2fs_file_acl_block(fs, &dp->inode) &&
654	    (fs->super->s_feature_compat & EXT2_FEATURE_COMPAT_EXT_ATTR)) {
655		count = 1;
656		pctx.errcode = ext2fs_adjust_ea_refcount2(fs,
657					ext2fs_file_acl_block(fs, &dp->inode),
658						   block_buf, -1, &count);
659		if (pctx.errcode == EXT2_ET_BAD_EA_BLOCK_NUM) {
660			pctx.errcode = 0;
661			count = 1;
662		}
663		if (pctx.errcode) {
664			pctx.blk = ext2fs_file_acl_block(fs, &dp->inode);
665			fix_problem(ctx, PR_1B_ADJ_EA_REFCOUNT, &pctx);
666		}
667		/*
668		 * If the count is zero, then arrange to have the
669		 * block deleted.  If the block is in the block_dup_map,
670		 * also call delete_file_block since it will take care
671		 * of keeping the accounting straight.
672		 */
673		if ((count == 0) ||
674		    ext2fs_test_block_bitmap2(ctx->block_dup_map,
675					ext2fs_file_acl_block(fs, &dp->inode))) {
676			blk64_t blk = ext2fs_file_acl_block(fs, &dp->inode);
677			delete_file_block(fs, &blk,
678					  BLOCK_COUNT_EXTATTR, 0, 0, &pb);
679			ext2fs_file_acl_block_set(fs, &dp->inode, blk);
680			quota_data_sub(ctx->qctx, &dp->inode, ino, fs->blocksize);
681		}
682	}
683}
684
685struct clone_struct {
686	errcode_t	errcode;
687	blk64_t		dup_cluster;
688	blk64_t		alloc_block;
689	ext2_ino_t	dir;
690	char	*buf;
691	e2fsck_t ctx;
692};
693
694static int clone_file_block(ext2_filsys fs,
695			    blk64_t	*block_nr,
696			    e2_blkcnt_t blockcnt,
697			    blk64_t ref_block EXT2FS_ATTR((unused)),
698			    int ref_offset EXT2FS_ATTR((unused)),
699			    void *priv_data)
700{
701	struct dup_cluster *p;
702	blk64_t	new_block;
703	errcode_t	retval;
704	struct clone_struct *cs = (struct clone_struct *) priv_data;
705	dnode_t *n;
706	e2fsck_t ctx;
707	blk64_t c;
708	int is_meta = 0;
709
710	ctx = cs->ctx;
711
712	if (HOLE_BLKADDR(*block_nr))
713		return 0;
714
715	c = EXT2FS_B2C(fs, blockcnt);
716	if (check_if_fs_cluster(ctx, EXT2FS_B2C(fs, *block_nr)))
717		is_meta = 1;
718
719	if (c == cs->dup_cluster && cs->alloc_block) {
720		new_block = cs->alloc_block;
721		goto got_block;
722	}
723
724	if (ext2fs_test_block_bitmap2(ctx->block_dup_map, *block_nr)) {
725		n = dict_lookup(&clstr_dict,
726				INT_TO_VOIDPTR(EXT2FS_B2C(fs, *block_nr)));
727		if (!n) {
728			com_err("clone_file_block", 0,
729			    _("internal error: can't find dup_blk for %llu\n"),
730				*block_nr);
731			return 0;
732		}
733
734		p = (struct dup_cluster *) dnode_get(n);
735		if (!is_meta)
736			decrement_badcount(ctx, *block_nr, p);
737
738		cs->dup_cluster = c;
739
740		retval = ext2fs_new_block2(fs, 0, ctx->block_found_map,
741					   &new_block);
742		if (retval) {
743			cs->errcode = retval;
744			return BLOCK_ABORT;
745		}
746		cs->alloc_block = new_block;
747
748	got_block:
749		new_block &= ~EXT2FS_CLUSTER_MASK(fs);
750		new_block += EXT2FS_CLUSTER_MASK(fs) & blockcnt;
751		if (cs->dir && (blockcnt >= 0)) {
752			retval = ext2fs_set_dir_block2(fs->dblist,
753					cs->dir, new_block, blockcnt);
754			if (retval) {
755				cs->errcode = retval;
756				return BLOCK_ABORT;
757			}
758		}
759#if 0
760 		printf("Cloning block #%lld from %llu to %llu\n",
761		       blockcnt, *block_nr, new_block);
762#endif
763		retval = io_channel_read_blk64(fs->io, *block_nr, 1, cs->buf);
764		if (retval) {
765			cs->errcode = retval;
766			return BLOCK_ABORT;
767		}
768		retval = io_channel_write_blk64(fs->io, new_block, 1, cs->buf);
769		if (retval) {
770			cs->errcode = retval;
771			return BLOCK_ABORT;
772		}
773		*block_nr = new_block;
774		ext2fs_mark_block_bitmap2(ctx->block_found_map, new_block);
775		ext2fs_mark_block_bitmap2(fs->block_map, new_block);
776		return BLOCK_CHANGED;
777	}
778	return 0;
779}
780
781static errcode_t clone_file(e2fsck_t ctx, ext2_ino_t ino,
782			    struct dup_inode *dp, char* block_buf)
783{
784	ext2_filsys fs = ctx->fs;
785	errcode_t	retval;
786	struct clone_struct cs;
787	struct problem_context	pctx;
788	blk64_t		blk, new_blk;
789	dnode_t		*n;
790	struct inode_el	*ino_el;
791	struct dup_cluster	*dc;
792	struct dup_inode	*di;
793
794	clear_problem_context(&pctx);
795	cs.errcode = 0;
796	cs.dir = 0;
797	cs.dup_cluster = ~0;
798	cs.alloc_block = 0;
799	cs.ctx = ctx;
800	retval = ext2fs_get_mem(fs->blocksize, &cs.buf);
801	if (retval)
802		return retval;
803
804	if (ext2fs_test_inode_bitmap2(ctx->inode_dir_map, ino))
805		cs.dir = ino;
806
807	pctx.ino = ino;
808	pctx.str = "clone_file";
809	if (ext2fs_inode_has_valid_blocks2(fs, &dp->inode))
810		pctx.errcode = ext2fs_block_iterate3(fs, ino, 0, block_buf,
811						     clone_file_block, &cs);
812	ext2fs_mark_bb_dirty(fs);
813	if (pctx.errcode) {
814		fix_problem(ctx, PR_1B_BLOCK_ITERATE, &pctx);
815		retval = pctx.errcode;
816		goto errout;
817	}
818	if (cs.errcode) {
819		com_err("clone_file", cs.errcode, "%s",
820			_("returned from clone_file_block"));
821		retval = cs.errcode;
822		goto errout;
823	}
824	/* The inode may have changed on disk, so we have to re-read it */
825	e2fsck_read_inode(ctx, ino, &dp->inode, "clone file EA");
826	blk = ext2fs_file_acl_block(fs, &dp->inode);
827	new_blk = blk;
828	if (blk && (clone_file_block(fs, &new_blk,
829				     BLOCK_COUNT_EXTATTR, 0, 0, &cs) ==
830		    BLOCK_CHANGED)) {
831		ext2fs_file_acl_block_set(fs, &dp->inode, new_blk);
832		e2fsck_write_inode(ctx, ino, &dp->inode, "clone file EA");
833		/*
834		 * If we cloned the EA block, find all other inodes
835		 * which refered to that EA block, and modify
836		 * them to point to the new EA block.
837		 */
838		n = dict_lookup(&clstr_dict,
839				INT_TO_VOIDPTR(EXT2FS_B2C(fs, blk)));
840		if (!n) {
841			com_err("clone_file", 0,
842				_("internal error: couldn't lookup EA "
843				  "block record for %llu"), blk);
844			retval = 0; /* OK to stumble on... */
845			goto errout;
846		}
847		dc = (struct dup_cluster *) dnode_get(n);
848		for (ino_el = dc->inode_list; ino_el; ino_el = ino_el->next) {
849			if (ino_el->inode == ino)
850				continue;
851			n = dict_lookup(&ino_dict, INT_TO_VOIDPTR(ino_el->inode));
852			if (!n) {
853				com_err("clone_file", 0,
854					_("internal error: couldn't lookup EA "
855					  "inode record for %u"),
856					ino_el->inode);
857				retval = 0; /* OK to stumble on... */
858				goto errout;
859			}
860			di = (struct dup_inode *) dnode_get(n);
861			if (ext2fs_file_acl_block(fs, &di->inode) == blk) {
862				ext2fs_file_acl_block_set(fs, &di->inode,
863					ext2fs_file_acl_block(fs, &dp->inode));
864				e2fsck_write_inode(ctx, ino_el->inode,
865					   &di->inode, "clone file EA");
866				decrement_badcount(ctx, blk, dc);
867			}
868		}
869	}
870	retval = 0;
871errout:
872	ext2fs_free_mem(&cs.buf);
873	return retval;
874}
875
876/*
877 * This routine returns 1 if a block overlaps with one of the superblocks,
878 * group descriptors, inode bitmaps, or block bitmaps.
879 */
880static int check_if_fs_block(e2fsck_t ctx, blk64_t test_block)
881{
882	ext2_filsys fs = ctx->fs;
883	blk64_t	first_block;
884	dgrp_t	i;
885
886	first_block = fs->super->s_first_data_block;
887	for (i = 0; i < fs->group_desc_count; i++) {
888
889		/* Check superblocks/block group descriptors */
890		if (ext2fs_bg_has_super(fs, i)) {
891			if (test_block >= first_block &&
892			    (test_block <= first_block + fs->desc_blocks))
893				return 1;
894		}
895
896		/* Check the inode table */
897		if ((ext2fs_inode_table_loc(fs, i)) &&
898		    (test_block >= ext2fs_inode_table_loc(fs, i)) &&
899		    (test_block < (ext2fs_inode_table_loc(fs, i) +
900				   fs->inode_blocks_per_group)))
901			return 1;
902
903		/* Check the bitmap blocks */
904		if ((test_block == ext2fs_block_bitmap_loc(fs, i)) ||
905		    (test_block == ext2fs_inode_bitmap_loc(fs, i)))
906			return 1;
907
908		first_block += fs->super->s_blocks_per_group;
909	}
910	return 0;
911}
912
913/*
914 * This routine returns 1 if a cluster overlaps with one of the superblocks,
915 * group descriptors, inode bitmaps, or block bitmaps.
916 */
917static int check_if_fs_cluster(e2fsck_t ctx, blk64_t cluster)
918{
919	ext2_filsys fs = ctx->fs;
920	blk64_t	first_block;
921	dgrp_t	i;
922
923	first_block = fs->super->s_first_data_block;
924	for (i = 0; i < fs->group_desc_count; i++) {
925
926		/* Check superblocks/block group descriptors */
927		if (ext2fs_bg_has_super(fs, i)) {
928			if (cluster >= EXT2FS_B2C(fs, first_block) &&
929			    (cluster <= EXT2FS_B2C(fs, first_block +
930						   fs->desc_blocks)))
931				return 1;
932		}
933
934		/* Check the inode table */
935		if ((ext2fs_inode_table_loc(fs, i)) &&
936		    (cluster >= EXT2FS_B2C(fs,
937					   ext2fs_inode_table_loc(fs, i))) &&
938		    (cluster <= EXT2FS_B2C(fs,
939					   ext2fs_inode_table_loc(fs, i) +
940					   fs->inode_blocks_per_group - 1)))
941			return 1;
942
943		/* Check the bitmap blocks */
944		if ((cluster == EXT2FS_B2C(fs,
945					   ext2fs_block_bitmap_loc(fs, i))) ||
946		    (cluster == EXT2FS_B2C(fs,
947					   ext2fs_inode_bitmap_loc(fs, i))))
948			return 1;
949
950		first_block += fs->super->s_blocks_per_group;
951	}
952	return 0;
953}
954