cit301.part1

[Eric J. Nihill]

#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create:
#	backupfiles
#	backupmain
#	subsystem
#	utilsmenu
# This archive created: Sun Nov 25 13:06:51 1990
export PATH; PATH=/bin:/usr/bin:$PATH
echo shar: "extracting 'backupfiles'" '(63 characters)'
if test -f 'backupfiles'
then
	echo shar: "will not over-write existing file 'backupfiles'"
else
cat << \SHAR_EOF > 'backupfiles'
echo
echo "Backing up the files directories"
echo
tar cv files
SHAR_EOF
fi
echo shar: "extracting 'backupmain'" '(415 characters)'
if test -f 'backupmain'
then
	echo shar: "will not over-write existing file 'backupmain'"
else
cat << \SHAR_EOF > 'backupmain'
#
mv citadel citadel.hold
cat >citadel <<!
echo "UNCENSORED! BBS is down for backup."
echo "Please call back in about 10 minutes."
exit
!
chmod 5755 citadel

tar cv \
usersupp quickroom registration \
MMstructure \
calllog calllog.pos \
eternal help hengenetdir \
messages network nightly mkgoodbye mkhello weekly \
userpurge.cron wtmpsupp rooms msgmain
#
mv citadel.hold citadel
chmod 5755 citadel
echo "finished"
SHAR_EOF
fi
echo shar: "extracting 'subsystem'" '(73 characters)'
if test -f 'subsystem'
then
	echo shar: "will not over-write existing file 'subsystem'"
else
cat << \SHAR_EOF > 'subsystem'
echo
echo The program in `pwd`/subsystem is run when \* is pressed.
echo
SHAR_EOF
fi
echo shar: "extracting 'utilsmenu'" '(1138 characters)'
if test -f 'utilsmenu'
then
	echo shar: "will not over-write existing file 'utilsmenu'"
else
cat << \SHAR_EOF > 'utilsmenu'
# 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
SHAR_EOF
fi
exit 0
#	End of shell archive
-- 
     Some do, some don't.           |       eric at sactoh0.SAC.CA.US
    Some will, some won't.          |      ames!pacbell!sactoh0!eric
          I might!                  |      ucbvax!csusac!sactoh0!eric
                                    |     ( A Home For Unwanted 3B's )