home *** CD-ROM | disk | FTP | other *** search
- # Citadel/UX Utilities Menu (shell script)
- # version 1.00 - March 1989
- # see copyright.doc for copyright information
-
- while true
- do
- clear
- cat <<!!
- Citadel/UX Utilities Menu
-
- a. Citadel/UX login
- b. Sysop utilities
- c. Calling statistics
- d. Message file statistics
- e. User administration
- f. User list with passwords
- g. Mail utilities
- h. Read call log
- i. Last 20 users
- j. Who is logged in
- k. Change your password
- q. Quit
-
- !!
- echo "Please enter your selection -> \c"
- read x
- case $x in
- [a,A]) citadel
- ;;
- [b,B]) sysoputil
- ;;
- [c,C]) stats
- read y
- ;;
- [d,D]) clear
- msgstats
- echo "<press return to continue>"
- read y
- ;;
- [e,E]) useradmin
- ;;
- [f,F]) clear
- userlist password |more
- read y
- ;;
- [g,G]) clear
- mailutil
- read y
- ;;
- [h,H]) clear
- readlog |more
- read y
- ;;
- [i,I]) clear
- readlog -t
- echo "<press return to continue>"
- read y
- ;;
- [j,J]) clear
- whobbs
- echo "<press return to continue>"
- read y
- ;;
- [k,K]) clear
- passwd
- ;;
- [q,Q]) clear
- break;;
- *) echo "Selection $x is not available\007"
- sleep 1
- ;;
- esac
- done
-