home *** CD-ROM | disk | FTP | other *** search
- From: shaw@stortek.stortek.com (Greg Shaw)
- Newsgroups: comp.sources.misc
- Subject: v44i009: rocat - Roman Catacombs BBS System v.0.75, Part09/09
- Date: 1 Aug 1994 12:09:32 -0500
- Organization: Sterling Software
- Sender: kent@sparky.sterling.com
- Approved: kent@sparky.sterling.com
- Message-ID: <31ja8c$b2b@sparky.sterling.com>
- X-Md4-Signature: fa8968ebf8ec40f9f0f5062b3662695e
-
- Submitted-by: shaw@stortek.stortek.com (Greg Shaw)
- Posting-number: Volume 44, Issue 9
- Archive-name: rocat/part09
- Environment: Linux, GNU C++/libg++
-
- #! /bin/sh
- # This is a shell archive. Remove anything before this line, then feed it
- # into a shell via "sh file" or similar. To overwrite existing files,
- # type "sh file -c".
- # Contents: rocat-0.75/admin/.login rocat-0.75/bbs
- # rocat-0.75/examples/issue rocat-0.75/text/badwords
- # rocat-0.75/text/editors rocat-0.75/text/helpsysop
- # rocat-0.75/text/helpuserinfo rocat-0.75/text/logoff
- # rocat-0.75/text/system2.msg rocat-0.75/text/welcome
- # Wrapped by kent@sparky on Mon Jul 11 22:22:54 1994
- PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin:$PATH ; export PATH
- echo If this archive is complete, you will see the following message:
- echo ' "shar: End of archive 9 (of 9)."'
- if test -f 'rocat-0.75/admin/.login' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/admin/.login'\"
- else
- echo shar: Extracting \"'rocat-0.75/admin/.login'\" \(0 characters\)
- sed "s/^X//" >'rocat-0.75/admin/.login' <<'END_OF_FILE'
- END_OF_FILE
- if test 0 -ne `wc -c <'rocat-0.75/admin/.login'`; then
- echo shar: \"'rocat-0.75/admin/.login'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/admin/.login'
- fi
- if test -f 'rocat-0.75/bbs' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/bbs'\"
- else
- echo shar: Extracting \"'rocat-0.75/bbs'\" \(569 characters\)
- sed "s/^X//" >'rocat-0.75/bbs' <<'END_OF_FILE'
- X#!/bin/sh
- X#
- X# file to execute prior to starting main bbs program
- X#
- X
- X
- X# some security holes can be used through use of IFS
- X# setting to NULL closes many holes
- XIFS=""
- X
- X# generic path
- XPATH=/bin:/usr/bin:/usr/games:/usr/local/bin:/usr/ucb
- Xexport PATH
- X
- X# path and sysop
- XBBSDIR=/bbs
- XSYSOP=shaw
- X
- X# generic preferences
- XVISUAL=pico
- XEDITOR=pico
- X
- Xexport BBSDIR SYSOP VISUAL EDITOR IFS
- X
- X# set shell environment variable
- XSHELL=$BBSDIR/rocat
- Xexport SHELL
- X
- X# setup defaults (like ctrl-h as backspace)
- X
- Xstty erase "^H" kill "^U" intr "^C" eof "^D"
- Xstty hupcl ixon ixoff
- X
- Xexec $SHELL
- END_OF_FILE
- if test 569 -ne `wc -c <'rocat-0.75/bbs'`; then
- echo shar: \"'rocat-0.75/bbs'\" unpacked with wrong size!
- fi
- chmod +x 'rocat-0.75/bbs'
- # end of 'rocat-0.75/bbs'
- fi
- if test -f 'rocat-0.75/examples/issue' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/examples/issue'\"
- else
- echo shar: Extracting \"'rocat-0.75/examples/issue'\" \(116 characters\)
- sed "s/^X//" >'rocat-0.75/examples/issue' <<'END_OF_FILE'
- X
- XWelcome to the Roman Catacombs!
- X
- XRunning on Linux 1.12 (slackware)
- X
- XEnter your login or 'new' for a new account.
- X
- END_OF_FILE
- if test 116 -ne `wc -c <'rocat-0.75/examples/issue'`; then
- echo shar: \"'rocat-0.75/examples/issue'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/examples/issue'
- fi
- if test -f 'rocat-0.75/text/badwords' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/text/badwords'\"
- else
- echo shar: Extracting \"'rocat-0.75/text/badwords'\" \(60 characters\)
- sed "s/^X//" >'rocat-0.75/text/badwords' <<'END_OF_FILE'
- Xshit
- Xfuck
- Xdamn
- Xpiss
- Xhell
- Xcunt
- Xprick
- Xdick
- Xpussy
- Xbitch
- Xsuper
- END_OF_FILE
- if test 60 -ne `wc -c <'rocat-0.75/text/badwords'`; then
- echo shar: \"'rocat-0.75/text/badwords'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/text/badwords'
- fi
- if test -f 'rocat-0.75/text/editors' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/text/editors'\"
- else
- echo shar: Extracting \"'rocat-0.75/text/editors'\" \(317 characters\)
- sed "s/^X//" >'rocat-0.75/text/editors' <<'END_OF_FILE'
- X
- XThese are the file editors currently available on the Roman Catacombs:
- X
- Xpico - the recommended full-screen editor for 'new' users.
- Xvi - original Unix editor. Don't use unless you're familiar with it.
- Xemacs - not for the uninitiated. Another programmer's editor.
- X
- XNote: All of the editors are full-screen editors.
- X
- END_OF_FILE
- if test 317 -ne `wc -c <'rocat-0.75/text/editors'`; then
- echo shar: \"'rocat-0.75/text/editors'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/text/editors'
- fi
- if test -f 'rocat-0.75/text/helpsysop' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/text/helpsysop'\"
- else
- echo shar: Extracting \"'rocat-0.75/text/helpsysop'\" \(216 characters\)
- sed "s/^X//" >'rocat-0.75/text/helpsysop' <<'END_OF_FILE'
- XHow to contact the sysop:
- X
- XThere is a 'chat' option on the main menu. Try that first. If that
- Xdoesn't succeed, leave him feedback. He is very responsive to mail, and
- Xwill generally get back to you within a day.
- X
- X
- END_OF_FILE
- if test 216 -ne `wc -c <'rocat-0.75/text/helpsysop'`; then
- echo shar: \"'rocat-0.75/text/helpsysop'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/text/helpsysop'
- fi
- if test -f 'rocat-0.75/text/helpuserinfo' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/text/helpuserinfo'\"
- else
- echo shar: Extracting \"'rocat-0.75/text/helpuserinfo'\" \(179 characters\)
- sed "s/^X//" >'rocat-0.75/text/helpuserinfo' <<'END_OF_FILE'
- XHow to change your user information:
- X
- XUnder the main menu (the entrance), you'll find a menu called 'utilities'.
- XThere is where you will find the change user information command.
- END_OF_FILE
- if test 179 -ne `wc -c <'rocat-0.75/text/helpuserinfo'`; then
- echo shar: \"'rocat-0.75/text/helpuserinfo'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/text/helpuserinfo'
- fi
- if test -f 'rocat-0.75/text/logoff' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/text/logoff'\"
- else
- echo shar: Extracting \"'rocat-0.75/text/logoff'\" \(235 characters\)
- sed "s/^X//" >'rocat-0.75/text/logoff' <<'END_OF_FILE'
- X
- XSome other fine BBSs in the Denver Area:
- X
- XMacCircles 526-2219
- XSneakers BBS 986-1411
- X
- XI hope you have enjoyed your stay. Please visit again soon!
- X
- XPlease tell your friends about the TRC community.
- X
- XGoodbye from The Roman Catacombs!
- END_OF_FILE
- if test 235 -ne `wc -c <'rocat-0.75/text/logoff'`; then
- echo shar: \"'rocat-0.75/text/logoff'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/text/logoff'
- fi
- if test -f 'rocat-0.75/text/system2.msg' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/text/system2.msg'\"
- else
- echo shar: Extracting \"'rocat-0.75/text/system2.msg'\" \(108 characters\)
- sed "s/^X//" >'rocat-0.75/text/system2.msg' <<'END_OF_FILE'
- XNew files in the last 7 days. (06/03/94)
- XName Section Date by Downloads
- END_OF_FILE
- if test 108 -ne `wc -c <'rocat-0.75/text/system2.msg'`; then
- echo shar: \"'rocat-0.75/text/system2.msg'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/text/system2.msg'
- fi
- if test -f 'rocat-0.75/text/welcome' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'rocat-0.75/text/welcome'\"
- else
- echo shar: Extracting \"'rocat-0.75/text/welcome'\" \(479 characters\)
- sed "s/^X//" >'rocat-0.75/text/welcome' <<'END_OF_FILE'
- XWelcome to The Roman Catacombs!
- X
- XAs you descend from the streets of Rome, you are astonished to find a world
- Xdifferent from that above. It is a world of close friends, stimulating
- Xconversation and great files.
- X
- XThis is the world of the Roman Catacombs. Those of us that are already
- Xpart of the Catacombs welcome you to partake in our small group.
- X
- XPlease feel at home. Have a sip from the flask, put your feet up and
- Xpartake of the conversation of the common room.
- X
- XWelcome!
- X
- END_OF_FILE
- if test 479 -ne `wc -c <'rocat-0.75/text/welcome'`; then
- echo shar: \"'rocat-0.75/text/welcome'\" unpacked with wrong size!
- fi
- # end of 'rocat-0.75/text/welcome'
- fi
- echo shar: End of archive 9 \(of 9\).
- cp /dev/null ark9isdone
- MISSING=""
- for I in 1 2 3 4 5 6 7 8 9 ; do
- if test ! -f ark${I}isdone ; then
- MISSING="${MISSING} ${I}"
- fi
- done
- if test "${MISSING}" = "" ; then
- echo You have unpacked all 9 archives.
- rm -f ark[1-9]isdone ark[1-9][0-9]isdone
- else
- echo You still must unpack the following archives:
- echo " " ${MISSING}
- fi
- exit 0
- exit 0 # Just in case...
-