bluesaxman/squeegy
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added the ability to wipe raid metadata... hopefully

Browse Source
This commit is contained in:
bluesaxman 2019-10-30 15:54:47 -06:00
parent 5a8d07e678
commit fd08e597a0
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
wipe.pl
View File

@ -100,14 +100,18 @@ sub wipethemdrives {
# Write
say "$disks->{$diskid}{path} - Serial:$disks->{$diskid}{serial} is being wiped...";
my $disksum;
my $disksum2;
my $spacer = 29;
if ($notreally) {
$spacer = 18;
print "Pretend wipe complete, pretending to check...";
$disksum = $clobsum;
$disksum2 = $clobsum;
} else {
open(my $diskw, ">", $disks->{$diskid}{path}) or return warning("could not open $disks->{$diskid}{path}");
print $diskw $clobber;
seek($diskw,-10240000,2);
print $diskw $clobber;
close($diskw);
system("sync");
print "Wipe attempt complete, checking...";
@ -116,18 +120,27 @@ sub wipethemdrives {
my $diskdata;
read($diskr, $diskdata, 10240000);
$disksum = md5_base64($diskdata);
seek($diskr,-10240000,2);
read($diskr, $diskdata, 10240000);
$disksum2 = md5_base64($diskdata);
close($diskr);
}
# say "Disk Checksum: $disksum";
if ($disksum eq $clobsum) {
say +("."x$spacer)."Checksum $color{green}PASSED$color{reset}";
# say "$disks->{$diskid}{path} is clean.";
return 1;
print " Checking raid wipe...";
if ($disksum2 eq $clobsum) {
say +("."x$spacer)."Checksum $color{green}PASSED$color{reset}";
return 1;
} else {
say +("."x$spacer)."Checksum $color{red}FAILED$color{reset}";
return 0;
}
} else {
# say "Wipe Checksum: $clobsum";
say +("."x$spacer)."Checksum $color{red}FAILED$color{reset}";
return 0;
}
# If long flag than zero whole disk and give a progress bar
}
# to test a drive