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

Corrected seek issue

Browse Source
This commit is contained in:
bluesaxman 2019-11-01 13:08:45 -06:00
parent 39cf4ad940
commit 69b9947f58
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
wipe.pl
View File

@ -147,6 +147,7 @@ sub wipethemdrives {
open(my $longdiskw, ">:raw", $disks->{$diskid}{path}) or return warning("could not open $disks->{$diskid}{path}"); open(my $longdiskw, ">:raw", $disks->{$diskid}{path}) or return warning("could not open $disks->{$diskid}{path}");
seek($longdiskw,0,2); seek($longdiskw,0,2);
my $totalBytes = tell($longdiskw); my $totalBytes = tell($longdiskw);
seek($longdiskw,0,0);
until (eof $longdiskw) { until (eof $longdiskw) {
print $longdiskw "\0"; print $longdiskw "\0";
printf(" %5.5s%%\r\r\r\r\r\r\r", sprintf("%.2f", (tell($longdiskw)/$totalBytes)) ); printf(" %5.5s%%\r\r\r\r\r\r\r", sprintf("%.2f", (tell($longdiskw)/$totalBytes)) );