#!/bin/bash
ini=/var/local/emhttp/diskload.ini
declare -a reads writes

# t = poll interval in seconds
t=6
while :; do
  stats=($(awk '/(sd[a-z]*|nvme[0-9]n1|vd[a-z]) /{print $3,$6,$10,$4,$8}' /proc/diskstats))
  c=0; s=${#stats[@]}
  echo -n >$ini
  for ((i=0;i<s;i+=5)); do
    reads[c]=$((stats[i+1]-reads[c]))
    writes[c]=$((stats[i+2]-writes[c]))
    echo ${stats[i]}=$((reads[c]*512/t)) $((writes[c]*512/t)) ${stats[i+3]} ${stats[i+4]} >>$ini
    reads[c]=${stats[i+1]}
    writes[c]=${stats[i+2]}
    ((c++))
  done
  sleep $t
done