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