- increased blocksize for better throughput

- added transferrate

deep_fixitycheck.pl

@@ -267,7 +267,7 @@ sub check_file_fixities($$) {
   binmode($fh);
   my $buffer;
   my $block=0;
-  my $blocksize = 8*1024; # 8kB blocks
+  my $blocksize = 128*1024; # 128kB blocks
   while (1) {
     my $ret = read($fh, $buffer, $blocksize);
     if (defined $ret) {
@@ -352,7 +352,8 @@ if (defined $search_dir && -d "$search_dir") {
     while ( <$fh_unsorted_file>) { # scan each IE
       $stat->{IEs}++;
       chomp;
-      print $progressbar->report("parse IE files:       %40b  running: %L ETA: %E ($count/$cnt_unsorted_files IEs)         \r", ++$count);
+      my $transferrate_in_MBs = sprintf("%0.2f", $stat->{scansize} / (time - $stat->{begin}+1) / 1024 / 1024);
+      print $progressbar->report("parse IE files:       %40b  running: %L ETA: %E ($count/$cnt_unsorted_files IEs, tfr=$transferrate_in_MBs MB/s)         \r", ++$count);
       my $ret = parse_iexml( $_, $recovery);
       foreach my $fileobj (@{ $ret->{files} }) {
         $fileobj->{file_mounted} = map_file($map_path, $fileobj->{filepath});