initial xerl import to utils

1 files changed, 49 insertions, 0 deletions

diff --git a/scripts/stats/calc.sh b/scripts/stats/calc.sh
new file mode 100755
index 0000000..dfb7453
--- /dev/null
+++ b/scripts/stats/calc.sh
@@ -0,0 +1,49 @@
+#!/bin/sh
+# By Paul C. Buetow (http://www.buetow.org)
+
+perl='
+ /.*? (.*?) (.*?) /o
+   && ++$ip{$2}{$1} && ++$p{$1}
+   && ++$h{$2} && ++$t
+     for <>;
+ $l = do { $_ = length $t; $_ < 4 ? 4 : $_ };
+ printf " # %$l"."s%4s %$l"."s%4s %24s\n", 
+   "HITS", "%", "UNIQ", "%", "SITE ADDRESS";
+ printf "%2.d %$l.d%4.f %$l.d%4.f %24s\n",
+   ++$i, $h{$_}, 100*$h{$_}/$t,
+   ($n = keys %{$ip{$_}}), 100*$n/(keys %p),$_
+     and $i==15 && last
+       for sort { $h{$b} <=> $h{$a} } keys %h'
+
+ls=`ls *.log`
+cat << STATS | less
+Weekly top 15:
+
+`echo "$ls" | tail -n 7 | xargs cat | perl -e "$perl"`
+
+Monthly top ten:
+
+`echo "$ls" | tail -n 28 | xargs cat | perl -e "$perl"`
+
+Yearly top ten:
+
+`echo "$ls" | tail -n 356 | xargs cat | perl -e "$perl"`
+
+STATS
+ftp://ftp.buetow.org download top ten:
+
+exit 0
+`gawk '
+  $9 ~ /^\/data\/ftp\// { ++dl[\$9] }
+  END {  
+    for (k in dl) 
+      d[k] = sprintf("%3d %s", dl[k], k)
+    n = asort(d)
+    rank = 1
+    for (i = n; i > 0 && rank < 11; --i) 
+      printf "%2.d%s\n", rank++, d[i]
+  }' /var/log/proftpdtransfer.log | sed s,/data/ftp/,,`
+
+This stats are powered by Perl, GNU AWK and Bourne Shell
+STATS
+