2c5c7c6753
- rebuild extent records - fix block group accounting - reset csums for rescue nodatasum mount - prune corrupt extent allocation tree blocks - device scanning fixes for dm and multipath - initrd support: move btrfs device scan after block device setup - documentation updates - add csize for file commpressed size - updated restore utility OBS-URL: https://build.opensuse.org/package/show/filesystems/btrfsprogs?expand=0&rev=118
71 lines
1.6 KiB
Perl
71 lines
1.6 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# clear btrfs signature from a device
|
|
|
|
use Fcntl;
|
|
|
|
use constant BTRFS_SUPER_INFO_OFFSET => 64 * 1024;
|
|
use constant BTRFS_SUPER_INFO_SIZE => 4096;
|
|
|
|
use constant BTRFS_SUPER_MIRROR_MAX => 3;
|
|
use constant BTRFS_SUPER_MIRROR_SHIFT => 12;
|
|
|
|
use constant BTRFS_MAGIC => "_BHRfS_M";
|
|
use constant BTRFS_DEAD => '_BHRf$_M';
|
|
|
|
sub btrfs_sb_offset($) {
|
|
my $mirror =$_[0];
|
|
my $start = 16 * 1024;
|
|
if ($mirror>0) {
|
|
return $start << (BTRFS_SUPER_MIRROR_SHIFT * $mirror);
|
|
}
|
|
return BTRFS_SUPER_INFO_OFFSET;
|
|
}
|
|
|
|
my $dbg=1;
|
|
my $savesb=0;
|
|
|
|
# main
|
|
my $dev=$ARGV[0];
|
|
my $size;
|
|
if(!-b $dev) {
|
|
print("Not a block device: $dev\n");
|
|
$size=(stat($dev))[7];
|
|
} else {
|
|
$size=`blkdev --getsize64 "$dev"`;
|
|
}
|
|
sysopen(F, $dev, O_EXCL | O_RDWR) or die("Cannot open $dev exclusively: $!");
|
|
sysseek(F, 0, 2);
|
|
$size=tell(F);
|
|
print("Device size: $size\n") if($dbg);
|
|
for(my $i=0;$i<6;$i++) {
|
|
my $off=btrfs_sb_offset($i);
|
|
if($off > $size) {
|
|
print("Offset for SB $i beyond EOF\n") if($dbg);
|
|
last;
|
|
}
|
|
print("Offset $i is $off\n") if($dbg);
|
|
sysseek(F, $off, 0);
|
|
sysread(F, $buf, BTRFS_SUPER_INFO_SIZE);
|
|
if($savesb) {
|
|
open(Q,">SB$i");
|
|
print Q ($buf);
|
|
close(Q);
|
|
}
|
|
my $sbmagic=substr($buf, 0x40, length(BTRFS_MAGIC));
|
|
print("SB magic: $sbmagic\n") if($dbg);
|
|
if(BTRFS_MAGIC eq $sbmagic) {
|
|
print("Found a valid signature of superblock $i\n");
|
|
sysseek(F, $off + 0x40, 0);
|
|
print("Clearing...\n");
|
|
syswrite(F, BTRFS_DEAD, length(BTRFS_DEAD));
|
|
} elsif(BTRFS_DEAD eq $sbmagic) {
|
|
print("Found a signature of a dead superblock $i\n");
|
|
} else {
|
|
print("Superblock $i does not look like a btrfs one\n");
|
|
}
|
|
}
|
|
close(F);
|
|
print("Syncing dev\n");
|
|
system("fsync \'$dev\'");
|