add sqmail-4.2.29asqmail-4.2

1 files changed, 31 insertions, 0 deletions

diff --git a/src/ddist.sh b/src/ddist.sh
new file mode 100644
index 0000000..b632572
--- /dev/null
+++ b/src/ddist.sh
@@ -0,0 +1,31 @@
+
+awk '/^d k/ { print $5 - $3 }' \
+| sort -n \
+| awk '
+  { x += 1; cumulative[$1] = x }
+  END {
+    if (x > 0) {
+      for (p = 0;p <= 100;++p) mindel[p] = -1
+      for (d in cumulative) {
+        p = int((cumulative[d] * 100) / x)
+        if (mindel[p] == -1) mindel[p] = d
+        else if (d < mindel[p]) mindel[p] = d
+        totdel[p] += d
+        numdel[p] += 1
+      }
+      td = 0
+      nd = 0
+      for (p = 0;p <= 100;++p) {
+        td += totdel[p]
+        nd += numdel[p]
+        if (p >= 10)
+	  if (nd > 0)
+            if (mindel[p] >= 0) {
+	      str1 = sprintf("%.2f",mindel[p])
+	      str2 = sprintf("%.2f",td / nd)
+	      print str1, str2, p
+	    }
+      }
+    }
+  }
+'