feat(demo): expand the sysmon plugin with core-tool tasks

claude · claude · commit a5dd6aef051b · 2026-06-11T19:51:15.000+01:00
The demo leaned on sar/vmstat/iostat (the sysstat package, often absent).
Add seven menu entries that work out of the box on a stock Debian box,
showcasing CCFE form features with sensible defaults:
 * pstop.form  - busiest processes; a sort-order value list (CPU/mem/etime,
   default -%cpu) + a count (default 15) -&gt; ps aux --sort=... | head
 * df.form     - free disk space; -h/-l default on, a mount-point value
   list from df, optional -i/-T
 * du.form     - directory usage; path default '.', -h/-x default on, a
   --max-depth= numeric
 * ss.form     - network sockets; -t/-l/-n default on, optional -u/-p
 * run items   - free -h (memory), uptime, who -H
All use coreutils/procps/iproute2 only. Verified: each new object parses
(-k), and the F5 action preview resolves the defaults correctly
(e.g. 'ps aux --sort=-%cpu | head -n 15', 'df -h -l').

t/07's hard-coded '6 item' count relaxed to a non-zero match so the demo
can grow without breaking it (still catches an empty-menu regression).
FEATURE-REQUESTS item 7. Full suite green (375).

Co-Authored-By: Claude Opus 4.8 (1M context) &lt;noreply@anthropic.com&gt;
diff --git a/src/ccfe-plugin-sysmon/sysmon.d/df.form b/src/ccfe-plugin-sysmon/sysmon.d/df.form
@@ -0,0 +1,49 @@
+#
+#  ccfe-plugin-sysmon - free disk space (df).  Uses coreutils only.
+#
+title {
+  Report free disk space
+}
+top {
+  Toggle options with the value list (<F2>); Enter runs the report.
+}
+field {
+  id      = HUMAN
+  label   = Human-readable sizes (-h)
+  type    = BOOLEAN
+  default = const:YES
+  option  = -h
+}
+field {
+  id     = INODES
+  label  = Show inode usage instead of blocks (-i)
+  type   = BOOLEAN
+  option = -i
+  htab   = 1
+}
+field {
+  id     = TYPE
+  label  = Print each filesystem's type (-T)
+  type   = BOOLEAN
+  option = -T
+  htab   = 1
+}
+field {
+  id      = LOCAL
+  label   = Limit to local filesystems (-l)
+  type    = BOOLEAN
+  default = const:YES
+  option  = -l
+  htab    = 1
+}
+field {
+  id       = FS
+  label    = Filesystem or mount point (blank = all)
+  type     = STRING
+  len      = 30
+  list_cmd = command:single-val:df -P | awk 'NR>1{print $NF}'
+  vtab     = 1
+}
+action { run:
+  df%{HUMAN}%{INODES}%{TYPE}%{LOCAL} %{FS}
+}
diff --git a/src/ccfe-plugin-sysmon/sysmon.d/du.form b/src/ccfe-plugin-sysmon/sysmon.d/du.form
@@ -0,0 +1,50 @@
+#
+#  ccfe-plugin-sysmon - directory space usage (du).  Uses coreutils only.
+#
+title {
+  Measure directory space usage
+}
+top {
+  Set a directory and options, then press Enter.
+}
+field {
+  id      = PATH
+  label   = Directory to measure
+  type    = STRING
+  len     = 40
+  default = const:.
+}
+field {
+  id      = HUMAN
+  label   = Human-readable sizes (-h)
+  type    = BOOLEAN
+  default = const:YES
+  option  = -h
+  vtab    = 1
+}
+field {
+  id     = SUMMARY
+  label  = Show only the grand total (-s)
+  type   = BOOLEAN
+  option = -s
+  htab   = 1
+}
+field {
+  id      = ONEFS
+  label   = Stay on one filesystem (-x)
+  type    = BOOLEAN
+  default = const:YES
+  option  = -x
+  htab    = 1
+}
+field {
+  id       = DEPTH
+  label    = Limit directory depth (blank = unlimited)
+  type     = NUMERIC
+  len      = 2
+  option   = --max-depth=
+  vtab     = 1
+}
+action { run:
+  du%{HUMAN}%{SUMMARY}%{ONEFS} %{DEPTH} %{PATH}
+}
diff --git a/src/ccfe-plugin-sysmon/sysmon.d/pstop.form b/src/ccfe-plugin-sysmon/sysmon.d/pstop.form
@@ -0,0 +1,29 @@
+#
+#  ccfe-plugin-sysmon - top processes by CPU/memory (ps).  Uses procps only.
+#
+title {
+  List the busiest processes
+}
+top {
+  Pick a sort order (<F2> on the first field) and how many to show.
+}
+field {
+  id       = SORT
+  label    = Sort processes by
+  type     = STRING
+  len      = 6
+  list_cmd = const:single-val:"-%cpu : CPU usage (busiest first)","-%mem : memory usage","-etime : elapsed run time"
+  option   = --sort=
+  default  = const:-%cpu
+}
+field {
+  id      = COUNT
+  label   = Number of processes to list
+  type    = NUMERIC
+  len     = 3
+  default = const:15
+  htab    = 1
+}
+action { run:
+  ps aux %{SORT} | head -n %{COUNT}
+}
diff --git a/src/ccfe-plugin-sysmon/sysmon.d/ss.form b/src/ccfe-plugin-sysmon/sysmon.d/ss.form
@@ -0,0 +1,49 @@
+#
+#  ccfe-plugin-sysmon - network sockets (ss).  Uses iproute2 only.
+#
+title {
+  Show network sockets
+}
+top {
+  Choose which sockets to list, then press Enter.
+}
+field {
+  id      = TCP
+  label   = TCP sockets (-t)
+  type    = BOOLEAN
+  default = const:YES
+  option  = -t
+}
+field {
+  id     = UDP
+  label  = UDP sockets (-u)
+  type   = BOOLEAN
+  option = -u
+  htab   = 1
+}
+field {
+  id      = LISTEN
+  label   = Listening sockets only (-l)
+  type    = BOOLEAN
+  default = const:YES
+  option  = -l
+  htab    = 1
+}
+field {
+  id      = NUMERIC
+  label   = Numeric output, no name resolution (-n)
+  type    = BOOLEAN
+  default = const:YES
+  option  = -n
+  htab    = 1
+}
+field {
+  id     = PROC
+  label  = Show the owning process (-p)
+  type   = BOOLEAN
+  option = -p
+  htab   = 1
+}
+action { run:
+  ss%{TCP}%{UDP}%{LISTEN}%{NUMERIC}%{PROC}
+}
diff --git a/src/ccfe-plugin-sysmon/sysmon.menu b/src/ccfe-plugin-sysmon/sysmon.menu
@@ -35,6 +35,41 @@ item {
   descr  = Report current processes
   action = run:ps axv
 }
