| 1 | #!/usr/bin/pdmenurc |
| 2 | |
| 3 | title:TRC6500 |
| 4 | |
| 5 | menu:main:Maintainer actions |
| 6 | |
| 7 | preproc: \ |
| 8 | awk -F\; ' \ |
| 9 | { sub(/#.*/, "") } \ |
| 10 | $1 == "" && NF == 5 { \ |
| 11 | if (submenu) printf "\n"; \ |
| 12 | submenu = 1; \ |
| 13 | printf "menu:submenu%d:%s\n", n, $4; \ |
| 14 | tab[n++] = $4; \ |
| 15 | } \ |
| 16 | $1 != "" && ! /^\// && $5 != ":goto:" { \ |
| 17 | group = 1; \ |
| 18 | cmd = ""; \ |
| 19 | for (i = 5; i <= NF; i++) { \ |
| 20 | if (cmd == "") \ |
| 21 | cmd = $(i); \ |
| 22 | else \ |
| 23 | cmd = cmd ";" $(i); \ |
| 24 | } \ |
| 25 | printf "\texec:%s:display:%s\n", $4, cmd; \ |
| 26 | nb[n - 1]++; \ |
| 27 | } \ |
| 28 | END { \ |
| 29 | printf "\n"; \ |
| 30 | printf "menu:main:Maintainer actions\n"; \ |
| 31 | for (i = 0; i < n; i++) \ |
| 32 | if (nb[i]) \ |
| 33 | printf "\tshow:%s::submenu%d\n", tab[i], i; \ |
| 34 | printf "\texit:E_xit::\n"; \ |
| 35 | } \ |
| 36 | ' /etc/webconfig/alias.csv |