Commit | Line | Data |
---|---|---|
246da0d0 LM |
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 |