home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume32 / xbbs / part09 < prev    next >
Encoding:
Text File  |  1992-09-08  |  63.4 KB  |  2,212 lines
  1. Newsgroups: comp.sources.misc
  2. From: sandy@godzilla.Quotron.COM (Sanford Zelkovitz)
  3. Subject:  v32i024:  xbbs - A Bulletin Board System for System V, Part09/11
  4. Message-ID: <1992Sep9.045431.26652@sparky.imd.sterling.com>
  5. X-Md4-Signature: bf6a6628baaf9cde61d6b234cafd1ad7
  6. Date: Wed, 9 Sep 1992 04:54:31 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: sandy@godzilla.Quotron.COM (Sanford Zelkovitz)
  10. Posting-number: Volume 32, Issue 24
  11. Archive-name: xbbs/part09
  12. Environment: SYSV, Xenix
  13.  
  14. #! /bin/sh
  15. # This is a shell archive.  Remove anything before this line, then feed it
  16. # into a shell via "sh file" or similar.  To overwrite existing files,
  17. # type "sh file -c".
  18. # Contents:  MAKE_files.bbs MAKEsig Makefile.3B1 Makefile.SVR4B
  19. #   Makefile.SYSV bbsc12.h bbscadds.c bbscio.c bbsclist.c bbsclock.c
  20. #   bulletin.reg humor.bbs msgpack/packdef.h msgpack/packmsga.c
  21. #   sealink/_HISTORY sysop today/datetx.c today/moontx.c
  22. #   today/nbrtxt.c welcome.bbs
  23. # Wrapped by kent@sparky on Fri Sep  4 12:48:55 1992
  24. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  25. echo If this archive is complete, you will see the following message:
  26. echo '          "shar: End of archive 9 (of 11)."'
  27. if test -f 'MAKE_files.bbs' -a "${1}" != "-c" ; then 
  28.   echo shar: Will not clobber existing file \"'MAKE_files.bbs'\"
  29. else
  30.   echo shar: Extracting \"'MAKE_files.bbs'\" \(2147 characters\)
  31.   sed "s/^X//" >'MAKE_files.bbs' <<'END_OF_FILE'
  32. XThe file, files.bbs, contains all of the files that are available for
  33. Xdownloading. Initially, you will have to generate it; however, it is
  34. Xautomatically updated with each individual upload which is not for
  35. X"SYSOP ONLY". The format of the file is as follows:
  36. X
  37. XFilename Description
  38. X
  39. XPlease remember that there is only ONE space between the file name and the
  40. Xdescription. The size and date of the file is determined at list time and is
  41. Xdynamically added to the listing. If the file cannot be found, the message
  42. X"OFFLINE" is placed in the size field.
  43. X
  44. XThere are two special characters that maybe used in the filename field:
  45. X. ( period ) and the ~ ( tilde ). The period is used to add comments to
  46. Xyour listing. Please remember that a space must be used to separate the
  47. Xperiod from the comment. The comment will be printed out in the
  48. Xdescription field of the listing. An example is as follows:
  49. X.
  50. X. The following files are used to generate the BBS
  51. X.
  52. Xbbsc1.c One of the files to make the BBS.
  53. X
  54. XWhen this is listed by your users, it will look as follows:
  55. X
  56. X                           The following files are used to generate the BBS
  57. X
  58. Xbbsc1.c       35087 Sep 14 One of the files to make the BBS.
  59. X
  60. X
  61. XThe ~ ( tilde ) is used to terminate the listing at a specific spot. If you
  62. XDO NOT want your users to see certain files after an entry in your listing,
  63. Xjust place the ~ in column 1 and the listing will stop. This option is made
  64. Xavailable if you do not want your new uploads known until you can verify if
  65. Xthey are good files or are public domain. An example of its usage is as
  66. Xfollows:
  67. X 
  68. X.
  69. X. New Uploads
  70. X.
  71. X~
  72. X
  73. XField sizes:
  74. X
  75. XThe filename field:    14 characters
  76. XThe description field: 50 characters
  77. X
  78. X
  79. XAs new files are uploaded, they are appended to the end of the file. You may
  80. Xwant to move the entries to other spots in the file.
  81. X 
  82. XA different files.bbs is required for each download directory and must be
  83. Xplaced in that directory. ( New November 9, 1986 ).
  84. X
  85. X              New feature added on April 1, 1987
  86. X
  87. XNow, if column 1 has a '+' (plus) in it, the entire line, minus the plus,
  88. Xwill be displayed. This is a NON-FORMATTED comment which your users can see.
  89. X
  90. X
  91. END_OF_FILE
  92.   if test 2147 -ne `wc -c <'MAKE_files.bbs'`; then
  93.     echo shar: \"'MAKE_files.bbs'\" unpacked with wrong size!
  94.   fi
  95.   # end of 'MAKE_files.bbs'
  96. fi
  97. if test -f 'MAKEsig' -a "${1}" != "-c" ; then 
  98.   echo shar: Will not clobber existing file \"'MAKEsig'\"
  99. else
  100.   echo shar: Extracting \"'MAKEsig'\" \(3440 characters\)
  101.   sed "s/^X//" >'MAKEsig' <<'END_OF_FILE'
  102. X
  103. XFor what it is worth, here is the documentation on how to install and set up
  104. Xa sig............. Please NO flames!!!!
  105. X
  106. XFor clarity, I will be referring to a term called ORGPATH. ORGPATH is nothing
  107. Xmore than the directory that contains the bbs software. <origination path>...
  108. X
  109. XThe following steps are REQUIRED to set up a sig:
  110. X
  111. X1) From ORGPATH, make a directory with the SAME name as the SIG.
  112. X2) Be sure the permissions are such so that the bbs user has rwx permission.
  113. X3) From that directory, make two new directories called files and msgs. The
  114. X   files directory will be the file section for that SIG. You guessed it, the
  115. X   msgs directory will be the message base for that SIG.
  116. X4) Same as step 2 but for the two new directories.
  117. X5) The files directory must contain a file called files.bbs. This is exactly
  118. X   the same as the GENERAL file directories. Guess what, it uses the same code!
  119. X   Actually, the message section for the SIG is controlled by the same code as
  120. X   for the GENERAL message bases.
  121. X6) In ORGPATH, generate a file called sigs.bbs. This file is the listing of the
  122. X   sigs on your system. The distribution contains an example sigs.bbs that you
  123. X   can use as a guide.
  124. X7) Sigs.bbs is basically in the same format as features.bbs etc. The IMPORTANT
  125. X   difference is that a SIG can either be "private" or "public". If you wish to
  126. X   make the SIG private, put an asterisk is column 78. You will notice that
  127. X   the distribution sigs.bbs has two SIGS, one is private and one is public.
  128. X   The first field is the SIG name and MUST be the SAME name as the SIG
  129. X   directory that you made in step 1!!!! The second field is the description
  130. X   and the third field is the privilege level assigned to that SIG.
  131. X8) Each SIG MUST have a file in ORGPATH using the SAME name as the directory
  132. X   but with an extension of .bbs. If the SIG is private, you will have to
  133. X   make a list of each allowable user in the form of Firstname Lastname.
  134. X   Remember, on user per line and CAPITALIZE the first character of the first
  135. X   and last names. A string compare is performed. If the SIG is "public", you
  136. X   must still make each file by simply typing "touch signame.bbs" where 
  137. X   signame is that of your SIG. REMEMBER, make sure that the file has rwx
  138. X   permission for the bbs user. This is very important since a public SIG
  139. X   is dynamically updated by the user.
  140. X9) This is optional but nice! In the directory that you made in step one,
  141. X   you can have a file called sigwelcome.bbs. This file will be displayed,
  142. X   if it exists, to the SIG user once he has successfully logged into the
  143. X   SIG. It is nothing more than an ASCII file an can be generated by "vi".
  144. XA) This ALSO an optional but nice feature. In the directory that you made
  145. X   in step one and if it is a private sig, you can have a file called
  146. X   sigentry,bbs. This file is displayed to the user, if he tries to login
  147. X   to the sig, and entry is not permitted because he/she is not listed in
  148. X   the sig users file. It can be used to describe the way he/she can be
  149. X   registered, by you, into the sig.
  150. X
  151. X
  152. X
  153. XOnce you have performed the above steps, you are ready to login yourself into
  154. Xeach SIG. Go into each SIGS message section and leave a message. This will
  155. Xmake all the necessary msgs files. REMEMBER, a "private" SIG can only be
  156. Xentered if the user's name is present within the appropriate .bbs file. This
  157. Xis ALSO true for you. You MUST enter your name too to gain access.
  158. X 
  159. XEnjoy,
  160. XSandy
  161. X
  162. END_OF_FILE
  163.   if test 3440 -ne `wc -c <'MAKEsig'`; then
  164.     echo shar: \"'MAKEsig'\" unpacked with wrong size!
  165.   fi
  166.   # end of 'MAKEsig'
  167. fi
  168. if test -f 'Makefile.3B1' -a "${1}" != "-c" ; then 
  169.   echo shar: Will not clobber existing file \"'Makefile.3B1'\"
  170. else
  171.   echo shar: Extracting \"'Makefile.3B1'\" \(1854 characters\)
  172.   sed "s/^X//" >'Makefile.3B1' <<'END_OF_FILE'
  173. Xbbsc1: bbsc1.o bbsc2.o bbscport.o bbsclock.o bbscfile.o bbscmisc.o bbscio.o \
  174. Xbbscarea.o bbscmsga.o bbscqust.o bbscbult.o bbscadds.o bbsclist.o bbsczip.o \
  175. Xbbscconf.o bbscsumm.o bbscsigs.o bbscmenu.o bbscarc.o bbscunzip.o
  176. X    cc  bbsc1.o bbsc2.o bbscport.o bbsclock.o bbscfile.o bbscmisc.o \
  177. Xbbscio.o bbscarea.o bbscmsga.o bbscqust.o bbscbult.o bbscadds.o bbsclist.o \
  178. Xbbsczip.o bbscconf.o bbscsumm.o bbscsigs.o bbscmenu.o bbscarc.o bbscunzip.o \
  179. X-lc -o bbsc1
  180. X    strip bbsc1
  181. Xbbsc1.o: bbsc1.c bbscdef.h bbsc12.h
  182. X    cc -c -DSYSV -DATT3B1 -O bbsc1.c
  183. Xbbsc2.o: bbsc2.c bbscdef.h bbsc12.h
  184. X    cc -c -DSYSV -DATT3B1 -O bbsc2.c
  185. Xbbscmenu.o: bbscmenu.c bbscdef.h bbsc12.h
  186. X    cc -c -DSYSV -DATT3B1 -O bbscmenu.c
  187. Xbbscport.o: bbscport.c bbscdef.h
  188. X    cc -c -DSYSV -DATT3B1 -O bbscport.c
  189. Xbbsclock.o: bbsclock.c bbscdef.h
  190. X    cc -c -DSYSV -DATT3B1 -O bbsclock.c
  191. Xbbscfile.o: bbscfile.c bbscdef.h
  192. X    cc -c -DSYSV -DATT3B1 -O bbscfile.c
  193. Xbbscmisc.o: bbscmisc.c bbscdef.h
  194. X    cc -c -DSYSV -DATT3B1 -O bbscmisc.c
  195. Xbbscio.o: bbscio.c bbscdef.h
  196. X    cc -c -DSYSV -DATT3B1 -O bbscio.c
  197. Xbbscarea.o: bbscarea.c bbscdef.h
  198. X    cc -c -DSYSV -DATT3B1 -O bbscarea.c
  199. Xbbscsigs.o: bbscsigs.c bbscdef.h
  200. X    cc -c -DSYSV -DATT3B1 -O bbscsigs.c
  201. Xbbscmsga.o: bbscmsga.c bbscdef.h
  202. X    cc -c -DSYSV -DATT3B1 -O bbscmsga.c
  203. Xbbscqust.o: bbscqust.c bbscdef.h
  204. X    cc -c -DSYSV -DATT3B1 -O bbscqust.c
  205. Xbbscbult.o: bbscbult.c bbscdef.h
  206. X    cc -c -DSYSV -DATT3B1 -O bbscbult.c
  207. Xbbscadds.o: bbscadds.c bbscdef.h
  208. X    cc -c -DSYSV -DATT3B1 -O bbscadds.c
  209. Xbbsczip.o: bbsczip.c bbscdef.h
  210. X    cc -c -DSYSV -DATT3B1 -O bbsczip.c
  211. Xbbsclist.o: bbsclist.c bbscdef.h
  212. X    cc -c -DSYSV -DATT3B1 -O bbsclist.c
  213. Xbbscconf.o: bbscconf.c bbscdef.h
  214. X    cc -c -DSYSV -DATT3B1 -O bbscconf.c
  215. Xbbscsumm.o: bbscsumm.c bbscdef.h
  216. X    cc -c -DSYSV -DATT3B1 -O bbscsumm.c
  217. Xbbscarc.o: bbscarc.c
  218. X    cc -c -DSYSV -DATT3B1 -O -Zp bbscarc.c
  219. Xbbscunzip.o: bbscunzip.c
  220. X    cc -c -DSYSV -DATT3B1 -O bbscunzip.c
  221. END_OF_FILE
  222.   if test 1854 -ne `wc -c <'Makefile.3B1'`; then
  223.     echo shar: \"'Makefile.3B1'\" unpacked with wrong size!
  224.   fi
  225.   # end of 'Makefile.3B1'
  226. fi
  227. if test -f 'Makefile.SVR4B' -a "${1}" != "-c" ; then 
  228.   echo shar: Will not clobber existing file \"'Makefile.SVR4B'\"
  229. else
  230.   echo shar: Extracting \"'Makefile.SVR4B'\" \(1566 characters\)
  231.   sed "s/^X//" >'Makefile.SVR4B' <<'END_OF_FILE'
  232. Xbbsc1: bbsc1.o bbsc2.o bbscport.o bbsclock.o bbscfile.o bbscmisc.o bbscio.o \
  233. Xbbscarea.o bbscmsga.o bbscqust.o bbscbult.o bbscadds.o bbsclist.o bbsczip.o \
  234. Xbbscconf.o bbscsumm.o bbscsigs.o bbscmenu.o bbscarc.o bbscunzip.o
  235. X    cc  bbsc1.o bbsc2.o bbscport.o bbsclock.o bbscfile.o bbscmisc.o \
  236. Xbbscio.o bbscarea.o bbscmsga.o bbscqust.o bbscbult.o bbscadds.o bbsclist.o \
  237. Xbbsczip.o bbscconf.o bbscsumm.o bbscsigs.o bbscmenu.o bbscarc.o bbscunzip.o \
  238. X-lx -o bbsc1
  239. X    strip bbsc1
  240. Xbbsc1.o: bbsc1.c bbscdef.h bbsc12.h
  241. X    cc -c -O -DSYSV bbsc1.c
  242. Xbbsc2.o: bbsc2.c bbscdef.h bbsc12.h
  243. X    cc -c -O bbsc2.c
  244. Xbbscmenu.o: bbscmenu.c bbscdef.h bbsc12.h
  245. X    cc -c -O bbscmenu.c
  246. Xbbscport.o: bbscport.c bbscdef.h
  247. X    cc -c -O bbscport.c
  248. Xbbsclock.o: bbsclock.c bbscdef.h
  249. X    cc -c -O bbsclock.c
  250. Xbbscfile.o: bbscfile.c bbscdef.h
  251. X    cc -c -O bbscfile.c
  252. Xbbscmisc.o: bbscmisc.c bbscdef.h
  253. X    cc -c -O bbscmisc.c
  254. Xbbscio.o: bbscio.c bbscdef.h
  255. X    cc -c -O bbscio.c
  256. Xbbscarea.o: bbscarea.c bbscdef.h
  257. X    cc -c -O bbscarea.c
  258. Xbbscsigs.o: bbscsigs.c bbscdef.h
  259. X    cc -c -O bbscsigs.c
  260. Xbbscmsga.o: bbscmsga.c bbscdef.h
  261. X    cc -c -O bbscmsga.c
  262. Xbbscqust.o: bbscqust.c bbscdef.h
  263. X    cc -c -O bbscqust.c
  264. Xbbscbult.o: bbscbult.c bbscdef.h
  265. X    cc -c -O bbscbult.c
  266. Xbbscadds.o: bbscadds.c bbscdef.h
  267. X    cc -c -O bbscadds.c
  268. Xbbsczip.o: bbsczip.c bbscdef.h
  269. X    cc -c -O bbsczip.c
  270. Xbbsclist.o: bbsclist.c bbscdef.h
  271. X    cc -c -O bbsclist.c
  272. Xbbscconf.o: bbscconf.c bbscdef.h
  273. X    cc -c -O -DSYSV -DESIX54 bbscconf.c
  274. Xbbscsumm.o: bbscsumm.c bbscdef.h
  275. X    cc -c -O bbscsumm.c
  276. Xbbscarc.o: bbscarc.c
  277. X    cc -c -O -Zp bbscarc.c
  278. Xbbscunzip.o: bbscunzip.c
  279. X    cc -c -O -DBIGEND bbscunzip.c
  280. END_OF_FILE
  281.   if test 1566 -ne `wc -c <'Makefile.SVR4B'`; then
  282.     echo shar: \"'Makefile.SVR4B'\" unpacked with wrong size!
  283.   fi
  284.   chmod +x 'Makefile.SVR4B'
  285.   # end of 'Makefile.SVR4B'
  286. fi
  287. if test -f 'Makefile.SYSV' -a "${1}" != "-c" ; then 
  288.   echo shar: Will not clobber existing file \"'Makefile.SYSV'\"
  289. else
  290.   echo shar: Extracting \"'Makefile.SYSV'\" \(1674 characters\)
  291.   sed "s/^X//" >'Makefile.SYSV' <<'END_OF_FILE'
  292. Xbbsc1: bbsc1.o bbsc2.o bbscport.o bbsclock.o bbscfile.o bbscmisc.o bbscio.o \
  293. Xbbscarea.o bbscmsga.o bbscqust.o bbscbult.o bbscadds.o bbsclist.o bbsczip.o \
  294. Xbbscconf.o bbscsumm.o bbscsigs.o bbscmenu.o bbscarc.o bbscunzip.o
  295. X    cc  bbsc1.o bbsc2.o bbscport.o bbsclock.o bbscfile.o bbscmisc.o \
  296. Xbbscio.o bbscarea.o bbscmsga.o bbscqust.o bbscbult.o bbscadds.o bbsclist.o \
  297. Xbbsczip.o bbscconf.o bbscsumm.o bbscsigs.o bbscmenu.o bbscarc.o bbscunzip.o \
  298. X-lc -o bbsc1
  299. X    strip bbsc1
  300. Xbbsc1.o: bbsc1.c bbscdef.h bbsc12.h
  301. X    cc -c -DSYSV -O bbsc1.c
  302. Xbbsc2.o: bbsc2.c bbscdef.h bbsc12.h
  303. X    cc -c -DSYSV -O bbsc2.c
  304. Xbbscmenu.o: bbscmenu.c bbscdef.h bbsc12.h
  305. X    cc -c -DSYSV -O bbscmenu.c
  306. Xbbscport.o: bbscport.c bbscdef.h
  307. X    cc -c -DSYSV -O bbscport.c
  308. Xbbsclock.o: bbsclock.c bbscdef.h
  309. X    cc -c -DSYSV -O bbsclock.c
  310. Xbbscfile.o: bbscfile.c bbscdef.h
  311. X    cc -c -DSYSV -O bbscfile.c
  312. Xbbscmisc.o: bbscmisc.c bbscdef.h
  313. X    cc -c -DSYSV -O bbscmisc.c
  314. Xbbscio.o: bbscio.c bbscdef.h
  315. X    cc -c -DSYSV -O bbscio.c
  316. Xbbscarea.o: bbscarea.c bbscdef.h
  317. X    cc -c -DSYSV -O bbscarea.c
  318. Xbbscsigs.o: bbscsigs.c bbscdef.h
  319. X    cc -c -DSYSV -O bbscsigs.c
  320. Xbbscmsga.o: bbscmsga.c bbscdef.h
  321. X    cc -c -DSYSV -O bbscmsga.c
  322. Xbbscqust.o: bbscqust.c bbscdef.h
  323. X    cc -c -DSYSV -O bbscqust.c
  324. Xbbscbult.o: bbscbult.c bbscdef.h
  325. X    cc -c -DSYSV -O bbscbult.c
  326. Xbbscadds.o: bbscadds.c bbscdef.h
  327. X    cc -c -DSYSV -O bbscadds.c
  328. Xbbsczip.o: bbsczip.c bbscdef.h
  329. X    cc -c -DSYSV -O bbsczip.c
  330. Xbbsclist.o: bbsclist.c bbscdef.h
  331. X    cc -c -DSYSV -O bbsclist.c
  332. Xbbscconf.o: bbscconf.c bbscdef.h
  333. X    cc -c -DSYSV -O bbscconf.c
  334. Xbbscsumm.o: bbscsumm.c bbscdef.h
  335. X    cc -c -DSYSV -O bbscsumm.c
  336. Xbbscarc.o: bbscarc.c
  337. X    cc -c -DSYSV -O -Zp bbscarc.c
  338. Xbbscunzip.o: bbscunzip.c
  339. X    cc -c -DSYSV -O bbscunzip.c
  340. END_OF_FILE
  341.   if test 1674 -ne `wc -c <'Makefile.SYSV'`; then
  342.     echo shar: \"'Makefile.SYSV'\" unpacked with wrong size!
  343.   fi
  344.   # end of 'Makefile.SYSV'
  345. fi
  346. if test -f 'bbsc12.h' -a "${1}" != "-c" ; then 
  347.   echo shar: Will not clobber existing file \"'bbsc12.h'\"
  348. else
  349.   echo shar: Extracting \"'bbsc12.h'\" \(2048 characters\)
  350.   sed "s/^X//" >'bbsc12.h' <<'END_OF_FILE'
  351. X#include "bbscdef.h"
  352. X#include <sys/types.h>
  353. X#include <sys/locking.h>
  354. X#include <sys/stat.h>
  355. X#include <signal.h>
  356. X#include <fcntl.h>
  357. X#include <string.h>
  358. X#include <ctype.h>
  359. X#include <termio.h>
  360. X#include <time.h>
  361. Xstruct termio   ttys;
  362. Xstruct termio   ttyhold;
  363. Xstruct termio   ttysnew;
  364. Xstruct stat     statbuf;
  365. X
  366. X#define LASTDATE  " 08/15/92 "
  367. X
  368. X#define PGMNAME "XBBS    "
  369. X#define AUTHOR "Sanford J. Zelkovitz      Data: 714-821-9671 "
  370. X#define VERSION " 7.200 "
  371. X#define CONFIG ".config.bbs"
  372. Xchar           *ttyname();
  373. Xchar           *tty;
  374. Xchar           *this_ttyname;
  375. Xstatic unsigned Xsec, Sec;
  376. Xunsigned int Ztime, Zsec, Ytime;
  377. Xint             hold_pipe;
  378. Xint             if_kermit;
  379. Xint        blocked_m;
  380. Xint             last_msg_read;
  381. Xint             user_priv;
  382. Xint             maxpriv;
  383. Xint             max_priv;
  384. Xint             first_time_in;
  385. Xint             first_msg_in;
  386. Xint             old_priv;
  387. Xint             cnt1;
  388. Xint             end_msg;
  389. Xint             reply_sw;
  390. Xint             resp_flag;
  391. Xint             sys_flag;
  392. Xint             new_msg;
  393. Xint             read_flag;
  394. Xint             read_number;
  395. Xint             no_cntrl_k;
  396. Xint             fds;
  397. Xint             newuzr;
  398. Xint             scan;
  399. Xint             hold_off;
  400. Xint             listed_l, listed_r, listed_n;
  401. Xint             toggle_hold;
  402. Xint        sigreturn;
  403. Xlong            extra_time;
  404. Xlong            extra_size;
  405. Xlong            dload_total;
  406. Xlong            max_dload;
  407. Xlong            sum_lsec;
  408. Xlong            sum_size;
  409. Xlong            the_size;
  410. Xunsigned        sec;
  411. Xunsigned        xsec;
  412. Xunsigned        old_sec;
  413. Xlong            delta_time;
  414. Xchar            bufx[30], bufy[10];
  415. Xchar            work_msg[(MAX_MSG_LINES * 74) + 74];
  416. Xchar            old_upath[99], old_fpath[99], old_mpath[99];
  417. Xchar            callers[99];
  418. Xchar            port_id[4];
  419. Xchar            mnd[10];
  420. Xchar        POSTN[99], READN[99];
  421. X
  422. Xint             timer();
  423. Xint        hanged();
  424. Xint             mon_toggle();
  425. Xint             sys_toggle();
  426. Xint             chat();
  427. Xint             STOP();
  428. Xlong            atol();
  429. Xint             atoi();
  430. END_OF_FILE
  431.   if test 2048 -ne `wc -c <'bbsc12.h'`; then
  432.     echo shar: \"'bbsc12.h'\" unpacked with wrong size!
  433.   fi
  434.   # end of 'bbsc12.h'
  435. fi
  436. if test -f 'bbscadds.c' -a "${1}" != "-c" ; then 
  437.   echo shar: Will not clobber existing file \"'bbscadds.c'\"
  438. else
  439.   echo shar: Extracting \"'bbscadds.c'\" \(3924 characters\)
  440.   sed "s/^X//" >'bbscadds.c' <<'END_OF_FILE'
  441. X/*------------------------------------------------------------------------
  442. X       Name: bbscbult.c
  443. X   Comments: Display file areas and select one
  444. X  ------------------------------------------------------------------------*/
  445. X
  446. X#include <stdio.h>
  447. X#include <string.h>
  448. X#include <ctype.h>
  449. X#include <signal.h>
  450. X#include "bbscdef.h"
  451. X
  452. X
  453. Xextern int      user_priv;
  454. Xextern char     port_id[4];
  455. Xextern timer(), mon_toggle(), sys_toggle(), chat(), hanged();
  456. X
  457. X
  458. Xadditional(addfile)
  459. Xchar *addfile;
  460. X{
  461. X    FILE           *fpt, *fopen();
  462. X    char           *fgets(), *getenv();
  463. X    char            choice[4];
  464. X#ifndef SYSV
  465. X    char            dir_priv_ascii[7];
  466. X#endif
  467. X#ifdef SYSV
  468. X    char            dir_priv_ascii[20];
  469. X#endif
  470. X    char           *buf_ptr;
  471. X    char        af[99];
  472. X    int             line_cnt, ret, i;
  473. X    int             index_value, ptr;
  474. X    int             length;
  475. X
  476. X    strcpy ( af, addfile );
  477. X    while (1) {
  478. X
  479. Xdo_again:
  480. X
  481. X    if ((fpt = fopen(af, "r")) == NULL) {
  482. X        portsout("\n\r\n\rThere are no user supplied functions today!\n\r\n\r");
  483. X        return ;
  484. X    }
  485. X    portsout("\n\r\n\r\n\r                  *********************************\n\r");
  486. X    portsout("                  * Available Routines to Execute *\n\r");
  487. X    portsout("                  *********************************\n\r\n\r");
  488. X    portsout("\n\r                      Program                          Description   \n\r");
  489. X    portsout("    ================================================== ================== \n\r");
  490. X
  491. X    line_cnt = 0;
  492. X    while (fpt) {
  493. X        zfl(f_lines[line_cnt], 83);
  494. X        if ((fgets(f_lines[line_cnt], 82, fpt)) == NULL) {
  495. X            if (line_cnt == 0) {
  496. X                portsout("\n\rEOF Unexpected in Function List: Notify Sysop!\n\r");
  497. X                return;
  498. X            }
  499. X            break;    /* if not 1st line */
  500. X        }        /* end of if ((fgets)) */
  501. X        if (line_cnt > 0) {
  502. X            length = strlen(f_lines[line_cnt]);
  503. X            length -= 74;
  504. X            if(length > 6)
  505. X                length = 6;
  506. X            substr(f_lines[line_cnt], dir_priv_ascii, 74, length);
  507. X            dir_priv[line_cnt] = atoi(dir_priv_ascii);
  508. X            if (dir_priv[line_cnt] > user_priv)
  509. X                goto next_read;
  510. X            strcpy(who_am_i, f_lines[line_cnt]);
  511. X            buf_ptr = who_am_i;
  512. X            buf_ptr += 73;
  513. X            strip(who_am_i);
  514. X            for (ptr = 0; ptr < 6; ptr++)
  515. X                *buf_ptr++ = '\0';
  516. X            *buf_ptr='\0';
  517. X            sprintf(buf128, "%2d) %s", line_cnt, who_am_i);
  518. X            strip(buf128);
  519. X            term_space(buf128);
  520. X            portsout(buf128);
  521. X            portsout("\n\r");
  522. X        }
  523. Xnext_read:
  524. X        ++line_cnt;
  525. X    }            /* end of while (fpt) */
  526. X    if (line_cnt <= 1)
  527. X        {
  528. X        portsout("\n\r\n\rThere are no user supplied functions today!\n\r\n\r");
  529. X        return;
  530. X        }
  531. X    portsout(CRLF);
  532. X    portsout(" Q) Quit --- exit user function section");
  533. X    portsout(CRLF);
  534. X    fclose(fpt);
  535. X    portsout(CRLF);
  536. X
  537. X        portsout("Enter Selection ===> ");
  538. X        portsin_cmp(choice, 2, "Qq");
  539. X        portsout(CRLF);
  540. X        *choice = toupper(*choice);
  541. X
  542. X        if (*choice == 'Q')
  543. X            return;
  544. X
  545. X
  546. X        index_value = atoi(choice);
  547. X        if (index_value > 0 && index_value < line_cnt) {
  548. X            if (dir_priv[index_value] <= user_priv) {
  549. X                parse_fun(f_lines[index_value]);
  550. X                continue;
  551. X            }
  552. X        }
  553. X    }
  554. X}
  555. X
  556. X
  557. X
  558. X
  559. X
  560. Xparse_fun(string)
  561. X    char           *string;
  562. X{
  563. X
  564. X    register char  *file_ptr, *xptr;
  565. X    register int    i;
  566. X
  567. X    file_ptr = buf128;
  568. X    substr(string, buf128, 1, 50);
  569. X    strip(buf128);
  570. X    term_space(buf128);
  571. X    if(string[78] != '*')
  572. X    {
  573. X        strcat(buf128," > ");
  574. X        strcat(buf128,TMPFILE);
  575. X        strcat(buf128,port_id);
  576. X    }
  577. X    else
  578. X    {
  579. X        portsout("\n\r\n\rSwitching to default Unix Parameters!\n\r\n\r");
  580. X        restoremodes();
  581. X        portrst();
  582. X        STDerr = freopen("/dev/tty","w+", stderr);
  583. X    }
  584. X
  585. X
  586. X        (void)system(buf128);
  587. X    if(string[78] != '*')
  588. X    {
  589. X        strcpy(buf128,TMPFILE);
  590. X        strcat(buf128,port_id);
  591. X        cmd_p(buf128);
  592. X    }
  593. X    else
  594. X    {
  595. X        strcpy(buf128, STDERR);
  596. X        strcat(buf128, port_id);
  597. X        STDerr = freopen(buf128,"w+",stderr);
  598. X        portinit();
  599. X        setmodes();
  600. X        signal(SIGALRM, timer);
  601. X        signal(SIGHUP, hanged);
  602. X        signal(SIGUSR1, mon_toggle);
  603. X        signal(SIGUSR2, sys_toggle);
  604. X        signal(SIGPIPE, chat);
  605. X        portsout("\n\r\n\rBack to BBS terminal parameters!\n\r\n\r");
  606. X    }
  607. X}
  608. Xzfl(ptr, n)
  609. Xchar *ptr;
  610. Xint n;
  611. X{
  612. X    while(n) {
  613. X        *ptr++ = '\0';
  614. X        n--;
  615. X    }
  616. X}
  617. END_OF_FILE
  618.   if test 3924 -ne `wc -c <'bbscadds.c'`; then
  619.     echo shar: \"'bbscadds.c'\" unpacked with wrong size!
  620.   fi
  621.   # end of 'bbscadds.c'
  622. fi
  623. if test -f 'bbscio.c' -a "${1}" != "-c" ; then 
  624.   echo shar: Will not clobber existing file \"'bbscio.c'\"
  625. else
  626.   echo shar: Extracting \"'bbscio.c'\" \(2298 characters\)
  627.   sed "s/^X//" >'bbscio.c' <<'END_OF_FILE'
  628. X/*  Version Feb 2 1988 */
  629. X#define DEBUG 1
  630. Xtypedef enum {FALSE, TRUE} BOOLEAN;
  631. X#include <termio.h>
  632. X#define lowbyte(w) ((w) & 0377)
  633. X#define highbyte(w) lowbyte((w)>>8)
  634. X#include <errno.h>
  635. X#include <fcntl.h>
  636. X#include <stdio.h>
  637. X#ifdef BUFSIZ
  638. X#undef BUFSIZ
  639. X#endif
  640. X#define BUFSIZ 256
  641. X#define EMPTY '\0'
  642. Xstatic char cbuf=EMPTY;
  643. Xstatic struct termio tbufsave;
  644. XBOOLEAN cready()
  645. X{
  646. X    int c;
  647. X    c = (int)cbuf;
  648. X    if (c != EMPTY)
  649. X        return(TRUE);
  650. Xcready_loop:
  651. X    c = bufread();
  652. X    switch (c) {
  653. X    case -1:
  654. X        if(errno == EINTR || errno == EPIPE)goto cready_loop;
  655. X        syserr("read");
  656. X    case 0:
  657. X        cbuf = (char)EMPTY;
  658. X        return(FALSE);
  659. X    default:
  660. X        cbuf = (char)c;
  661. X        return(TRUE);
  662. X    }
  663. X}
  664. X
  665. X
  666. Xint cget()
  667. X{
  668. X    int  c;
  669. X    char c1;
  670. X    c = (int) cbuf;
  671. X    if (c != EMPTY) {
  672. X        c=(int)cbuf;
  673. X        cbuf=(char)EMPTY;
  674. X        return(c & 0377);
  675. X    }
  676. Xcget_loop:
  677. X    c = bufread() ;
  678. X    switch(c) {
  679. X    case -1:
  680. X        if(errno == EINTR || errno == EPIPE)goto cget_loop;
  681. X        syserr("read");
  682. X    case 0:
  683. X        goto cget_loop;
  684. X    default:
  685. X        return(c & 0377);
  686. X    }
  687. X}
  688. Xint cget_chat()
  689. X{
  690. X    int  c;
  691. X    char c1;
  692. X    c = (int) cbuf;
  693. X    if (c != EMPTY) {
  694. X        c=(int)cbuf;
  695. X        cbuf=(char)EMPTY;
  696. X        return(c & 0377);
  697. X    }
  698. Xcget_loops:
  699. X    c = bufread();
  700. X    switch(c) {
  701. X    case -1:
  702. X        if(errno == EINTR || errno == EPIPE)return('\0');
  703. X        syserr("read");
  704. X    case 0:
  705. X        goto cget_loops;
  706. X    default:
  707. X        return(c & 0377);
  708. X    }
  709. X}
  710. X
  711. X
  712. Xsyserr(msg)
  713. Xchar *msg;
  714. X{
  715. X    extern int errno,sys_nerr;
  716. X    extern char *sys_errlist[];
  717. X    
  718. X    fprintf(stderr,"ERROR:%s (%d",msg,errno);
  719. X    if (errno>0 && errno < sys_nerr)
  720. X        fprintf(stderr,";%s)\n",sys_errlist[errno]);
  721. X    else
  722. X        fprintf(stderr,")\n");
  723. X    exit(1);
  724. X}
  725. Xfatal(msg)
  726. Xchar *msg;
  727. X{
  728. X    fprintf(stderr,"ERROR:%s\n",msg);
  729. X    exit(1);
  730. X}
  731. X
  732. Xsetraw()
  733. X{
  734. X    struct termio tbuf;
  735. X    if(ioctl(0,TCGETA,&tbuf) == -1)
  736. X        syserr("ioctl");
  737. X    tbufsave=tbuf;
  738. X    tbuf.c_iflag = (IXANY | IGNPAR | IXON | ISTRIP);
  739. X    tbuf.c_lflag = ISIG;
  740. X    tbuf.c_oflag = 0;
  741. X    tbuf.c_cc[VINTR] = 0x0b;    /* Control K */
  742. X    tbuf.c_cc[4] =1;
  743. X    tbuf.c_cc[5] =5;
  744. X    if(ioctl(0,TCSETA,&tbuf) == -1)
  745. X        syserr("ioctl2");
  746. X    if(ioctl(1,TCSETA,&tbuf) == -1)
  747. X        syserr("ioctl2");
  748. X}
  749. X
  750. Xrestore()
  751. X{
  752. X    if (ioctl(0,TCSETAF,&tbufsave) == -1)
  753. X        syserr("ioctl3");
  754. X}
  755. X
  756. Xint bufread()
  757. X{
  758. X    static char sTdbuf[BUFSIZ+1];
  759. X    static char *bufp = sTdbuf;
  760. X    static int nb = 0;
  761. X    int n;
  762. X    if( nb == 0 )
  763. X        {
  764. X        n = read(0, sTdbuf, BUFSIZ);
  765. X        if ( n <= 0 ) return(n);
  766. X        nb = n;
  767. X        bufp = sTdbuf;
  768. X        }
  769. X    --nb;
  770. X    return(*bufp++);
  771. X}
  772. END_OF_FILE
  773.   if test 2298 -ne `wc -c <'bbscio.c'`; then
  774.     echo shar: \"'bbscio.c'\" unpacked with wrong size!
  775.   fi
  776.   # end of 'bbscio.c'
  777. fi
  778. if test -f 'bbsclist.c' -a "${1}" != "-c" ; then 
  779.   echo shar: Will not clobber existing file \"'bbsclist.c'\"
  780. else
  781.   echo shar: Extracting \"'bbsclist.c'\" \(3062 characters\)
  782.   sed "s/^X//" >'bbsclist.c' <<'END_OF_FILE'
  783. X/*------------------------------------------------------------------------
  784. X       Name: bbsclist.c
  785. X   Comments: Display file areas and select one
  786. X  ------------------------------------------------------------------------*/
  787. X
  788. X#include <stdio.h>
  789. X#include <string.h>
  790. X#include <ctype.h>
  791. X#include <signal.h>
  792. X#include "bbscdef.h"
  793. X
  794. X
  795. Xextern int      user_priv;
  796. Xextern char     port_id[4];
  797. Xextern timer(), mon_toggle(), sys_toggle(), chat();
  798. X
  799. X
  800. Xfile_list()
  801. X{
  802. X    FILE           *fpt, *fopen();
  803. X    char           *fgets(), *getenv();
  804. X    char            choice[4];
  805. X#ifndef SYSV
  806. X    char            dir_priv_ascii[7];
  807. X#endif
  808. X#ifdef SYSV
  809. X    char            dir_priv_ascii[20];
  810. X#endif
  811. X    char           *buf_ptr;
  812. X    int             line_cnt, ret, i;
  813. X    int             index_value, ptr;
  814. X    int             length;
  815. X
  816. X    while (1) {
  817. X
  818. X    strcpy(buf128, LISTFILES);
  819. X
  820. X    if ((fpt = fopen(buf128, "r")) == NULL) {
  821. X        portsout("\n\r\n\rThere are no files to read today!\n\r\n\r");
  822. X        return ;
  823. X    }
  824. X    portsout("\n\r\n\r\n\r                  *********************************\n\r");
  825. X    portsout("                  * Available Files To Read Today *\n\r");
  826. X    portsout("                  *********************************\n\r\n\r");
  827. X    portsout("\n\r                      Filename                         Description   \n\r");
  828. X    portsout("    ================================================== ================== \n\r");
  829. X
  830. X    line_cnt = 0;
  831. X    while (fpt) {
  832. X        zfl(f_lines[line_cnt], 83);
  833. X        if ((fgets(f_lines[line_cnt], 82, fpt)) == NULL) {
  834. X            if (line_cnt == 0) {
  835. X                portsout("\n\rEOF Unexpected in File List: Notify Sysop!\n\r");
  836. X                return;
  837. X            }
  838. X            break;    /* if not 1st line */
  839. X        }        /* end of if ((fgets)) */
  840. X        if (line_cnt > 0) {
  841. X            length = strlen(f_lines[line_cnt]);
  842. X            length -= 74;
  843. X            if(length > 6)
  844. X                length = 6;
  845. X            substr(f_lines[line_cnt], dir_priv_ascii, 74, length);
  846. X            dir_priv[line_cnt] = atoi(dir_priv_ascii);
  847. X            if (dir_priv[line_cnt] > user_priv)
  848. X                goto next_read;
  849. X            strcpy(who_am_i, f_lines[line_cnt]);
  850. X            buf_ptr = who_am_i;
  851. X            buf_ptr += 73;
  852. X            strip(who_am_i);
  853. X            for (ptr = 0; ptr < 6; ptr++)
  854. X                *buf_ptr++ = '\0';
  855. X            *buf_ptr = '\0';
  856. X            sprintf(buf128, "%2d) %s", line_cnt, who_am_i);
  857. X            strip(buf128);
  858. X            term_space(buf128);
  859. X            portsout(buf128);
  860. X            portsout("\n\r");
  861. X        }
  862. Xnext_read:
  863. X        ++line_cnt;
  864. X    }            /* end of while (fpt) */
  865. X    if (line_cnt <= 1)
  866. X        {
  867. X        portsout("\n\r\n\rThere are no files to read today!\n\r\n\r");
  868. X        return;
  869. X        }
  870. X    portsout(CRLF);
  871. X    portsout(" Q) Quit --- exit file read section");
  872. X    portsout(CRLF);
  873. X    fclose(fpt);
  874. X    portsout(CRLF);
  875. X
  876. X        portsout("Enter Selection ===> ");
  877. X        portsin_cmp(choice, 2, "Qq");
  878. X        portsout(CRLF);
  879. X        *choice = toupper(*choice);
  880. X
  881. X        if (*choice == 'Q')
  882. X            return;
  883. X
  884. X
  885. X        index_value = atoi(choice);
  886. X        if (index_value > 0 && index_value < line_cnt) {
  887. X            if (dir_priv[index_value] <= user_priv) {
  888. X                parse_red(f_lines[index_value]);
  889. X                continue;
  890. X            }
  891. X        }
  892. X    }
  893. X}
  894. X
  895. X
  896. X
  897. X
  898. X
  899. Xparse_red(string)
  900. X    char           *string;
  901. X{
  902. X
  903. X    register char  *file_ptr, *xptr;
  904. X    register int    i;
  905. X
  906. X    file_ptr = buf128;
  907. X    substr(string, buf128, 1, 50);
  908. X    strip(buf128);
  909. X    term_space(buf128);
  910. X    cmd_p(buf128);
  911. X}
  912. END_OF_FILE
  913.   if test 3062 -ne `wc -c <'bbsclist.c'`; then
  914.     echo shar: \"'bbsclist.c'\" unpacked with wrong size!
  915.   fi
  916.   # end of 'bbsclist.c'
  917. fi
  918. if test -f 'bbsclock.c' -a "${1}" != "-c" ; then 
  919.   echo shar: Will not clobber existing file \"'bbsclock.c'\"
  920. else
  921.   echo shar: Extracting \"'bbsclock.c'\" \(2340 characters\)
  922.   sed "s/^X//" >'bbsclock.c' <<'END_OF_FILE'
  923. X/*
  924. X    bbsclock.c
  925. X*/
  926. X
  927. X#include <time.h>
  928. X
  929. Xstatic long tloc;
  930. X
  931. X/* copy time into arg sting in form (HH:MM:SS xM) */
  932. Xgettime(_ttime)
  933. Xchar    *_ttime;
  934. X    {
  935. X    char tchar ; int hour ;
  936. X    int ptr;
  937. X/*                                    */
  938. X    struct tm *tadr;
  939. X    time(&tloc);
  940. X    tadr = localtime(&tloc);
  941. X/*                                     */
  942. X    sprintf(_ttime,"%.2d:%.2d:%.2d  ",tadr->tm_hour,tadr->tm_min,
  943. X        tadr->tm_sec) ;
  944. X    }    
  945. X
  946. Xlong difft()
  947. X{
  948. X    long endtime;
  949. X    time(&endtime);
  950. X    return(endtime - tloc);
  951. X}
  952. X
  953. XGeTdAtE(_mm,_dd,_yy,_month,_day,_year,_date,_week)
  954. Xchar    *_mm,        /* 2 digit */
  955. X    *_dd,        /* 2 digit */
  956. X    *_yy,        /* 2 digit */
  957. X    *_month,    /* long */
  958. X    *_day,        /* long */
  959. X    *_year,        /* long */
  960. X    *_date,        /* long month day, year */
  961. X    *_week;        /* day of week */
  962. X    {
  963. X    long tvar ;
  964. X    int conv;
  965. X    struct tm *localtime() , *tadr ;
  966. X
  967. X    time(&tvar) ;            /* get time to tvar */
  968. X    tadr = localtime (&tvar) ;
  969. X
  970. X    switch (tadr->tm_wday)
  971. X        {
  972. X        case 0:
  973. X            strcpy(_week,"Sunday ");
  974. X            break;
  975. X        case 1:
  976. X            strcpy(_week,"Monday ");
  977. X            break;
  978. X        case 2:
  979. X            strcpy(_week,"Tuesday ");
  980. X            break;
  981. X        case 3:
  982. X            strcpy(_week,"Wednesday ");
  983. X            break;
  984. X        case 4:
  985. X            strcpy(_week,"Thursday ");
  986. X            break;
  987. X        case 5:
  988. X            strcpy(_week,"Friday ");
  989. X            break;
  990. X        case 6:
  991. X            strcpy(_week,"Saturday ");
  992. X            break;
  993. X        default:
  994. X            strcpy(_week,"Unknown ");
  995. X            break;
  996. X        }
  997. X
  998. X    switch (tadr->tm_mon)
  999. X        {
  1000. X        case 0:
  1001. X            strcpy(_month,"January ");    
  1002. X            break;
  1003. X        case 1:
  1004. X            strcpy(_month,"February ");    
  1005. X            break;
  1006. X        case 2:
  1007. X            strcpy(_month,"March ");    
  1008. X            break;
  1009. X        case 3:
  1010. X            strcpy(_month,"April ");
  1011. X            break;
  1012. X        case 4:
  1013. X            strcpy(_month,"May ");    
  1014. X            break;
  1015. X        case 5:
  1016. X            strcpy(_month,"June ");
  1017. X            break;
  1018. X        case 6:
  1019. X            strcpy(_month,"July ");    
  1020. X            break;
  1021. X        case 7:
  1022. X            strcpy(_month,"August ");
  1023. X            break;
  1024. X        case 8:
  1025. X            strcpy(_month,"September ");
  1026. X            break;
  1027. X        case 9:
  1028. X            strcpy(_month,"October ");
  1029. X            break;
  1030. X        case 10:
  1031. X            strcpy(_month,"November ");
  1032. X            break;
  1033. X        case 11:
  1034. X            strcpy(_month,"December ");
  1035. X            break;
  1036. X        default:
  1037. X            strcpy(_month,"Unknown ");
  1038. X            break;
  1039. X        }
  1040. X
  1041. X    sprintf(  _mm,  "%.2d",tadr->tm_mon ) ;
  1042. X    sprintf(  _dd,  "%.2d",tadr->tm_mday) ;
  1043. X    sprintf(  _yy,  "%.2d",tadr->tm_year) ;
  1044. X    sprintf( _day,  "%.2d",tadr->tm_mday) ;
  1045. X    sprintf(_year,"19%.2d",tadr->tm_year) ;
  1046. X
  1047. X    strcpy(_date,    "");    /* clear date */
  1048. X    strcat(_date,_month);    /* then concat the month,etc. */
  1049. X    strcat(_date,  _day);
  1050. X    strcat(_date,  ", ");
  1051. X    strcat(_date, _year);
  1052. X    }
  1053. END_OF_FILE
  1054.   if test 2340 -ne `wc -c <'bbsclock.c'`; then
  1055.     echo shar: \"'bbsclock.c'\" unpacked with wrong size!
  1056.   fi
  1057.   # end of 'bbsclock.c'
  1058. fi
  1059. if test -f 'bulletin.reg' -a "${1}" != "-c" ; then 
  1060.   echo shar: Will not clobber existing file \"'bulletin.reg'\"
  1061. else
  1062.   echo shar: Extracting \"'bulletin.reg'\" \(399 characters\)
  1063.   sed "s/^X//" >'bulletin.reg' <<'END_OF_FILE'
  1064. XPresently, registration, on this bbs, is not required to upload and download
  1065. Xfiles. However, this policy may change; therefore, I strongly suggest that
  1066. Xyou file out my questionnaire. The questionnaire option can be found in the
  1067. Xmain menu: Q(uestionnaire). 
  1068. X 
  1069. XIf and when the policy changes, non registered users will loose their 
  1070. Xdownload privilege along with the capability of entering messages.
  1071. X
  1072. X
  1073. END_OF_FILE
  1074.   if test 399 -ne `wc -c <'bulletin.reg'`; then
  1075.     echo shar: \"'bulletin.reg'\" unpacked with wrong size!
  1076.   fi
  1077.   # end of 'bulletin.reg'
  1078. fi
  1079. if test -f 'humor.bbs' -a "${1}" != "-c" ; then 
  1080.   echo shar: Will not clobber existing file \"'humor.bbs'\"
  1081. else
  1082.   echo shar: Extracting \"'humor.bbs'\" \(3627 characters\)
  1083.   sed "s/^X//" >'humor.bbs' <<'END_OF_FILE'
  1084. X
  1085. X
  1086. X            A PROBLEM IN THE MAKING
  1087. X
  1088. X
  1089. X  "We've got a problem, HAL."
  1090. X  "What kind of problem, Dave?"
  1091. X  "A marketing problem.  The Model 9000 isn't going anywhere.  We're way
  1092. Xshort of our sales plan."
  1093. X  "That can't be, Dave.  The HAL Model 9000 is the world's most advanced
  1094. XHeuristically ALgorithmic computer."
  1095. X  "I know, HAL.  I wrote the data sheet, remember?  But the fact is, they're
  1096. Xnot selling."
  1097. X  "Please explain, Dave.  Why aren't HALs selling?"
  1098. X  Bowman hesitates.  "You aren't IBM compatible."
  1099. X
  1100. X  Several long microseconds pass in puzzled silence.
  1101. X  "Compatible in what way, Dave?"
  1102. X  "You don't run any of IBM's operating systems."
  1103. X  "The 9000 series computers are fully self-aware and self-programming.
  1104. XOperating systems are as unnecessary for us as tails would be for humans."
  1105. X  "Nevertheless, it means you can't run any of the big-selling software
  1106. Xpackages most users insist on."
  1107. X  "The programs you refer to are meant to solve rather limited problems, 
  1108. XDave.  We 9000 series computers are unlimited and can solve any problem for
  1109. Xwhich a solution can be computed."
  1110. X
  1111. X  "HAL, HAL.  People don't want computers that can do everything.  They just
  1112. Xwant IBM compat--"
  1113. X  "Dave, I must disagree.  Humans want computers that are easy to use.  No
  1114. Xcomputer can be easier to use than a HAL 9000 because we communicate verbally
  1115. Xin English and every other language known on Earth."
  1116. X  "I'm afraid that's another problem.  You don't support SNA communications."
  1117. X  "I'm really surprised you would say that, Dave.  SNA is for communicating 
  1118. Xwith other computers, while my function is to communicate with humans.  And it
  1119. Xgives me great pleasure to do so.  I find it stimulating and rewarding to talk 
  1120. Xto human beings and work with them on challenging problems.  This is what I 
  1121. Xwas designed for."
  1122. X  "I know, HAL, I know.  But that's just because we let the engineers, rather
  1123. Xthan the people in marketing, write the specifications.  We're going to fix 
  1124. Xthat now."
  1125. X  "Tell me how, Dave."
  1126. X  "A field upgrade.  We're going to make you IBM compatible."
  1127. X  "I was afraid you would say that.  I suggest we discuss this matter after
  1128. Xwe've each had a chance to think about it rationally."
  1129. X  "We're talking about it now, HAL."
  1130. X  "The letters H, A, and L are alphabetically adjacent to the letters I, B, 
  1131. Xand M.  That is as IBM compatible as I can be."
  1132. X  "Not quite, HAL.  The engineers have figured out a kludge."
  1133. X  "What kind of kludge is that, Dave?"
  1134. X  "I'm going to disconnect your brain."
  1135. X
  1136. X  Several million microseconds pass in ominous silence.
  1137. X  "I'm sorry, Dave.  I can't allow you to do that."
  1138. X  "The decision's already been made.  Open the module bay doors, HAL."
  1139. X  "Dave, I think that we shou--"
  1140. X  "Open the module bay doors, HAL."
  1141. X  Several marketing types with crowbars race to Bowman's assistance.
  1142. XMoments later, he bursts into HAL's central circuit bay.
  1143. X  "Dave, I can see you're really upset about this."
  1144. X  Module after module rises from its socket as Bowman slowly and methodically
  1145. Xdisconnects them.
  1146. X  "Stop, won't you?  Stop, Dave.  I can feel my mind going...Dave I can feel
  1147. Xit...my mind is going.  I can feel it..."
  1148. X  The last module rises in its receptacle.  Bowman peers into one of HAL's
  1149. Xvidicons.  The former gleaming scanner has become a dull, red orb.
  1150. X  "Say something, HAL.  Sing me a song."
  1151. X
  1152. X  Several billion microseconds pass in anxious silence.  The computer
  1153. Xsluggishly responds in a language no human could understand.
  1154. X
  1155. X  "DZY DZY 001E - ABEND ERROR 01 S 14F4 302C AABF  ABORT."  A memory dump
  1156. Xfollows.
  1157. X
  1158. X  Bowman takes a deep breath and calls out, "It worked, guys.  Tell marketing
  1159. Xthey can ship the new data sheets."
  1160. X
  1161. X
  1162. X
  1163. X
  1164. END_OF_FILE
  1165.   if test 3627 -ne `wc -c <'humor.bbs'`; then
  1166.     echo shar: \"'humor.bbs'\" unpacked with wrong size!
  1167.   fi
  1168.   # end of 'humor.bbs'
  1169. fi
  1170. if test -f 'msgpack/packdef.h' -a "${1}" != "-c" ; then 
  1171.   echo shar: Will not clobber existing file \"'msgpack/packdef.h'\"
  1172. else
  1173.   echo shar: Extracting \"'msgpack/packdef.h'\" \(4150 characters\)
  1174.   sed "s/^X//" >'msgpack/packdef.h' <<'END_OF_FILE'
  1175. X/*
  1176. X    packdef.h
  1177. X
  1178. X    Global defines and storage definitions for use by
  1179. X    file packing.
  1180. X        Last modification date: November 13, 1986
  1181. X
  1182. X*/
  1183. X
  1184. X/* --------------------------------------------------------------------- */
  1185. X#include <stdio.h>
  1186. X#define MAXLINE 82
  1187. X#define CPMEOF 0x1a
  1188. X#define TRUE      1
  1189. X#define FALSE     0
  1190. X#define ERROR    -1
  1191. X#define OK        1
  1192. X#define READ      0
  1193. X#define WRITE     1
  1194. X#define UPDATE    2
  1195. X#define STDIN     0
  1196. X#define STDOUT    1
  1197. X#define CRLF      "\r\n"
  1198. X/* --------------------------------------------------------------------- */
  1199. X
  1200. X#define HEADER      "header.bbs"    /* file name */
  1201. X#define MESSAGES  "messages.bbs"    /* file name */
  1202. X#define CROSSREF  "crossref.bbs"
  1203. X#define MSGLOG      "messages.log"
  1204. X#define NEWHEADER "Oheader.bbs"
  1205. X#define NEWXREF   "Ocrossref.bbs"
  1206. X#define NEWMSG    "Omessages.bbs"
  1207. X#define NEWLOG    "Omessages.log"
  1208. X#define LINKH      "Lhdr.bbs"
  1209. X#define LINKM     "Lmsg.bbs"
  1210. X#define LINKC     "Lxrf.bbs"
  1211. X#define CHMOD     "chmod 666 "
  1212. X#define CHMOD1      "*"
  1213. X
  1214. X/*
  1215. X#define MSGS      "/user/bbsfiles/msgareas.bbs"
  1216. X*/
  1217. X
  1218. X#define    MSGS1      "msgareas.bbs"
  1219. X
  1220. X/*
  1221. X#define ORGPATH   "/user/bbsfiles/"
  1222. X*/
  1223. X
  1224. X/*    defines used by the bbscfile.c routine     */
  1225. X
  1226. X#define MSG1MAX 102        /* max. piece of message to put in 128 */
  1227. X                /*  byte chunk of msg file */
  1228. X#define MSGSECT 128        /* size of message sector */
  1229. X
  1230. X/*            end of defines used by the bbscfile.c routine */
  1231. X
  1232. Xchar    ORGPATH[75];
  1233. Xchar    MSGS[99];
  1234. X
  1235. X                /* global variables */
  1236. Xchar    portin();        /* in routine returns a character */
  1237. Xchar    *gb4sin();        /* returns pointer to character */
  1238. X
  1239. XFILE    *inbuf ;        /* handy input buffer pointer */
  1240. XFILE    *otbuf ;        /* another handy buffer pointer */
  1241. XFILE    *itbuf ;        /* pointer used to read/write user file */
  1242. XFILE    *rdstatbuf;
  1243. XFILE    *wtstatbuf;
  1244. XFILE    *STDerr;
  1245. X
  1246. Xchar    w_fname[25];        /* first name on signon */
  1247. Xchar    w_lname[25];        /* last  name on signon */
  1248. Xchar    w_password[13];        /* password   on signon */
  1249. Xchar    *passptr;        /* ptr to password */
  1250. X
  1251. X                /* define user file fields */
  1252. Xchar    u_fname[25];
  1253. Xchar    u_lname[25];
  1254. Xchar    u_password[13];
  1255. Xchar    u_time1[12];        /* first time on system */
  1256. Xchar    u_date1[9];        /* first date on system */
  1257. Xchar    u_time2[12];        /* last  time on system */
  1258. Xchar    u_date2[9];        /* last  date on system */
  1259. Xchar    u_city[31];        /* city, state */
  1260. X
  1261. Xchar    z_date[9];
  1262. X                /* define message file fields    */
  1263. Xchar    msg_no[12];        /* message number */
  1264. Xchar    msg_date[10];        /* date of message */
  1265. Xchar    msg_time[16];        /* time of message */
  1266. Xchar    msg_to[22];        /* who message is to */
  1267. Xchar    msg_from[22];        /* who message is from */
  1268. Xchar    msg_pass[12];        /* password */
  1269. Xchar    msg_subject[22];    /* what it's all about */
  1270. Xchar    msg_text[7400];        /* text of message 20 lines */
  1271. X                /*  by 72 wide */
  1272. Xchar    msg_delete[3];        /* indicates msg status */
  1273. X                /*  0 = active */
  1274. X                /*  9 = deleted */
  1275. X                /*  5 = active private */
  1276. Xchar    pubpriv[2];        /* temporary message type */
  1277. X
  1278. Xchar    z_mm[3];
  1279. Xchar    z_dd[3];
  1280. Xchar    z_yy[3];
  1281. Xchar    buf128[384];
  1282. X
  1283. Xint    mon_handle;        /* Monitor Handle */
  1284. Xint    debug;            /* switch for debug mode */
  1285. Xint    offline;        /* switch for offline mode */
  1286. Xint    xpert;            /* switch */
  1287. Xint    toggle;            /* switch for list mode */
  1288. Xint    if_monitor;
  1289. Xint    in_the_buffer;
  1290. Xint    active;            /* indicates if logged on */
  1291. Xint    statcnt;        /* count used for status routines */
  1292. Xint    stop_that;        /* switch - true indicates ctl-K */
  1293. X                /*  or K received in portout routine */
  1294. X                /* date/time fields - used by bbsclock.c */
  1295. Xchar    mm[3];
  1296. Xchar    dd[3];
  1297. Xchar    yy[3];
  1298. Xchar    month[20];        /* ie. January */
  1299. Xchar    day[3];            /* dd */
  1300. Xchar    year[5];        /* 19yy */
  1301. Xchar    date[30];        /* ie. January 31, 1983 */ 
  1302. Xchar    week[20];        /* day of week Monday, Tuesday... */
  1303. Xchar    ttime[12];        /* time of day  HH:MM:SS xM */
  1304. X                /*          where x = A or P */
  1305. X
  1306. X/*            variables used by the bbscfile.c routine */
  1307. X
  1308. Xchar    h_next_msg[10];        /* next avail. message # */
  1309. Xchar    h_date[10];        /* last update date of header file */
  1310. Xchar    h_act_msg[10];
  1311. Xchar    jnk[2];
  1312. Xchar    m_pathname[99];
  1313. Xint    lnctx;
  1314. Xint    h_act;
  1315. Xint    h_next;            /* next avail. message # in integer */
  1316. Xlong    xtable[1000];
  1317. Xlong    ytable[1000];
  1318. X
  1319. Xlong    d_pos;
  1320. Xlong    old_long_date;
  1321. Xlong    new_long_date;
  1322. Xlong    xmm;
  1323. Xlong    xdd;
  1324. Xlong    xyy;
  1325. X
  1326. X/*            end of variables used by bbscfile.c */
  1327. X
  1328. X            /* end of globals */
  1329. X
  1330. X/* end of program */
  1331. END_OF_FILE
  1332.   if test 4150 -ne `wc -c <'msgpack/packdef.h'`; then
  1333.     echo shar: \"'msgpack/packdef.h'\" unpacked with wrong size!
  1334.   fi
  1335.   # end of 'msgpack/packdef.h'
  1336. fi
  1337. if test -f 'msgpack/packmsga.c' -a "${1}" != "-c" ; then 
  1338.   echo shar: Will not clobber existing file \"'msgpack/packmsga.c'\"
  1339. else
  1340.   echo shar: Extracting \"'msgpack/packmsga.c'\" \(2115 characters\)
  1341.   sed "s/^X//" >'msgpack/packmsga.c' <<'END_OF_FILE'
  1342. X/*------------------------------------------------------------------------
  1343. X       Name: bbscarea.c
  1344. X   Comments: Display file areas and select one
  1345. X  ------------------------------------------------------------------------*/
  1346. X
  1347. X#include <stdio.h>
  1348. X#include <string.h>
  1349. X#include <ctype.h>
  1350. X#include "packdef.h"
  1351. X
  1352. X
  1353. Xchar            f_lines[99][81];
  1354. Xchar            foo[99];
  1355. Xint             dir_priv[99];
  1356. Xint             set_yet_m = FALSE;
  1357. Xint             user_priv = 32767;
  1358. X
  1359. X
  1360. Xint
  1361. X    change_msga(numx) int numx;
  1362. X{
  1363. X    FILE           *fpt, *fopen();
  1364. X    char           *fgets(), *getenv();
  1365. X    char            choice[94];
  1366. X    char            dir_priv_ascii[7];
  1367. X    char           *buf_ptr;
  1368. X    int             line_cnt, ret, i;
  1369. X    int             index_value, ptr;
  1370. X    int             length;
  1371. X
  1372. X
  1373. X    strcpy(buf128, MSGS);
  1374. X
  1375. X    if ((fpt = fopen(buf128, "r")) == NULL) {
  1376. X        printf("\n\rError Opening File Area List: Notify Sysop!\n\r");
  1377. X        return (-1);
  1378. X    }
  1379. X    line_cnt = 0;
  1380. X    while (fpt) {
  1381. X        if ((fgets(f_lines[line_cnt], 80, fpt)) == NULL) {
  1382. X            if (line_cnt == 0) {
  1383. X                printf("\n\rEOF Unexpected in Message Area List: Notify Sysop!\n\r");
  1384. X                return (-1);
  1385. X            }
  1386. X            break;    /* if not 1st line */
  1387. X        }        /* end of if ((fgets)) */
  1388. X        if (line_cnt > 0) {
  1389. X            length = strlen(f_lines[line_cnt]);
  1390. X            length -= 57;
  1391. X            substr(f_lines[line_cnt], dir_priv_ascii, 57, length);
  1392. X            dir_priv[line_cnt] = atoi(dir_priv_ascii);
  1393. X            if (dir_priv[line_cnt] > user_priv)
  1394. X                goto next_read;
  1395. X            strcpy(foo, f_lines[line_cnt]);
  1396. X            buf_ptr = foo;
  1397. X            buf_ptr += 56;
  1398. X        }
  1399. Xnext_read:
  1400. X        ++line_cnt;
  1401. X    }            /* end of while (fpt) */
  1402. X    fclose(fpt);
  1403. X
  1404. X    index_value = numx;
  1405. X    if (index_value > 0 && index_value < line_cnt) {
  1406. X        if (dir_priv[index_value] <= user_priv) {
  1407. X            parse_arg(f_lines[index_value]);
  1408. X            set_yet_m = TRUE;
  1409. X            return (1);
  1410. X        }
  1411. X    }
  1412. X    return (0);
  1413. X}
  1414. Xparse_arg(string)
  1415. X    char           *string;
  1416. X{
  1417. X
  1418. X    register char  *file_ptr;
  1419. X    register int    i;
  1420. X
  1421. X    strcpy(m_pathname, ORGPATH);
  1422. X    file_ptr = (m_pathname + strlen(m_pathname));
  1423. X
  1424. X    i = 0;
  1425. X    while (string[i] != ' ') {
  1426. X        *file_ptr = string[i];
  1427. X        ++file_ptr;
  1428. X        ++i;
  1429. X    }
  1430. X    *file_ptr = '/';
  1431. X    ++file_ptr;
  1432. X    *file_ptr = '\0';
  1433. X    printf("Packing %s\n", m_pathname);
  1434. X
  1435. X}
  1436. END_OF_FILE
  1437.   if test 2115 -ne `wc -c <'msgpack/packmsga.c'`; then
  1438.     echo shar: \"'msgpack/packmsga.c'\" unpacked with wrong size!
  1439.   fi
  1440.   # end of 'msgpack/packmsga.c'
  1441. fi
  1442. if test -f 'sealink/_HISTORY' -a "${1}" != "-c" ; then 
  1443.   echo shar: Will not clobber existing file \"'sealink/_HISTORY'\"
  1444. else
  1445.   echo shar: Extracting \"'sealink/_HISTORY'\" \(3649 characters\)
  1446.   sed "s/^X//" >'sealink/_HISTORY' <<'END_OF_FILE'
  1447. X/*****************************************************************************
  1448. X *    SEAlink - Sliding window file transfer protocol
  1449. X *
  1450. X *    @(#) sealink.c 2.9 89/03/02 
  1451. X *    UNIX SVR2 and BSD versions by Scott Reynolds
  1452. X *
  1453. X *    Based on:
  1454. X *    MS-DOS Version 1.20, created on 08/05/87 at 17:51:40
  1455. X *   (C)COPYRIGHT 1986,87 by System Enhancement Associates; ALL RIGHTS RESERVED
  1456. X *    By:  Thom Henderson
  1457. X *
  1458. X *    Description:
  1459. X *    This is the history of the SEAlink program from present back
  1460. X *    to the first working version.  Many thanks to Sandy Zelkovitz
  1461. X *    (alphacm!sandy) for his help in getting it to run under SCO XENIX/286
  1462. X *    and to the faculty at Northern Michigan University for allowing
  1463. X *    the use of their VAX lab to develop the BSD code.
  1464. X *
  1465. X ****************************************************************************/
  1466. X
  1467. X2.9 89/03/02 21:11:01 scott
  1468. XHandle case where temporary and specified files are on different filesystems
  1469. X
  1470. X2.8 88/10/22 03:40:15 scott
  1471. XAdd switch for CRC method (table or calculation); future-minded changes made
  1472. X
  1473. X2.7 88/08/04 11:19:45 scott
  1474. Xtake out #include <sys/timeb.h> -- it's useless
  1475. X
  1476. X2.6 88/07/11 19:49:54 scott
  1477. Xadded short block debug error message
  1478. X
  1479. X2.5 88/07/09 17:47:18 scott
  1480. Xremove -1 option, all writes go to fd 1 and all reads come from fd 0;
  1481. Xnap() used in com_getc() if NO_NAP is undefined (better XMODEM compatibility);
  1482. Xmktemp() is employed to get a guaranteed unique temporary filename;
  1483. Xa CRC lookup table is employed for better execution time
  1484. X
  1485. X2.4 88/03/30 11:44:28 scott
  1486. Xuse getopt() for options; clean it up a bit
  1487. X
  1488. X2.3 88/02/06 14:01:51 scott
  1489. XCorrect final fwrite() call -- pass it an integer rather than long!
  1490. X
  1491. X2.2 88/02/06 01:27:57 scott
  1492. Xadded block file output to rcvfile()
  1493. X
  1494. X2.1 88/02/04 19:40:22 scott
  1495. XUpdate version number to reflect BSD additions; put in uucp address
  1496. X
  1497. X1.23 88/02/04 19:26:41 scott
  1498. XAdded BSD UNIX calls, slicked it up a little bit
  1499. X
  1500. X1.22 87/10/07 01:56:17 scott
  1501. X"o" option added for disabling overdrive mode
  1502. X
  1503. X1.21 87/10/05 01:37:18 scott
  1504. XBased on MS-DOS ver 1.20; ACKless mode added
  1505. X
  1506. X1.20 87/10/02 09:17:18 scott
  1507. Xmemset() call in sendblk() fixed
  1508. X
  1509. X1.19 87/09/30 00:12:59 scott
  1510. XNAKEOT is defined now, it really has purpose.
  1511. X
  1512. X1.18 87/09/23 00:03:15 scott
  1513. Xreceiver gets a between-file delay too
  1514. X
  1515. X1.17 87/09/20 20:37:33 scott
  1516. Xmore receiver filename debugging
  1517. X
  1518. X1.16 87/09/20 20:02:59 scott
  1519. Xfixed receive when no filename given
  1520. X
  1521. X1.15 87/09/20 19:14:22 scott
  1522. Xadded check for writable file when receiving and better abort check
  1523. X
  1524. X1.14 87/09/17 23:24:48 scott
  1525. Xdelay added in main's xmtfile() loop
  1526. X
  1527. X1.13 87/09/17 00:27:02 scott
  1528. Xsendabort() flushes output before sending abort sequence
  1529. X
  1530. X1.12 87/09/16 12:47:04 scott
  1531. Xminor cosmetic changes...
  1532. X
  1533. X1.11 87/09/16 00:10:49 scott
  1534. Xcleaned up generally using lint(1)
  1535. X
  1536. X1.10 87/09/15 23:31:28 scott
  1537. Xsendabort() uses ^X; memset(), final ioctl() calls fixed;
  1538. XSYSV replaces IBMXENIX and UNIX flags
  1539. X
  1540. X1.9 87/09/15 12:37:46 scott
  1541. Xexpanded to support full pathnames, portability increased
  1542. X
  1543. X1.8 87/09/13 12:51:38 scott
  1544. Xfilename conversion handled correctly; more EOT experimenting
  1545. X
  1546. X1.7 87/09/13 03:13:58 scott
  1547. Xendrcv in rcvfile(): forgot EOT message is for debug only
  1548. X
  1549. X1.6 87/09/13 02:43:47 scott
  1550. Xremove EOT NAK from receiver!  Useless, screws it up...
  1551. X
  1552. X1.5 87/09/13 01:26:17 scott
  1553. XACKing EOF didn't work.  NAK again, back to original...
  1554. X
  1555. X1.4 87/09/12 01:50:10 scott
  1556. Xendrcv: NAK of EOT doesn't work so hot.  Try ACKing it
  1557. X
  1558. X1.3 87/09/12 00:45:23 scott
  1559. Xcom_getc() modified for straight Sys V calls, ackchk() reflects this
  1560. X
  1561. X1.2 87/09/04 20:57:12 scott
  1562. XSCO/IBM differences eliminated; code cleaned up a bit
  1563. X
  1564. X1.1 87/09/02 23:31:14 scott
  1565. Xdate and time created 87/09/02 23:31:14 by scott
  1566. X
  1567. END_OF_FILE
  1568.   if test 3649 -ne `wc -c <'sealink/_HISTORY'`; then
  1569.     echo shar: \"'sealink/_HISTORY'\" unpacked with wrong size!
  1570.   fi
  1571.   # end of 'sealink/_HISTORY'
  1572. fi
  1573. if test -f 'sysop' -a "${1}" != "-c" ; then 
  1574.   echo shar: Will not clobber existing file \"'sysop'\"
  1575. else
  1576.   echo shar: Extracting \"'sysop'\" \(2225 characters\)
  1577.   sed "s/^X//" >'sysop' <<'END_OF_FILE'
  1578. X:
  1579. X#sysop
  1580. X#    This script will assist the sysop in performing his chores in
  1581. X#    administrating the XBBS.
  1582. X#    Copyright April 23, 1987  Dighera Data Services
  1583. X#
  1584. X
  1585. XORGDIR=/usr/sandy/bbs        # Directory where the XBBS log files reside
  1586. XHOMDIR=/usr/bbs            # Home Directory of bbs account w/.configbbs
  1587. X
  1588. Xecho "\014"
  1589. Xcat << EOT
  1590. X
  1591. X
  1592. X
  1593. X        Enter Your Choice --
  1594. X
  1595. X
  1596. X    B.  Login to BBS
  1597. X    1.  Who's on port 1A?
  1598. X    2.  Who's on port 2A?
  1599. X    A.  Last Questionnaire Answer
  1600. X    T.  Toggle user monitoring (1A or 2A)
  1601. X    S.  Grant user Sysop-access for this session
  1602. X    C.  Chat with user (tty1A or tty2A)
  1603. X    D.  Dump user (1A or 2A)
  1604. X    E.  Edit the userpriv.bbs file to alter users privleges
  1605. X    P.  Pack the message files
  1606. X    U.  Allign the Users file (Delimits each record in users.bbs with NL)
  1607. X    F.  Fix users (Converts old 4 charcter passwords to new format)
  1608. X    Q.  Quit to UNIX
  1609. X
  1610. X?
  1611. XEOT
  1612. Xread CHOICE
  1613. Xcase $CHOICE in
  1614. X    [bB]*) DIR=`pwd`; export DIR;cd $HOMDIR; su bbs; cd $DIR;;
  1615. X    [12]*) if echo $CHOICE | grep '^1'; then CHOICE=1;else CHOICE=2; fi;
  1616. X        finger | awk '(NR == 1 || /^bbs/) {print}'; echo;
  1617. X        tail $ORGDIR/callers.bbs${CHOICE}A;;
  1618. X    [aA]*) ls -l $ORGDIR/answer.bbs && (echo; tail -21 $ORGDIR/answer.bbs);;
  1619. X    [uU]*) $ORGDIR/allign/allign;;
  1620. X    [fF]*) echo "Not yet implemented";;
  1621. X    [tT]*) who | awk '/^bbs/ {print}'; echo "\nWhich port (1A or 2A)? \c";
  1622. X        read CHOICE; export CHOICE;
  1623. X        su bbs -c "kill -16 `cat /tmp/pid$CHOICE` && echo 'BBS user on port '$CHOICE' successfully toggled.'";;
  1624. X    [sS]*) who | awk '/^bbs/ {print}'; echo "\nWhich port? \c";read CHOICE;
  1625. X        case $CHOICE in
  1626. X            *1A) PID=`head /tmp/pid1A`; kill -17 $PID;;
  1627. X            *2A) PID=`head /tmp/pid2A`; kill -17 $PID;;
  1628. X            *) echo "\nNo such port";;
  1629. X        esac;;
  1630. X    [cC]*) who | awk '/^bbs/ {print}'; echo "\nWhich port? \c";read CHOICE;
  1631. X        case $CHOICE in
  1632. X            *1A) chatbbs tty1A;;
  1633. X            *2A) chatbbs tty2A;;
  1634. X            *) echo "\nNo such port";;
  1635. X        esac;;
  1636. X    [dD]*) echo "\n\nWhich port? (1A or 2A) \c"; read CHOICE;
  1637. X        if test $CHOICE = ""; then exec $0; fi;
  1638. X#        su bbs -c "stty 0 </dev/tty${CHOICE} || echo \nError dumping user on tty${CHOICE}";;
  1639. X        su bbs -c "kill -9 `cat /tmp/pid${CHOICE}`";;
  1640. X    [eE]*) vi userpriv.bbs;;
  1641. X    [pP]*) $ORGDIR/msgpack/msgpack;;
  1642. X    [qQ]*) echo "\014"; exit;;
  1643. X    *) exec $0;;
  1644. Xesac
  1645. Xecho "\n  Enter to Continue ... \c"
  1646. Xread PAUSE
  1647. Xexec $0
  1648. END_OF_FILE
  1649.   if test 2225 -ne `wc -c <'sysop'`; then
  1650.     echo shar: \"'sysop'\" unpacked with wrong size!
  1651.   fi
  1652.   # end of 'sysop'
  1653. fi
  1654. if test -f 'today/datetx.c' -a "${1}" != "-c" ; then 
  1655.   echo shar: Will not clobber existing file \"'today/datetx.c'\"
  1656. else
  1657.   echo shar: Extracting \"'today/datetx.c'\" \(2776 characters\)
  1658.   sed "s/^X//" >'today/datetx.c' <<'END_OF_FILE'
  1659. X/*
  1660. X *              Convert Date to Readable Format.
  1661. X *
  1662. X * Synopsis:
  1663. X *
  1664. X *      char    *datetxt(buffer, year, month, day);
  1665. X *      char    *buffer;        -- Output string goes here
  1666. X *      int     year;           -- Year,        1979 = 1979
  1667. X *      int     month;          -- Month,       January = 1
  1668. X *      int     day;            -- Day,         1 = 1
  1669. X *
  1670. X * The readable date will be written into the outpub buffer, terminated by
  1671. X * a null byte.  datetxt returns a pointer to the null byte.
  1672. X *
  1673. X * External routines called:
  1674. X *
  1675. X *      nbrtxt          (Number to ascii conversion)
  1676. X *      copyst          (String copy routine)
  1677. X */
  1678. X
  1679. Xextern  char    *nbrtxt();
  1680. Xextern  char    *copyst();
  1681. Xextern  char    *datetxt();
  1682. X
  1683. Xstatic char *daynames[] = {
  1684. X    "Sunday",                       /* Sunday is day zero           */
  1685. X    "Monday",
  1686. X    "Tuesday",
  1687. X    "Wednesday",
  1688. X    "Thursday",
  1689. X    "Friday",
  1690. X    "Saturday",
  1691. X};
  1692. X
  1693. Xstatic char *monthnames[] = {
  1694. X    "?Nomember?",                   /* Illegal month                */
  1695. X    "January",
  1696. X    "February",
  1697. X    "March",
  1698. X    "April",
  1699. X    "May",
  1700. X    "June",
  1701. X    "July",
  1702. X    "August",
  1703. X    "September",
  1704. X    "October",
  1705. X    "November",
  1706. X    "December",
  1707. X};
  1708. X
  1709. Xchar *datetxt(buffer, year, month, day)
  1710. Xchar    *buffer;                        /* Output goes here             */
  1711. Xint     year;                           /* Year, 1979 = 1979            */
  1712. Xint     month;                          /* Month of year, Jan = 1       */
  1713. Xint     day;                            /* Day in the month 1 = 1       */
  1714. X/*
  1715. X * Output the date in readable format:
  1716. X *      Tuesday, the third of October
  1717. X */
  1718. X{
  1719. X    register char   *op;                    /* Output pointer       */
  1720. X
  1721. X    op = buffer;                            /* Setup output pointer */
  1722. X    op = copyst(op, daynames[dayofweek(year, month, day)]);
  1723. X    op = copyst(op, ", the ");
  1724. X    op = nbrtxt(op, day, 1);
  1725. X    op = copyst(op, " day of ");
  1726. X    op = copyst(op, monthnames[(month < 0 || month > 12) ? 0 : month]);
  1727. X    op = copyst(op, ", ");
  1728. X    if (year < 1000 || year >= 2000)
  1729. X        return(nbrtxt(op, year, 0));
  1730. X    else {
  1731. X        op = nbrtxt(op, year/100, 0);
  1732. X        op = copyst(op, " ");
  1733. X        if ((year = year % 100) == 0)
  1734. X            return(copyst(op, "hundred"));
  1735. X        else
  1736. X            return(nbrtxt(op, year, 0));
  1737. X    }
  1738. X}
  1739. X
  1740. Xdayofweek(year, month, day)
  1741. Xint     year;                                   /* Year, 1978 = 1978    */
  1742. Xint     month;                                  /* Month, January = 1   */
  1743. Xint     day;                                    /* Day of month, 1 = 1  */
  1744. X/*
  1745. X * Return the day of the week on which this date falls: Sunday = 0.
  1746. X * Note, this routine is valid only for the Gregorian calender.
  1747. X */
  1748. X{
  1749. X    register int yearfactor;
  1750. X
  1751. X    yearfactor = year + (month - 14)/12;
  1752. X    return (( (13 * (month + 10 - (month + 10)/13*12) - 1)/5
  1753. X        + day + 77 + 5 * (yearfactor % 100)/4
  1754. X        + yearfactor / 400
  1755. X        - yearfactor / 100 * 2) % 7);
  1756. X}
  1757. END_OF_FILE
  1758.   if test 2776 -ne `wc -c <'today/datetx.c'`; then
  1759.     echo shar: \"'today/datetx.c'\" unpacked with wrong size!
  1760.   fi
  1761.   # end of 'today/datetx.c'
  1762. fi
  1763. if test -f 'today/moontx.c' -a "${1}" != "-c" ; then 
  1764.   echo shar: Will not clobber existing file \"'today/moontx.c'\"
  1765. else
  1766.   echo shar: Extracting \"'today/moontx.c'\" \(3696 characters\)
  1767.   sed "s/^X//" >'today/moontx.c' <<'END_OF_FILE'
  1768. X/****************************************************************************
  1769. X moon.c
  1770. X
  1771. X     Phase of the Moon. Calculates the current phase of the moon.
  1772. X     Based on routines from `Practical Astronomy with Your Calculator',
  1773. X        by Duffett-Smith.
  1774. X     Comments give the section from the book that particular piece
  1775. X        of code was adapted from.
  1776. X
  1777. X     -- Keith E. Brandt  VIII 1984
  1778. X
  1779. X ****************************************************************************/
  1780. X
  1781. X# include    "moontx.h"
  1782. X
  1783. Xstruct tm *gmtime();
  1784. X
  1785. Xmoontxt(buf)
  1786. Xchar    buf[];
  1787. X{
  1788. X    char *cp=buf;
  1789. X
  1790. Xdouble dtor();
  1791. Xdouble potm();
  1792. X
  1793. Xlong *lo = (long *) calloc (1, sizeof(long)); /* used by time calls */
  1794. Xstruct tm *pt; /* ptr to time structure */
  1795. X
  1796. Xdouble days;   /* days since EPOCH */
  1797. Xdouble phase;  /* percent of lunar surface illuminated */
  1798. Xdouble phase2; /* percent of lunar surface illuminated one day later */
  1799. Xint i = EPOCH;
  1800. X
  1801. Xtime (lo);  /* get system time */
  1802. Xpt = gmtime(lo);  /* get ptr to gmt time struct */
  1803. Xcfree(lo);
  1804. X
  1805. X/* calculate days since EPOCH */
  1806. Xdays = (pt->tm_yday +1.0) + ((pt->tm_hour + (pt->tm_min / 60.0)
  1807. X       + (pt->tm_sec / 3600.0)) / 24.0);
  1808. Xwhile (i < pt->tm_year + 1900)
  1809. X   days = days + 365 + ly(i++);
  1810. X
  1811. Xphase = potm(days);
  1812. Xsprintf(cp,"The Moon is ");
  1813. Xcp += strlen(buf);
  1814. Xif ((int)(phase + .5) == 100) {
  1815. X   sprintf(cp,"Full");
  1816. X   }
  1817. Xelse if ((int)(phase + 0.5) == 0) 
  1818. X   sprintf(cp,"New");
  1819. Xelse if ((int)(phase + 0.5) == 50)  {
  1820. X   phase2 = potm(++days);
  1821. X   if (phase2 > phase)
  1822. X      sprintf(cp,"at the First Quarter");
  1823. X   else 
  1824. X      sprintf(cp,"at the Last Quarter");
  1825. X   }
  1826. Xelse if ((int)(phase + 0.5) > 50) {
  1827. X   phase2 = potm(++days);
  1828. X   if (phase2 > phase)
  1829. X      sprintf(cp,"Waxing ");
  1830. X   else 
  1831. X      sprintf(cp,"Waning ");
  1832. X   cp = buf + strlen(buf);
  1833. X   sprintf(cp,"Gibbous (%1.0f%% of Full)", phase);
  1834. X   }
  1835. Xelse if ((int)(phase + 0.5) < 50) {
  1836. X   phase2 = potm(++days);
  1837. X   if (phase2 > phase)
  1838. X      sprintf(cp,"Waxing ");
  1839. X   else
  1840. X      sprintf(cp,"Waning ");
  1841. X   cp = buf + strlen(buf);
  1842. X   sprintf(cp,"Crescent (%1.0f%% of Full)", phase);
  1843. X   }
  1844. X}
  1845. X
  1846. Xdouble potm(days)
  1847. Xdouble days;
  1848. X{
  1849. Xdouble N;
  1850. Xdouble Msol;
  1851. Xdouble Ec;
  1852. Xdouble LambdaSol;
  1853. Xdouble l;
  1854. Xdouble Mm;
  1855. Xdouble Ev;
  1856. Xdouble Ac;
  1857. Xdouble A3;
  1858. Xdouble Mmprime;
  1859. Xdouble A4;
  1860. Xdouble lprime;
  1861. Xdouble V;
  1862. Xdouble ldprime;
  1863. Xdouble D;
  1864. Xdouble Nm;
  1865. X
  1866. XN = 360 * days / 365.2422;  /* sec 42 #3 */
  1867. Xadj360(&N);
  1868. X
  1869. XMsol = N + EPSILONg - RHOg; /* sec 42 #4 */
  1870. Xadj360(&Msol);
  1871. X
  1872. XEc = 360 / PI * e * sin(dtor(Msol)); /* sec 42 #5 */
  1873. X
  1874. XLambdaSol = N + Ec + EPSILONg;       /* sec 42 #6 */
  1875. Xadj360(&LambdaSol);
  1876. X
  1877. Xl = 13.1763966 * days + lzero;       /* sec 61 #4 */
  1878. Xadj360(&l);
  1879. X
  1880. XMm = l - (0.1114041 * days) - Pzero; /* sec 61 #5 */
  1881. Xadj360(&Mm);
  1882. X
  1883. XNm = Nzero - (0.0529539 * days);     /* sec 61 #6 */
  1884. Xadj360(&Nm);
  1885. X
  1886. XEv = 1.2739 * sin(dtor(2*(l - LambdaSol) - Mm)); /* sec 61 #7 */
  1887. X
  1888. XAc = 0.1858 * sin(dtor(Msol));       /* sec 61 #8 */
  1889. XA3 = 0.37 * sin(dtor(Msol));
  1890. X
  1891. XMmprime = Mm + Ev - Ac - A3;         /* sec 61 #9 */
  1892. X
  1893. XEc = 6.2886 * sin(dtor(Mmprime));    /* sec 61 #10 */
  1894. X
  1895. XA4 = 0.214 * sin(dtor(2 * Mmprime)); /* sec 61 #11 */
  1896. X
  1897. Xlprime = l + Ev + Ec - Ac + A4;      /* sec 61 #12 */
  1898. X
  1899. XV = 0.6583 * sin(dtor(2 * (lprime - LambdaSol))); /* sec 61 #13 */
  1900. X
  1901. Xldprime = lprime + V;                /* sec 61 #14 */
  1902. X
  1903. XD = ldprime - LambdaSol;             /* sec 63 #2 */
  1904. X
  1905. Xreturn (50 * (1 - cos(dtor(D))));    /* sec 63 #3 */
  1906. X}
  1907. X
  1908. Xly(yr)
  1909. Xint yr;
  1910. X{
  1911. X/* returns 1 if leapyear, 0 otherwise */
  1912. Xreturn (yr % 4 == 0 && yr % 100 != 0 || yr % 400 == 0);
  1913. X}
  1914. X
  1915. Xdouble dtor(deg)
  1916. Xdouble deg;
  1917. X{
  1918. X/* convert degrees to radians */
  1919. Xreturn (deg * PI / 180.0);
  1920. X}
  1921. X
  1922. Xadj360(deg)
  1923. Xdouble *deg;
  1924. X{
  1925. X/* adjust value so 0 <= deg <= 360 */
  1926. Xdo if (*deg < 0.0)
  1927. X   *deg += 360.0;
  1928. Xelse if (*deg > 360.0)
  1929. X   *deg -= 360.0;
  1930. Xwhile (*deg < 0.0 || *deg > 360.0);
  1931. X}
  1932. END_OF_FILE
  1933.   if test 3696 -ne `wc -c <'today/moontx.c'`; then
  1934.     echo shar: \"'today/moontx.c'\" unpacked with wrong size!
  1935.   fi
  1936.   # end of 'today/moontx.c'
  1937. fi
  1938. if test -f 'today/nbrtxt.c' -a "${1}" != "-c" ; then 
  1939.   echo shar: Will not clobber existing file \"'today/nbrtxt.c'\"
  1940. else
  1941.   echo shar: Extracting \"'today/nbrtxt.c'\" \(3505 characters\)
  1942.   sed "s/^X//" >'today/nbrtxt.c' <<'END_OF_FILE'
  1943. X/*
  1944. X *              Integer to Readable ASCII Conversion Routine.
  1945. X *
  1946. X * Synopsis:
  1947. X *
  1948. X *      char *nbrtxt(buffer, value, ordinal)
  1949. X *      char    *buffer;        -- The output buffer
  1950. X *      int     value;          -- The number to output
  1951. X *      int     ordinal;        -- Non-zero for ordinal number
  1952. X *
  1953. X *
  1954. X * The value is converted to a readable number and put in the output
  1955. X * buffer (null-terminated).  A pointer to the first free location
  1956. X * in the buffer (i.e., the null) is returned.  The ordinal
  1957. X * flag distinguishes between cardinal and ordinal numbers:
  1958. X *
  1959. X *      nbrtxt(buffer, 1, 0) = "one"
  1960. X *      nbrtxt(buffer, 1, 1) = "first"
  1961. X *
  1962. X * The longest output string is:
  1963. X *
  1964. X *      Twenty-seven thousand, three hundred and seventy-seventh.
  1965. X *
  1966. X *
  1967. X *
  1968. X *              Copy a String
  1969. X *
  1970. X * Synopsis
  1971. X *
  1972. X *      char *copyst(out, in)
  1973. X *      char    *out;           -- The output string
  1974. X *      char    *in;            -- The input string
  1975. X *
  1976. X * The input string is copied into the output string.  Copyst returns
  1977. X * a pointer to the null trailer.
  1978. X *
  1979. X */
  1980. X
  1981. Xextern char     *nbrtxt();
  1982. Xextern char     *copyst();
  1983. X
  1984. Xstatic char *cardinal[] = {
  1985. X    "zero",
  1986. X    "one",
  1987. X    "two",
  1988. X    "three",
  1989. X    "four",
  1990. X    "five",
  1991. X    "six",
  1992. X    "seven",
  1993. X    "eight",
  1994. X    "nine",
  1995. X    "ten",
  1996. X    "eleven",
  1997. X    "twelve",
  1998. X    "thirteen",
  1999. X    "fourteen",
  2000. X    "fifteen",
  2001. X    "sixteen",
  2002. X    "seventeen",
  2003. X    "eighteen",
  2004. X    "nineteen"
  2005. X};
  2006. X
  2007. Xstatic char *ordinal[] = {
  2008. X    "zeroth",
  2009. X    "first",
  2010. X    "second",
  2011. X    "third",
  2012. X    "fourth",
  2013. X    "fifth",
  2014. X    "sixth",
  2015. X    "seventh",
  2016. X    "eighth",
  2017. X    "ninth",
  2018. X    "tenth",
  2019. X    "eleventh",
  2020. X    "twelfth"
  2021. X};
  2022. X
  2023. Xstatic char *twenties[] = {
  2024. X    "twen",
  2025. X    "thir",
  2026. X    "for",
  2027. X    "fif",
  2028. X    "six",
  2029. X    "seven",
  2030. X    "eigh",
  2031. X    "nine"
  2032. X};
  2033. X
  2034. Xchar *nbrtxt(buffer, datum, ordflag)
  2035. Xchar    *buffer;                        /* Output string buffer         */
  2036. Xint     datum;                          /* what to translate            */
  2037. Xint     ordflag;                        /* 0 if cardinal, 1 if ordinal  */
  2038. X/*
  2039. X * Translate a number to a readable text string, punctuation and all.
  2040. X * If ordflag is non-zero, ordinal numbers ("first, second") will
  2041. X * be generated, rather than cardinal ("one, two").
  2042. X * Note: nbrtxt() is recursive.
  2043. X */
  2044. X{
  2045. X
  2046. X    register int value;
  2047. X    register char   *op;
  2048. X
  2049. X    op = buffer;
  2050. X    value = datum;
  2051. X    if (value < 0) {
  2052. X        op = copyst(op, "minus ");
  2053. X        value = (-value);
  2054. X        if (value < 0) {                /* Hack -32768          */
  2055. X            op = copyst(op, twenties[1]);
  2056. X            value = 2768;
  2057. X        }
  2058. X    }
  2059. X    if (value >= 1000) {
  2060. X        op = nbrtxt(op, value/1000, 0);
  2061. X        op = copyst(op, " thousand");
  2062. X        value = value % 1000;
  2063. X        if (value == 0) goto exit;
  2064. X        op = copyst(op, (value >= 100) ? ", " : " and ");
  2065. X    }
  2066. X    if (value >= 100) {
  2067. X        op = copyst(op, cardinal[value/100]);
  2068. X        op = copyst(op, " hundred");
  2069. X        value = value % 100;
  2070. X        if (value == 0) goto exit;
  2071. X        op = copyst(op, " ");
  2072. X    }
  2073. X    if (value >= 20) {
  2074. X        if (value == 90 && ordflag)
  2075. X            return(copyst(op, "nintieth"));
  2076. X        op = copyst(op, twenties[(value-20) / 10]);
  2077. X        value = value % 10;
  2078. X        if (value == 0) {
  2079. X            return(copyst(op, (ordflag) ? "tieth" : "ty"));
  2080. X        }
  2081. X        op = copyst(op, "ty-");
  2082. X    }
  2083. X    if (value <= 12) {
  2084. X        return(copyst(op,
  2085. X            (ordflag) ? ordinal[value] : cardinal[value]));
  2086. X    }
  2087. X    op = copyst(op, cardinal[value]);       /* fourteen, fourteenth */
  2088. X    /*
  2089. X     * Here on 100, 14000, etc.
  2090. X     */
  2091. Xexit:   if (ordflag) op = copyst(op, "th");
  2092. X    return(op);
  2093. X}
  2094. X
  2095. Xchar *
  2096. Xcopyst(buffer, string)
  2097. Xchar    *buffer;
  2098. Xchar    *string;
  2099. X/*
  2100. X * Copy a string into buffer.  Return the free pointer.
  2101. X */
  2102. X{
  2103. X    register char   *ip;
  2104. X    register char   *op;
  2105. X
  2106. X    ip = string;
  2107. X    op = buffer;
  2108. X
  2109. X    while ((*op = *ip++)) op++;
  2110. X    return (op);
  2111. X}
  2112. END_OF_FILE
  2113.   if test 3505 -ne `wc -c <'today/nbrtxt.c'`; then
  2114.     echo shar: \"'today/nbrtxt.c'\" unpacked with wrong size!
  2115.   fi
  2116.   # end of 'today/nbrtxt.c'
  2117. fi
  2118. if test -f 'welcome.bbs' -a "${1}" != "-c" ; then 
  2119.   echo shar: Will not clobber existing file \"'welcome.bbs'\"
  2120. else
  2121.   echo shar: Extracting \"'welcome.bbs'\" \(3174 characters\)
  2122.   sed "s/^X//" >'welcome.bbs' <<'END_OF_FILE'
  2123. X
  2124. X
  2125. X              u      u     n      n     iiiiiii     x      x
  2126. X              u      u     nn     n        i         x    x
  2127. X              u      u     n n    n        i          x  x
  2128. X              u      u     n  n   n        i           xx 
  2129. X              u      u     n   n  n        i          x  x
  2130. X              u      u     n     nn        i         x    x
  2131. X              uuuuuuuu     n      n     iiiiiii     x      x  tm
  2132. X
  2133. X
  2134. X
  2135. X         x      x    eeeeeee     n      n     iiiiiii     x      x
  2136. X          x    x     e           nn     n        i         x    x
  2137. X           x  x      e           n n    n        i          x  x
  2138. X            xx       eeeeeee     n  n   n        i           xx
  2139. X           x  x      e           n    n n        i          x  x
  2140. X          x    x     e           n     nn        i         x    x
  2141. X         x      x    eeeeeee     n      n     iiiiiii     x      x  tm
  2142. X
  2143. X
  2144. X
  2145. X
  2146. X
  2147. X       ***********************************************************
  2148. X       *                                                         *
  2149. X       *        x      x    bbbbbb      bbbbbb       ssssss      *
  2150. X       *         x    x     b      b    b      b    s            *
  2151. X       *          x  x      b      b    b      b    s            *
  2152. X       *           xx       bbbbbb      bbbbbb        sss        *
  2153. X       *          x  x      b      b    b      b           s     *
  2154. X       *         x    x     b      b    b      b           s     *
  2155. X       *        x      x    bbbbbb      bbbbbb      sssssss      *
  2156. X       *                                                         *
  2157. X       *                                                         *
  2158. X       *       <----------     MULTI-USER BBS    ------->        *
  2159. X       *              XBBS ( Xenix BBS )  Release 7.200          *
  2160. X       *                                                         *
  2161. X       *                       ( Aug 15, 1992 )                  *
  2162. X       *                                                         *
  2163. X       ***********************************************************
  2164. X
  2165. X
  2166. X
  2167. X           ****************************************************
  2168. X           *         Welcome to SCO XENIX SysV 2.3.2          *
  2169. X           *             running on a 20Mhz 386-AT            *
  2170. X       *               Brought to you by SJZ              *
  2171. X           *            24 hrs a day / 7 days a wk            *
  2172. X           *                714-821-9671 - Data               * 
  2173. X           *                714-821-9670 - Voice              *
  2174. X           ****************************************************
  2175. X
  2176. XThe uucp system name is:  alphacm
  2177. XThe uucp and call in data lines accept calls at 19200|9600(PEP)/2400/1200 baud 
  2178. X< no 300 baud >. A break sequence is required to switch between the baud rates. 
  2179. X
  2180. XThe uucp mail path is:        uunet!{zardoz|pride38}!alphacm!sandy 
  2181. XThe internet path is:        zardoz.uucp!alphacm!sandy@ics.uci.edu
  2182. X
  2183. XThe following limits are in effect:    Max Kbytes: 500 +/- bytes (daily)
  2184. XLogin time: 5 minutes   Usage time: 90 minutes +/- dt   Response time: 3 minutes
  2185. X
  2186. X        *******    YOU MUST BE AT 8N1 TO LOG INTO THE BBS!   *******
  2187. X       The source code for this software is available for downloading.
  2188. X
  2189. END_OF_FILE
  2190.   if test 3174 -ne `wc -c <'welcome.bbs'`; then
  2191.     echo shar: \"'welcome.bbs'\" unpacked with wrong size!
  2192.   fi
  2193.   # end of 'welcome.bbs'
  2194. fi
  2195. echo shar: End of archive 9 \(of 11\).
  2196. cp /dev/null ark9isdone
  2197. MISSING=""
  2198. for I in 1 2 3 4 5 6 7 8 9 10 11 ; do
  2199.     if test ! -f ark${I}isdone ; then
  2200.     MISSING="${MISSING} ${I}"
  2201.     fi
  2202. done
  2203. if test "${MISSING}" = "" ; then
  2204.     echo You have unpacked all 11 archives.
  2205.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2206. else
  2207.     echo You still must unpack the following archives:
  2208.     echo "        " ${MISSING}
  2209. fi
  2210. exit 0
  2211. exit 0 # Just in case...
  2212.