+item {
+  id     = PSTOP
+  descr  = List the busiest processes (by CPU / memory)
+  action = form:sysmon.d/pstop
+}
+item {
+  id     = DF
+  descr  = Report free disk space
+  action = form:sysmon.d/df
+}
+item {
+  id     = DU
+  descr  = Measure directory space usage
+  action = form:sysmon.d/du
+}
+item {
+  id     = MEM
+  descr  = Show memory and swap usage
+  action = run:free -h
+}
+item {
+  id     = SOCKETS
+  descr  = Show network sockets
+  action = form:sysmon.d/ss
+}
+item {
+  id     = UPTIME
+  descr  = Show uptime and load average
+  action = run:uptime
+}
+item {
+  id     = WHO
+  descr  = Show who is logged in
+  action = run:who -H
+}
 item {
   id     = VMSTAT
   descr  = Show virtual memory statistics
diff --git a/src/t/07-check-cli.t b/src/t/07-check-cli.t
@@ -38,7 +38,9 @@ like( $o, qr/^OK: menu "demo"/, '  reports OK with kind/name' );
 # valid menu (plugin)
 ( $o, $rc ) = check('sysmon');
 is( $rc, 0, 'plugin menu: exit 0' );
-like( $o, qr/6 item/, '  reports item count' );
+# Non-zero count rather than a hard-coded number, so expanding the demo menu
+# does not break the test while still catching an empty/zero-item regression.
+like( $o, qr/[1-9][0-9]* item/, '  reports a non-zero item count' );
 
 # valid form inside a .d directory
 ( $o, $rc ) = check('sysmon.d/sar');
