+#!/usr/bin/pdmenurc
+
+title:TRC6500
+
+menu:main:Maintainer actions
+
+preproc: \
+ awk -F\; ' \
+ { sub(/#.*/, "") } \
+ $1 == "" && NF == 5 { \
+ if (submenu) printf "\n"; \
+ submenu = 1; \
+ printf "menu:submenu%d:%s\n", n, $4; \
+ tab[n++] = $4; \
+ } \
+ $1 != "" && ! /^\// && $5 != ":goto:" { \
+ group = 1; \
+ cmd = ""; \
+ for (i = 5; i <= NF; i++) { \
+ if (cmd == "") \
+ cmd = $(i); \
+ else \
+ cmd = cmd ";" $(i); \
+ } \
+ printf "\texec:%s:display:%s\n", $4, cmd; \
+ nb[n - 1]++; \
+ } \
+ END { \
+ printf "\n"; \
+ printf "menu:main:Maintainer actions\n"; \
+ for (i = 0; i < n; i++) \
+ if (nb[i]) \
+ printf "\tshow:%s::submenu%d\n", tab[i], i; \
+ printf "\texit:E_xit::\n"; \
+ } \
+ ' /etc/webconfig/alias.csv