Compact loggers and proc owners report

[khome.git] / home / lib / login_functions.sh

diff --git a/home/lib/login_functions.sh b/home/lib/login_functions.sh
index 68d99a2..e17c5c6 100644 (file)
--- a/home/lib/login_functions.sh
+++ b/home/lib/login_functions.sh
@@ -375,10 +375,14 @@ run() {
 bar_gauge() {
     awk "$@" '
         BEGIN {
+            # CLI options
+            width    = width    ? width    : 80
             ch_left  = ch_left  ? ch_left  : "["
             ch_right = ch_right ? ch_right : "]"
             ch_blank = ch_blank ? ch_blank : "-"
             ch_used  = ch_used  ? ch_used  : "|"
+            num      = num      ? 1        : 0
+            pct      = pct      ? 1        : 0
         }
 
         {
@@ -389,9 +393,10 @@ bar_gauge() {
             cur_scaled = num_scale(cur, max, 1, width)
 
             printf \
-                "%s%s%s", \
+                "%s%s%s%s", \
                 lab ? lab         " " : "", \
                 num ? cur "/" max " " : "", \
+                pct ? sprintf("%3.0f%% ", cur / max * 100) : "", \
                 ch_left
             for (i=1; i<=width; i++) {
                 c = i <= cur_scaled ? ch_used : ch_blank
@@ -406,6 +411,24 @@ bar_gauge() {
     '
 }
 
+flat_top_5() {
+    sort -n -k 1 -r \
+    | head -5 \
+    | awk '
+        {
+            cur  = $1
+            max  = $2
+            name = $3
+            pct  = cur / max * 100
+            printf "%s%s:%.2f%%", sep, name, pct
+            sep = " "
+        }
+
+        END {printf "\n"}
+        ' \
+    | column -t
+}
+
 motd_batt() {
     case "$(uname)" in
         'Linux')
@@ -442,7 +465,6 @@ indent() {
 }
 
 motd() {
-    local -r bar_width='60'
     local -r indent_unit='    '
 
     uname -srvmo
@@ -463,7 +485,7 @@ motd() {
         df ~ | awk 'NR == 2 {print $3, $3 + $4, "disk"}'
         motd_batt
     ) \
-    | bar_gauge -v width="$bar_width" \
+    | bar_gauge -v width=60 -v pct=1 \
     | column -t \
     | indent "$indent_unit"
 
@@ -545,7 +567,25 @@ motd() {
 
     echo
 
-    echo 'Loggers'
+    echo 'Process owners (top 5)'
+    ps -eo user \
+    | awk '
+        NR > 1 {
+            count_by_user[$1]++
+            total++
+        }
+
+        END {
+            for (user in count_by_user)
+                print count_by_user[user], total, user
+        }
+        ' \
+    | flat_top_5 \
+    | indent "${indent_unit}"
+
+    echo
+
+    echo 'Loggers (top 5)'
     awk '
         {
             split($5, prog, "[")
@@ -564,9 +604,7 @@ motd() {
             for (prog in count)
                 print count[prog], total, prog
         }' \
-    | sort -n -k 1 -r \
-    | bar_gauge -v width=30 -v num=1 -v ch_left=' ' -v ch_right=' ' -v ch_blank=' ' \
-    | column -t \
+    | flat_top_5 \
     | indent "${indent_unit}"
 }
 
@@ -588,6 +626,6 @@ ssh_invalid_attempts_from() {
         /var/log/auth.log \
         /var/log/auth.log.1 \
     | sort -n -k 1 \
-    | bar_gauge -v width=$(stty size | awk '{print $2}') -v num=1 -v ch_right=' ' -v ch_left=' ' -v ch_blank=' ' \
+    | bar_gauge -v width="$(stty size | awk '{print $2}')" -v num=1 -v ch_right=' ' -v ch_left=' ' -v ch_blank=' ' \
     | column -t
 }