master/etc/pdmenurc

   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         ' `find /etc/webconfig/alias* -name "*.csv" | sort | head -1`