Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!uunet!gsm001!gsm From: gsm@mendelson.com (Geoffrey S. Mendelson) Newsgroups: comp.os.coherent Subject: BBS software Message-ID: <1991May4.024123.26916@mendelson.com> Date: 4 May 91 02:41:23 GMT Organization: Mendelson Computer Consulting Lines: 1122 Enclosed is a shell archive of a BBS system for unix. I found it on uunet's comp.sources.unix archive. I played around with it a bit on my unix system. With a few simple mods, I was able to get a BBS running. I gave up on it when I started GNEWS. I think that with a little programming, you could get a decent bbs out of it. So here it is. If you have any questions, you can email me, but I don't know much about it. You probably would be better off asking the original author. --------------------------------------------------------------------------- # # This is a Shell Archive. # Remove everything above and including the cut line. # Then run the rest of the file through #! /bin/sh. # -----cut here-----cut here-----cut here-----cut here----- #! /bin/sh # Execute the file with #! /bin/sh (not csh) to create the files: # 0 # B.1 # B.2 # LOGGEDonce # News # USERFILE # USERlog # bbs # bbsmail # bull.system # ck.mail # download # file.viewing # file.xfer # file.xfer.dn # file.xfer.up # mail.system # msgno # msgs # new.users.file # news.poster # news.reader # newuser.reg # opening.screen # post.msgs # read.mail # read.post # send.mail # sh # subsystem.bbs # sysop.chat # tmp # upload # user.menu # user.welcome # This Archive created: Mon May 21 10:21:16 1990 # export PATH; PATH=/bin:$PATH echo shar: extracting "'0'" '(0 characters)' if test -f '0' then echo shar: will not over-write existing file "'0'" else sed 's/^XX//' > '0' << \SHAR_EOF SHAR_EOF if test 0 -ne "`wc -c < '0'`" then echo shar: error transmitting "'0'" '(should have been 0 characters)' fi chmod +x '0' fi # end of overwriting check echo shar: extracting "'B.1'" '(1431 characters)' if test -f 'B.1' then echo shar: will not over-write existing file "'B.1'" else sed 's/^XX//' > 'B.1' << \SHAR_EOF XXThis is Bulletin number 1. XX XXThis system was written in Borne Shell Script on an OSI Diab DS90-10 Modified XXDNP. The machine runs DNIX Real Time, Version 5.0 1.2 2.0. It is owned and XXoperated by Bob Kirkpatrick of Spokane Washington. (509) 535-6575. The system XXreceives e-mail through uunet to: ...uunet!isc-br!tau-ceti!dogear![user] XXDog Ear'd Systems, a Division of Brand-X (c) 1988, 1989, 1990 Bob Kirkpatrick XX XX XXWhile the system is basic at best, it incorporates the essential functions of XXa BBS, including a hook to rn and postnews. The system is not exactly sophis- XXtocated, but it works. XX XXIt requires that the following utilities exist on the system it is installed XXin: XX wc word count XX cut a statement slicing routine XX echo basic statement of display XX talk intra/inter node chat facility XX rn news reader XX postnews XX XXThe system requires that a user named 'bbs' exist, and that a group called XX'user' exists as well. XX XXThe BBS is easily modified, and it's internal editing is a function of the XXenvironmental variable $EDITOR. XX XX XXInformation regarding the system may be obtained from the author by e-mail. XX XX XX+---------------------------------------------------------------------------+ XX|Bob Kirkpatrick * Dog Ear'd Systems, Spokane, WA * If it ain't sim| | * uunet!isc-br!tau-ceti!dogear!bobk * ple, it stinks.| XX+---------------------------------------------------------------------------+ SHAR_EOF if test 1431 -ne "`wc -c < 'B.1'`" then echo shar: error transmitting "'B.1'" '(should have been 1431 characters)' fi chmod +x 'B.1' fi # end of overwriting check echo shar: extracting "'B.2'" '(445 characters)' if test -f 'B.2' then echo shar: will not over-write existing file "'B.2'" else sed 's/^XX//' > 'B.2' << \SHAR_EOF XXThis is Bulletin number 2. XX XXThere are 3 file transfer protocols on Dogear. They are: XX XX XMODEM YMODEM and KERMIT XX XXXmodem and Ymodem may be operated using text or binary modes, Kermit defaults XXto binary. In addition, X and Ymodem may be invoked with either the standard XX128 byte or 1024 byte packet lengths. XX XXFile transfer protocol and configuration are menu selectable to prevent user XXcommand line errors. XX XX XXEnd of File SHAR_EOF if test 445 -ne "`wc -c < 'B.2'`" then echo shar: error transmitting "'B.2'" '(should have been 445 characters)' fi chmod +x 'B.2' fi # end of overwriting check echo shar: extracting "'LOGGEDonce'" '(67 characters)' if test -f 'LOGGEDonce' then echo shar: will not over-write existing file "'LOGGEDonce'" else sed 's/^XX//' > 'LOGGEDonce' << \SHAR_EOF XXsysop sysop's name XXbobk Bob Kirkpatrick XXficus Ficus Kirkpatrick SHAR_EOF if test 67 -ne "`wc -c < 'LOGGEDonce'`" then echo shar: error transmitting "'LOGGEDonce'" '(should have been 67 characters)' fi chmod +x 'LOGGEDonce' fi # end of overwriting check if test ! -d 'News' then echo shar: creating directory "'News'" mkdir 'News' fi echo shar: entering directory "'News'" cd 'News' echo shar: done with directory "'News'" cd .. echo shar: extracting "'USERFILE'" '(80 characters)' if test -f 'USERFILE' then echo shar: will not over-write existing file "'USERFILE'" else sed 's/^XX//' > 'USERFILE' << \SHAR_EOF XXbobk zoot Fri May 18 09:48:44 PDT 1990 XXficus pizza Fri May 18 21:13:50 PDT 1990 SHAR_EOF if test 80 -ne "`wc -c < 'USERFILE'`" then echo shar: error transmitting "'USERFILE'" '(should have been 80 characters)' fi chmod +x 'USERFILE' fi # end of overwriting check echo shar: extracting "'USERlog'" '(709 characters)' if test -f 'USERlog' then echo shar: will not over-write existing file "'USERlog'" else sed 's/^XX//' > 'USERlog' << \SHAR_EOF XXbkirk Fri May 11 14:58:48 PDT 1990 XXbkirk Fri May 11 15:03:59 PDT 1990 XXbkirk Fri May 11 15:06:53 PDT 1990 XXbkirk Fri May 11 15:10:10 PDT 1990 XXbkirk Fri May 11 15:11:03 PDT 1990 XXbkirk Fri May 11 15:11:43 PDT 1990 XXbkirk Fri May 11 15:13:30 PDT 1990 XXbkirk Sat May 12 11:03:56 PDT 1990 XXbkirk Sat May 12 11:06:50 PDT 1990 XXbkirk Fri May 18 09:20:02 PDT 1990 XXbkirk Fri May 18 09:23:41 PDT 1990 XXnew Fri May 18 09:46:10 PDT 1990 XXnew Fri May 18 09:48:45 PDT 1990 XXbobk Fri May 18 10:25:02 PDT 1990 XXnew Fri May 18 21:13:50 PDT 1990 XXficus Fri May 18 21:25:30 PDT 1990 XXbobk Fri May 18 22:08:25 PDT 1990 XXbobk Fri May 18 22:22:36 PDT 1990 XXbobk Fri May 18 22:29:23 PDT 1990 XXbobk Fri May 18 22:32:27 PDT 1990 SHAR_EOF if test 709 -ne "`wc -c < 'USERlog'`" then echo shar: error transmitting "'USERlog'" '(should have been 709 characters)' fi chmod +x 'USERlog' fi # end of overwriting check echo shar: extracting "'bbs'" '(1374 characters)' if test -f 'bbs' then echo shar: will not over-write existing file "'bbs'" else sed 's/^XX//' > 'bbs' << \SHAR_EOF XX#! /bin/sh XXtrap interrupt SIGINT XX/bin/stty -lcase XXSHELL=.noyoudont XX# bbs XX# a simple unix bbs system XX# written by: Bob Kirkpatrick: Fri May 11 14:45:21 PDT 1990 XX# XX# XX.clear XX/bin/echo "Can your terminal process lower case (y/n): \c" XXread userans XXexport userans XXif [ "$userans" = "y" ] XXthen XX .clear XX /bin/echo "Good, all keystrokes MUST be in lowercase for the system to" XX /bin/echo "function properly." XX /bin/cat ./opening.screen XX trap .check_out 0 XXelse XX /bin/echo "Sorry, this system is case dependent. You must be able to" XX /bin/echo "use lower case characters." XX /bin/kill -9 0 XXfi XX/bin/echo "Please enter username or 'new'" XX/bin/echo "if new user: \c" XXread bbsuser XX[ "$bbsuser" = "" ] && /bin/kill -9 0 XXif [ "$bbsuser" = "new" ] XXthen XX /bin/sh ./newuser.reg XXelse XX founds=`/bin/grep $bbsuser ./USERFILE | wc -l` XX if [ "$founds" > 0 ] XX then XX /bin/echo "Password: \c" XX read bbsword XX .clear XX userok=`/bin/grep $bbsword ./USERFILE | /bin/grep $bbsuser | /bin/wc -l` XX if [ "$userok" -gt 0 ] XX then XX /bin/echo "Thank You" XX else XX /bin/echo "Don't mean to offend, but that wasn't it." XX /bin/echo "You may log back in to retry." XX /bin/kill -9 0 XX fi XX XX else XX /bin/echo "User unknown to system" XX /bin/echo "Goodbye" XX /bin/kill -9 0 XX fi XXfi XXexport bbsuser XX/bin/echo "$bbsuser "`/bin/date` >>USERlog XXwhile true XXdo XX /bin/sh subsystem.bbs XXdone XX# XX# safety net XX/bin/kill -9 0 SHAR_EOF if test 1374 -ne "`wc -c < 'bbs'`" then echo shar: error transmitting "'bbs'" '(should have been 1374 characters)' fi chmod +x 'bbs' fi # end of overwriting check if test ! -d 'bbsmail' then echo shar: creating directory "'bbsmail'" mkdir 'bbsmail' fi echo shar: entering directory "'bbsmail'" cd 'bbsmail' echo shar: done with directory "'bbsmail'" cd .. echo shar: extracting "'bull.system'" '(683 characters)' if test -f 'bull.system' then echo shar: will not over-write existing file "'bull.system'" else sed 's/^XX//' > 'bull.system' << \SHAR_EOF XX#! /bin/sh XX# XX# bull.system XX# XX# system bulletin reader XX# Bob Kirkpatrick Sat May 12 07:59:03 PDT 1990 XX# XXwhile true XXdo XX clear XX echo " ] Dog Ear'd Bulletins [" XX echo "==============================================================================" XX echo "\n\n\n" XX bullno=`lc B.* | wc -l` XX if [ "$bullno" -eq "0" ] XX then XX echo "Sorry, there are no bulletins available today" XX sleep 3 XX exit XX fi XX echo "Systems has bulletins \c" XX for x in B.* XX do XX x=`echo $x | cut -c3-4` XX echo "$x, \c" XX done XX echo " " XX echo " " XX echo "[c/r] to exit" XX echo "Read which bulletin: \c" XX read userans XX if [ "$userans" -eq "" ] XX then XX exit XX else XX more B.$userans XX fi XXdone SHAR_EOF echo shar: 3 control characters may be missing from "'bull.system'" if test 683 -ne "`wc -c < 'bull.system'`" then echo shar: error transmitting "'bull.system'" '(should have been 683 characters)' fi chmod +x 'bull.system' fi # end of overwriting check echo shar: extracting "'ck.mail'" '(0 characters)' if test -f 'ck.mail' then echo shar: will not over-write existing file "'ck.mail'" else sed 's/^XX//' > 'ck.mail' << \SHAR_EOF SHAR_EOF if test 0 -ne "`wc -c < 'ck.mail'`" then echo shar: error transmitting "'ck.mail'" '(should have been 0 characters)' fi chmod +x 'ck.mail' fi # end of overwriting check if test ! -d 'download' then echo shar: creating directory "'download'" mkdir 'download' fi echo shar: entering directory "'download'" cd 'download' echo shar: done with directory "'download'" cd .. echo shar: extracting "'file.viewing'" '(0 characters)' if test -f 'file.viewing' then echo shar: will not over-write existing file "'file.viewing'" else sed 's/^XX//' > 'file.viewing' << \SHAR_EOF SHAR_EOF if test 0 -ne "`wc -c < 'file.viewing'`" then echo shar: error transmitting "'file.viewing'" '(should have been 0 characters)' fi chmod +x 'file.viewing' fi # end of overwriting check echo shar: extracting "'file.xfer'" '(144 characters)' if test -f 'file.xfer' then echo shar: will not over-write existing file "'file.xfer'" else sed 's/^XX//' > 'file.xfer' << \SHAR_EOF XXclear XXecho "[U]pload, [D]ownload, or [A]bort: \c" XXread userans XXcase $userans in XX u) sh file.xfer.up ;; XX d) sh file.xfer.dn ;; XX a) exit ;; XXesac SHAR_EOF if test 144 -ne "`wc -c < 'file.xfer'`" then echo shar: error transmitting "'file.xfer'" '(should have been 144 characters)' fi chmod +x 'file.xfer' fi # end of overwriting check echo shar: extracting "'file.xfer.dn'" '(1264 characters)' if test -f 'file.xfer.dn' then echo shar: will not over-write existing file "'file.xfer.dn'" else sed 's/^XX//' > 'file.xfer.dn' << \SHAR_EOF XX#! /bin/sh XX# file xfer system XX# Bob Kirkpatrick Sat May 12 08:41:10 PDT 1990 XX# XXclear XXavails=`/bin/echo ./download/* | /bin/wc -w` XXecho "System has $avails files available" XXecho "\nDo you want to see the list (y/n) \c" XXread userans XXif [ "$userans" = "y" ] XXthen XX /bin/echo "\nPress [ctrl-k] to stop scroll, [ctrl-q] to continue...\n" XX /bin/lc ./download XX /bin/echo "\n" XXfi XX/bin/echo "\nWildcards in filename(s) are ok..." XX/bin/echo "Download which file(s)? [c/r] to end list\n" XXcnt=0 XXwhile true XXdo XX cnt=`expr $cnt + 1` XX /bin/echo "File $cnt> \c" XX ans="\n" XX read ans XX if [ "$ans" = "" ] XX then XX break XX else XX userans="$userans $ans" XX fi XXdone XXif [ `/bin/echo $userans | wc -c` -lt 2 ] XXthen XX exit XXfi XX.clear XX/bin/echo "Files: $userans\n" XXcd /bbs/download XX/bin/echo "\nProtocols\n" XX/bin/echo "1) Standard XMODEM 2) XMODEM 1k Packets" XX/bin/echo "3) YMODEM Batch 4) 1k YMODEM Batch" XX/bin/echo "5) Kermit 0) Abort Transfer" XX/bin/echo "\nUse which [ 1-5 or c/r ]: \c" XXread ans XXcase $ans in XX 1) /usr/local/xmodem -sbdl $userans ;; XX 2) /usr/local/xmodem -sbkdl $userans ;; XX 3) /usr/local/xmodem -sbydl $userans ;; XX 4) /usr/local/xmodem -sbykdl $userans ;; XX 5) /usr/bin/kermit -l /dev/uds1 -b 2400 -s $userans ;; XX 0) exit ;; XXesac XXcd /bbs SHAR_EOF if test 1264 -ne "`wc -c < 'file.xfer.dn'`" then echo shar: error transmitting "'file.xfer.dn'" '(should have been 1264 characters)' fi chmod +x 'file.xfer.dn' fi # end of overwriting check echo shar: extracting "'file.xfer.up'" '(543 characters)' if test -f 'file.xfer.up' then echo shar: will not over-write existing file "'file.xfer.up'" else sed 's/^XX//' > 'file.xfer.up' << \SHAR_EOF XX#! /bin/sh XX# file xfer system XX# Bob Kirkpatrick Sat May 12 08:41:10 PDT 1990 XX# XXclear XXecho "Upload what file? \c" XXread userans XXecho "\nProtocols\n" XXecho "1) Standard XMODEM 2) XMODEM 1k Packets" XXecho "3) YMODEM Batch 4) 1k YMODEM Batch" XXecho "5) Kermit 0) Abort Transfer" XXecho "\nUse which [ 1-5 or 0 ]: \c" XXread ans XXcase $ans in XX 1) xmodem -rb $userans ;; XX 2) xmodem -rbk $userans ;; XX 3) xmodem -rby $userans ;; XX 4) xmodem -rbyk $userans ;; XX 5) kermit -l /dev/uds1 -b 2400 -r $userans ;; XX 0) exit ;; XXesac SHAR_EOF if test 543 -ne "`wc -c < 'file.xfer.up'`" then echo shar: error transmitting "'file.xfer.up'" '(should have been 543 characters)' fi chmod +x 'file.xfer.up' fi # end of overwriting check echo shar: extracting "'mail.system'" '(951 characters)' if test -f 'mail.system' then echo shar: will not over-write existing file "'mail.system'" else sed 's/^XX//' > 'mail.system' << \SHAR_EOF XX#! /bin/sh XX# bbs mail system XX# Bob Kirkpatrick Sat May 12 12:33:58 PDT 1990 XX# XXwhile true XXdo XX.clear XX/bin/echo "================================] Mail/Message Menu [=========================\n" XX/bin/echo " General Instructions: | [S]end mail to a user" XX/bin/echo " | [G]eneral message post" XX/bin/echo " To enter a message, simply type the | [P]ersonal message(s)" XX/bin/echo " message. There's no text formatting | [R]ead General posts" XX/bin/echo " so any required must be manual. | [V]iew personal mail" XX/bin/echo " End your message on an empty line | [E]xit to Main Menu" XX/bin/echo " with an [control-d]. |\n" XX/bin/echo "=============================================================================\n" XX/bin/echo "[Mail] Command: \c" XXread userans XXcase $userans in XX s) send.mail ;; XX g) post.msgs ;; XX p) ck.mail ;; XX r) read.post ;; XX v) read.mail ;; XX e) exit ;; XXesac XXdone SHAR_EOF if test 951 -ne "`wc -c < 'mail.system'`" then echo shar: error transmitting "'mail.system'" '(should have been 951 characters)' fi chmod +x 'mail.system' fi # end of overwriting check echo shar: extracting "'msgno'" '(2 characters)' if test -f 'msgno' then echo shar: will not over-write existing file "'msgno'" else sed 's/^XX//' > 'msgno' << \SHAR_EOF XX0 SHAR_EOF if test 2 -ne "`wc -c < 'msgno'`" then echo shar: error transmitting "'msgno'" '(should have been 2 characters)' fi chmod +x 'msgno' fi # end of overwriting check if test ! -d 'msgs' then echo shar: creating directory "'msgs'" mkdir 'msgs' fi echo shar: entering directory "'msgs'" cd 'msgs' echo shar: done with directory "'msgs'" cd .. echo shar: extracting "'new.users.file'" '(548 characters)' if test -f 'new.users.file' then echo shar: will not over-write existing file "'new.users.file'" else sed 's/^XX//' > 'new.users.file' << \SHAR_EOF XXBob Kirkpatrick XXDog Food XX123 Street Address XXSpokane, WASHday XX123-456-7890 XX XXPhernt Doc XXzibble XX12345 buttski XXfrabblestadt, ok XX123 456 1234 XX XXhsdjhh XXjsdhkjsdjh XXjdshj XXdsjhs XXjsdh XX;sdlhj XXsa XXsa XXsa XXsa XXsa XXsa XX XX XX XX XX XX XX----------- Fri May 18 09:45:19 PDT 1990 XXBob Kirkpatrick XXphernt XXI am homeless XXSpokane, WA XX509-5356575 XX XXbobk: added XX----------- Fri May 18 09:47:59 PDT 1990 XXBob Kirkpatrick XXPhernt XXI am homeless XXSpokane, WA XX509-535-6575 XX XXbobk: added XX----------- Fri May 18 21:13:05 PDT 1990 XXFicus Kirkpatrick XXbizarre XXRight here XXSpokane, Wa XXbzzzzzzz XX XXficus: added SHAR_EOF if test 548 -ne "`wc -c < 'new.users.file'`" then echo shar: error transmitting "'new.users.file'" '(should have been 548 characters)' fi chmod +x 'new.users.file' fi # end of overwriting check echo shar: extracting "'news.poster'" '(96 characters)' if test -f 'news.poster' then echo shar: will not over-write existing file "'news.poster'" else sed 's/^XX//' > 'news.poster' << \SHAR_EOF XX#! /bin/sh XX# XX# Bob Kirkpatrick Fri May 18 21:56:47 PDT 1990 XX# news poster XX# XX/usr/local/postnews SHAR_EOF if test 96 -ne "`wc -c < 'news.poster'`" then echo shar: error transmitting "'news.poster'" '(should have been 96 characters)' fi chmod +x 'news.poster' fi # end of overwriting check echo shar: extracting "'news.reader'" '(288 characters)' if test -f 'news.reader' then echo shar: will not over-write existing file "'news.reader'" else sed 's/^XX//' > 'news.reader' << \SHAR_EOF XX#! /bin/sh XX# XX# Bob Kirkpatrick Fri May 18 21:51:24 PDT 1990 XX# News reader XX/bin/echo "------------------------------------------------------------------------------" >.signature XX/bin/cat LOGGEDonce | /bin/grep $bbsuser >>.signature XX/bin/rm .rnsoft .rnlast .newsrc .oldnewsrc XX/usr/local/rn SHAR_EOF if test 288 -ne "`wc -c < 'news.reader'`" then echo shar: error transmitting "'news.reader'" '(should have been 288 characters)' fi chmod +x 'news.reader' fi # end of overwriting check echo shar: extracting "'newuser.reg'" '(2192 characters)' if test -f 'newuser.reg' then echo shar: will not over-write existing file "'newuser.reg'" else sed 's/^XX//' > 'newuser.reg' << \SHAR_EOF XX#! /bin/sh XX# new user registration module XX# exec with 'sh newuser.reg' XX# XX# Fri May 11 13:36:17 PDT 1990 XX# XXecho "Please answer the following questions. Inaccurate or missing answers" XXecho "will deny you access." XXecho " " XXecho "----------- "`date` >>./new.users.file XXecho "Enter full name: \c" XXread userans XXif [ "$userans" = "" ] XXthen XX echo "ok, fine." XX /bin/kill -9 0 XXfi XXecho $userans >>./new.users.file XXname=$userans XXecho "Enter your occupation: \c" XXread userans XXif [ "$userans" = "" ] XXthen XX echo "ok, fine." XX /bin/kill -9 0 XXfi XXecho $userans >>./new.users.file XXecho "Your street address: \c" XXread userans XXif [ "$userans" = "" ] XXthen XX echo "ok, fine." XX /bin/kill -9 0 XXfi XXecho $userans >>./new.users.file XXecho "Your city and state: \c" XXread userans XXif [ "$userans" = "" ] XXthen XX echo "ok, fine." XX /bin/kill -9 0 XXfi XXecho $userans >>./new.users.file XXecho "Your home (voice) phone: \c" XXread userans XXif [ "$userans" = "" ] XXthen XX echo "ok, fine." XX /bin/kill -9 0 XXfi XXecho $userans >>./new.users.file XXecho "Data phone (if any): \c" XXread userans XXecho $userans >>./new.users.file XXecho " " XXecho "This system disallows handles or other false names. If you wish to" XXecho "use one, call another bbs. Your system-name here will be your first" XXecho "name initial, concatenated to the first 4-5 letters of your last" XXecho "name or vice-versa. eg: John Smith=jsmith or Alice Jameson=alicej." XXecho " " XXecho "Would you like to become a system user (y/n): \c" XXread userans XXecho " " XXif [ "$userans" = "y" ] XXthen XX isok=1 XX while [ $isok -ne 0 ] XX do XX echo " " XX echo "enter the user-name (like the above example)" XX echo "that you'll use on this bbs: \c" XX read bbsuser XX echo " " XX tryit=`/bin/cat ./USERFILE | grep $bbsuser | /bin/wc -l` XX if [ $tryit -gt 0 ] XX then XX echo "$bbsuser: name already exists." XX echo "try a different (but similar) name" XX fi XX isok=$tryit XX done XX XX echo " " XX echo "Enter a SINGLE-WORD password of 4-8 characters: \c" XX read userans XX export bbsuser XX passentry="$bbsuser $userans "`date` XX echo "$bbsuser\t\t$name" >>./LOGGEDonce XX echo $passentry >>./USERFILE XX echo "$bbsuser: added" >>./new.users.file XX echo " " XX echo "Thanks!" XXelse XX echo "ok, then bye-bye." XX kill -9 0 XXfi XXexit XXkill -9 0 SHAR_EOF if test 2192 -ne "`wc -c < 'newuser.reg'`" then echo shar: error transmitting "'newuser.reg'" '(should have been 2192 characters)' fi chmod +x 'newuser.reg' fi # end of overwriting check echo shar: extracting "'opening.screen'" '(81 characters)' if test -f 'opening.screen' then echo shar: will not over-write existing file "'opening.screen'" else sed 's/^XX//' > 'opening.screen' << \SHAR_EOF XX-------------------------- XXWelcome: Dog Ear'd Systems XX-------------------------- SHAR_EOF if test 81 -ne "`wc -c < 'opening.screen'`" then echo shar: error transmitting "'opening.screen'" '(should have been 81 characters)' fi chmod +x 'opening.screen' fi # end of overwriting check echo shar: extracting "'post.msgs'" '(281 characters)' if test -f 'post.msgs' then echo shar: will not over-write existing file "'post.msgs'" else sed 's/^XX//' > 'post.msgs' << \SHAR_EOF XX#! /bin/sh XX# general message posts XX# Bob Kirkpatrick Sat May 12 13:18:23 PDT 1990 XX# XXuserans="\n" XXmsgcnt=`cat msgno` XXmsgid=`expr $msgcnt + 1` XX$EDITOR ./msgs/$msgid.all XXecho "\n(S)end or (A)bort the message: \c" XXread ans XX[ $ans = 'a' ] && rm ./msgs/$msgid*;exit XXcat $msgid >./msgno SHAR_EOF if test 281 -ne "`wc -c < 'post.msgs'`" then echo shar: error transmitting "'post.msgs'" '(should have been 281 characters)' fi chmod +x 'post.msgs' fi # end of overwriting check echo shar: extracting "'read.mail'" '(570 characters)' if test -f 'read.mail' then echo shar: will not over-write existing file "'read.mail'" else sed 's/^XX//' > 'read.mail' << \SHAR_EOF XX#! /bin/sh XX# mail reader XX# Bob Kirkpatrick Fri May 18 10:31:03 PDT 1990 XX# XX/bin/echo "\n\nwait...\c" XXmwaits=0 XXmwaits=`echo ./msgs/*$bbsuser | wc -w` XXif [ $mwaits -eq 0 ] XXthen XX /bin/echo "Sorry, no mail for you." XX /bin/sleep 2 XX exit XXfi XX/bin/echo "$mwaits message(s) waiting." XX/bin/echo "Read now (y/n) \c" XXread userans XX[ "$userans" = "n" ] && exit XX/bin/echo "\nPRESS 'h' for help. . ." XXsleep 2 XXfor x in `echo ./msgs/*$bbsuser` XXdo XX /usr/bin/pg -nscp " [q=quit, space=more]: " $x XX /bin/echo "Delete this message (y/n) \c" XX read userans XX [ "$userans" = "y" ] && rm $x XXdone SHAR_EOF if test 570 -ne "`wc -c < 'read.mail'`" then echo shar: error transmitting "'read.mail'" '(should have been 570 characters)' fi chmod +x 'read.mail' fi # end of overwriting check echo shar: extracting "'read.post'" '(264 characters)' if test -f 'read.post' then echo shar: will not over-write existing file "'read.post'" else sed 's/^XX//' > 'read.post' << \SHAR_EOF XX#! /bin/sh -r XX# read general posts XX# Bob Kirkpatrick Fri May 18 20:49:32 PDT 1990 XX# XXgwaits=`echo ./msgs/*.all | wc -w` XXecho "There are $gwaits item(s) on the general board today" XXecho "DO you want to read any? (y/n): \c" XXread userans XX[ "$userans" = "n" ] && exit XX SHAR_EOF if test 264 -ne "`wc -c < 'read.post'`" then echo shar: error transmitting "'read.post'" '(should have been 264 characters)' fi chmod +x 'read.post' fi # end of overwriting check echo shar: extracting "'send.mail'" '(1002 characters)' if test -f 'send.mail' then echo shar: will not over-write existing file "'send.mail'" else sed 's/^XX//' > 'send.mail' << \SHAR_EOF XX#! /bin/sh XX# send mail XX# Bob Kirkpatrick Sat May 12 13:18:23 PDT 1990 XX# XXuserans="" XX/bin/echo "Who are you sending mail to? (c/r only for list)" XX/bin/echo "To: \c" XXread userans XXif [ "$userans" = "" ] XXthen XX /bin/echo "==============================================================================\n" XX /usr/bin/pg -p " [q=quit, space=more]: " LOGGEDonce XX /bin/echo "\n------------------------------------------------------------------------------" XX /bin/echo "\nSend mail to who: \c" XX read userans XXfi XX[ "$userans" = "" ] && exit XXmsgcnt=`cat msgno` XXmsgid=`expr $msgcnt + 1` XXecho "FROM: "`cat LOGGEDonce | /bin/grep $bbsuser` >./tmp/$msgid.$userans XXecho "DATE: "`date` >>./tmp/$msgid.$userans XXecho "------------------------------------------\n" >>./tmp/$msgid.$userans XX$EDITOR ./tmp/$msgid.$userans XXecho "------------------------------------------\n" >>./tmp/$msgid.$userans XXecho "\n(S)end or (A)bort the message: \c" XXread ans XX[ $ans = 's' ] && mv ./tmp/$msgid* ./msgs ;exit XXrm ./tmp/* XXcat $msgid >./msgno SHAR_EOF if test 1002 -ne "`wc -c < 'send.mail'`" then echo shar: error transmitting "'send.mail'" '(should have been 1002 characters)' fi chmod +x 'send.mail' fi # end of overwriting check echo shar: extracting "'sh'" '(80 characters)' if test -f 'sh' then echo shar: will not over-write existing file "'sh'" else sed 's/^XX//' > 'sh' << \SHAR_EOF XX/bin/echo "Yeah, *of course* I'd let you shell out. Sure!" XX/bin/echo "bullsh*t" SHAR_EOF if test 80 -ne "`wc -c < 'sh'`" then echo shar: error transmitting "'sh'" '(should have been 80 characters)' fi chmod +x 'sh' fi # end of overwriting check echo shar: extracting "'subsystem.bbs'" '(584 characters)' if test -f 'subsystem.bbs' then echo shar: will not over-write existing file "'subsystem.bbs'" else sed 's/^XX//' > 'subsystem.bbs' << \SHAR_EOF XX#! /bin/sh XX# XX# bbs subsystem XX# XX# by Bob Kirkpatrick: Fri May 11 14:59:39 PDT 1990 XX.clear XX/bin/echo "Today is "`date | /usr/bin/cut -c1-10` XX/bin/cat ./user.menu XX/bin/echo "#> \c" XXread userans XXcase $userans in XX 1) /bin/sh mail.system ;; XX 2) /bin/sh file.viewing ;; XX 3) /bin/sh file.xfer ;; XX 4) /bin/sh news.reader ;; XX 5) /bin/sh bull.system ;; XX 6) /bin/sh news.poster ;; XX 7) /bin/echo "Sorry, not available" XX /bin/sleep 3 ;; XX 8) /bin/echo "Sorry, not available" XX /bin/sleep 3 ;; XX 9) .clear XX /bin/sh sysop.chat ;; XX 0) .clear XX /bin/echo "Thanks for calling!" XX /bin/kill -9 0 ;; XXesac SHAR_EOF if test 584 -ne "`wc -c < 'subsystem.bbs'`" then echo shar: error transmitting "'subsystem.bbs'" '(should have been 584 characters)' fi chmod +x 'subsystem.bbs' fi # end of overwriting check echo shar: extracting "'sysop.chat'" '(454 characters)' if test -f 'sysop.chat' then echo shar: will not over-write existing file "'sysop.chat'" else sed 's/^XX//' > 'sysop.chat' << \SHAR_EOF XX# XX# sysop chat facility XX# XX# you should substitute your own chat facility if 'talk' isn't available XX# on your system. XX# XXclear XXecho "This utility will attempt to page the sysop (root)" XXecho "if, after a reasonable number of retries (4), you get no response" XXecho "you should abort." XXecho " " XXecho "To abort, or conclude the chat session, press CONTROL-C..." XXecho " " XXecho "press [ENTER] to continue. . .\c" XXread userans XXclear XX/bin/sh /usr/local/talk root SHAR_EOF if test 454 -ne "`wc -c < 'sysop.chat'`" then echo shar: error transmitting "'sysop.chat'" '(should have been 454 characters)' fi chmod +x 'sysop.chat' fi # end of overwriting check if test ! -d 'tmp' then echo shar: creating directory "'tmp'" mkdir 'tmp' fi echo shar: entering directory "'tmp'" cd 'tmp' echo shar: done with directory "'tmp'" cd .. if test ! -d 'upload' then echo shar: creating directory "'upload'" mkdir 'upload' fi echo shar: entering directory "'upload'" cd 'upload' echo shar: done with directory "'upload'" cd .. echo shar: extracting "'user.menu'" '(477 characters)' if test -f 'user.menu' then echo shar: will not over-write existing file "'user.menu'" else sed 's/^XX//' > 'user.menu' << \SHAR_EOF XX XX SYSTEM MAIN MENU XX============================================== XX[1] .. Mail Sub-System [2] .. File Viewing XX[3] .. File Xfer System [4] .. uunet Reader XX[5] .. Bulletin System [6] .. News Posting XX[7] .. C Development [8] .. C Compiler XX[9] .. Sysop Chat Page [0] .. Exit/Logoff XX============================================== XXDog Ear's Systems ---- a Division of Brand - X XX---------------------------------------------- XX XX XX XX XX[Main Menu] Command SHAR_EOF if test 477 -ne "`wc -c < 'user.menu'`" then echo shar: error transmitting "'user.menu'" '(should have been 477 characters)' fi chmod +x 'user.menu' fi # end of overwriting check echo shar: extracting "'user.welcome'" '(323 characters)' if test -f 'user.welcome' then echo shar: will not over-write existing file "'user.welcome'" else sed 's/^XX//' > 'user.welcome' << \SHAR_EOF XX XXWelcome to Dog Ear. XX XXThe following bulletins are available: XX XX A) Available download protocols XX documantation on up/downloading XX files to/from this bbs. XX XX B) Archiving schemes and tools XX documentation on compression XX arc, zoo, zip, ...etc. XX XX C) System information and users XX XX D) The mail and news areas XX XX XX SHAR_EOF if test 323 -ne "`wc -c < 'user.welcome'`" then echo shar: error transmitting "'user.welcome'" '(should have been 323 characters)' fi chmod +x 'user.welcome' fi # end of overwriting check # # End of shell archive # exit 0 # # safety net exit 0 -- Copyright (C) 1991, Geoffrey S. Mendelson. All Rights Reserved. Except for usenet followups, may not be reproduced without permsission. ---------------------------------------------------------------------------- | | Computer Software Consulting | | ---------------------------------------------------------------------------- Geoffrey S. Mendelson I've written and debugged almost eight thousand geoffrey@mendelson.com LINES of C code under Coherent in the last two mwcbbs!mailgsm!geoffrey months. :-) (215) 242-8712 And my wife still speaks to me!