]> code.citadel.org Git - citadel.git/blob - citadel/utilsmenu
Initial revision
[citadel.git] / citadel / utilsmenu
1 # Citadel/UX Utilities Menu (shell script)
2 # version 1.00 - March 1989
3 # see copyright.doc for copyright information
4
5 while true
6 do
7         clear
8         echo
9         echo
10         echo "                    Citadel/UX Utilities Menu"
11         cat <<!!
12
13  a. Citadel/UX login                     g. Mail utilities
14  b. Sysop utilities                      h. Read call log
15  c. Calling statistics                   i. List last 20 users
16  d. Message file statistics              j. Who is logged in
17  e. User administration                  k. Setup and configuration
18  f. User list with passwords             q. Quit
19
20 !!
21         echo "Please enter your selection:"
22         read x
23         case $x in
24                 [a,A])  citadel
25                         ;;
26                 [b,B])  sysoputil
27                         ;;
28                 [c,C])  stats 
29                         read y
30                         ;;
31                 [d,D])  msgstats |more -cw
32                         ;;
33                 [e,E])  useradmin
34                         ;;
35                 [f,F])  clear
36                         userlist -p |more -cw
37                         ;;
38                 [g,G])  mailutil
39                         ;;
40                 [h,H])  readlog |more -cw
41                         ;;
42                 [i,I])  readlog -t |more -cw
43                         ;;
44                 [j,J])  whobbs |more -cw
45                         ;;
46                 [k,K])  clear
47                         setup
48                         ;;
49                 [q,Q])  clear
50                         break;;
51                 !)      sh
52                         ;;
53                 *)      echo "Selection $x is not available"
54                         sleep 1
55                         ;;
56                 esac
57         done