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

Moved and added some comments, no code changes

Browse Source
This commit is contained in:
bluesaxman 2021-09-08 11:47:30 -06:00
parent 5e78718881
commit 7088f57ba6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
wipe.pl
View File

@ -101,11 +101,11 @@ sub getdisks {
sub wipethemdrives {
my $diskid = shift;
my $disks = shift;
# Write
say "$disks->{$diskid}{path} - Serial:$disks->{$diskid}{serial} is being wiped...";
my $disksum;
my $disksum2;
my $spacer = 29;
# Write
if ($notreally) {
$spacer = 18;
print "Pretend wipe complete, pretending to check...";
@ -113,11 +113,12 @@ sub wipethemdrives {
$disksum2 = $clobsum;
} else {
open(my $diskw, ">", $disks->{$diskid}{path}) or return warning("could not open $disks->{$diskid}{path}");
print $diskw $clobber;
print $diskw $clobber; #Start of Disk
seek($diskw,-10240000,2);
print $diskw $clobber;
print $diskw $clobber; #End of Disk
close($diskw);
system("sync");
#######################################
system("sync"); #Need to check if this failes and actually fail the disk if it fails.
print "Wipe attempt complete, checking...";
# Read
open(my $diskr, "<", $disks->{$diskid}{path}) or return warning("could not open $disks->{$diskid}{path}");
@ -149,6 +150,7 @@ sub wipethemdrives {
seek($longdiskw,0,2);
my $totalBytes = tell($longdiskw);
seek($longdiskw,0,0);
#################################################### Need to double check this math, its not calculating % right
for (0..($totalBytes/4096)) {
print $longdiskw "\0"x4096;
if ( !(tell($longdiskw) % (16*4096)) ) {