jay@gdx.UUCP (Jay A. Snyder) (01/17/91)
Submitted-by: root@gdx
Archive-name: gdxbbs/part04
---- Cut Here and unpack ----
#!/bin/sh
# this is gdxbbs.04 (part 4 of gdxbbs)
# do not concatenate these parts, unpack them in order with /bin/sh
# file structs.h continued
#
if touch 2>&1 | fgrep '[-amc]' > /dev/null
then TOUCH=touch
else TOUCH=true
fi
if test ! -r @shar_seq_.tmp; then
echo "Please unpack part 1 first!"
exit 1
fi
(read Scheck
if test "$Scheck" != 4; then
echo "Please unpack part $Scheck next!"
exit 1
else
exit 0
fi
) < @shar_seq_.tmp || exit 1
echo "x - Continuing file structs.h"
sed 's/^X//' << 'SHAR_EOF' >> structs.h &&
X };
Xtypedef struct COMMAND_STRUCT COMMAND;
Xtypedef COMMAND *cmd_ptr;
X
Xstruct USER_STRUCT {
X char name[20];
X struct USER_STRUCT *next;
X };
X
Xtypedef struct USER_STRUCT USER;
X
Xstruct USERREC_STRUCT {
X char name[20];
X PRIV priv;
X char passwd[15];
X struct USERREC_STRUCT *next;
X };
X
X
Xtypedef struct USERREC_STRUCT USERREC;
X
Xstruct utmp_entry {
X char name[20];
X char tty[12];
X char t[28];
X struct utmp_entry *next;
X };
X
Xtypedef struct utmp_entry utmpentry;
X
Xstruct area_struct {
X char name[21]; /* name of message base or file area */
X char desc[61]; /* description */
X char owner[21];/* user name of owner N/A for file areas */
X char file[81]; /* file where message base or directory is stored */
X char dir[81]; /* default pathname for files (if not spec, use file above */
X char udir[81]; /* default upload pathname (if not spec, use default upload path */
X char group[21];/* name of group */
X PRIV priv; /* privledge bits */
X time_t tm; /* date/time of last read message */
X struct area_struct *next;
X};
X
Xtypedef struct area_struct AREA;
SHAR_EOF
echo "File structs.h is complete" &&
$TOUCH -am 1230225290 structs.h &&
chmod 0600 structs.h ||
echo "restore of structs.h failed"
set `wc -c structs.h`;Wc_c=$1
if test "$Wc_c" != "1576"; then
echo original size 1576, current size $Wc_c
fi
# ============= Makefile ==============
echo "x - extracting Makefile (Text)"
sed 's/^X//' << 'SHAR_EOF' > Makefile &&
X# GDXBBS Makefile
X#
X# GDXBBS V1.0 (beta)
X# (C) 1990
X# Jay A. Snyder
X#
XSHELL=/bin/sh
X# flags
X# note: I have only ported this to AT&T SYSV R.3.1 and SCO Xenix SysV
X# please send diffs required to make it work under BSD 4.[23], V7
X# or any other flavour of unix (or other OS). Note that most of the
X# things require modification will be the termio stuff
X# uncomment the following if using SCO Xenix Sys V
X# uncomment one of the following lines
XFLAVOR=-DF_SYSV -DSCO -DXENIX
X#FLAVOR=-DF_SYSV
X#FLAVOR=-DF_BSD
X# uncomment the following line if your compiler conforms on ANSI
X#ANSI=-DANSI
X
X# uncomment the following line if you have stdlib.h:
XSTDLIB=-DHAVE_STDLIB
X
X# uncomment the following lines for using GNUS's GCC
X#CC=gcc
X#CFLAGS = -I/usr/local/lib/gcc-include -O \
X $(FLAVOR) $(ANSI) -traditional
X#LFLAGS = -O
X
XCFLAGS = -g -M3e -K -DDEBUG $(FLAVOR) $(ANSI) $(STDLIB)
XLFLAGS = -g
X#CFLAGS = -c -O -M3e $(FLAVOR) $(ANSI)
X#LFLAGS = -s
X
X# termcap library
XTERMLIB = -ltinfo -ltermlib
X# TERMLIB = -ltermlib
X
X# curses libaray /* curses not currently used */
X# CURSES = -lcurses
X
X# other libs
XLIBS = -lx
X
XCSOURCES = main.c menu.c misc.c error.c cle.c parse.c funcs.c chat.c spawn.c\
X users.c bulletin.c config.c file.c who.c quest.c script.c\
X mail.c packmsg.c atout.c term.c env.c areas.c sig.c priv.c
X# forkkbd.c
X
XHSOURCES = config.h defs2.h inc.h termdefs.h defs.h global.h structs.h
X
XSOURCES = $(CSOURCES) $(HSOURCES)
X
XOBJ = main.o menu.o misc.o error.o cle.o parse.o funcs.o chat.o spawn.o\
X users.o bulletin.o config.o file.o who.o quest.o script.o\
X mail.o packmsg.o atout.o term.o env.o areas.o sig.o priv.o
X# forkkbd.o
X
X
Xgdxbbs: $(OBJ)
X $(CC) $(LFLAGS) -o gdxbbs $(OBJ) $(TERMLIB) $(CURSES) $(LIBS)
X chown gdx gdxbbs
X chgrp gdx gdxbbs
X chmod +s gdxbbs
X
Xmain: main.c global.h
X
X
XPACKSRC = packmain.c
XPACKOBJ = packmain.o
X
Xpackmsg: $(PACKOBJ) packmsg.c
X $(CC) $(CFLAGS) packmain.c
X $(CC) $(LFLAGS) -o packmsg $(PACKOBJ) $(LIBS)
X chown bbs packmsg
X chgrp bbs packmsg
X chmod +s packmsg
X
Xpackmain.o: packmain.c packmsg.c
X $(CC) $(CFLAGS) packmain.c
X
Xdist:; make tar
X make lzh
X make bintar
X make binlzh
X
Xtar:; rm -f *~ callers.bbs utmp.bbs gdxbbs.tar.Z gdxbbs.tar
X tar fcv gdxbbs.tar REL* *.DOC .emacsmail $(CSOURCES) $(HSOURCES) \
X Makefile *.bbs sysop sysop.cfg *.mcl *.src *.help \
X $(PACKSRC)
X compress gdxbbs.tar
X
Xlzh:; rm -f *~ callers.bbs utmp.bbs gdxbbs.tar.Z gdxbbs.tar gdxbbs.lzh
X lharc a gdxbbs.lhz REL* *.DOC .emacsmail $(CSOURCES) $(HSOURCES) \
X Makefile *.bbs sysop sysop.cfg *.mcl *.src *.help \
X $(PACKSRC)
X
Xshar:; rm -f *~ callers.bbs utmp.bbs gdxbbs.tar.Z gdxbbs.tar gdxbbs.lzh
X shar -ngdxbbs -ac -L50 -ogdxbbs REL* *.DOC .emacsmail \
X $(CSOURCES) $(HSOURCES) \
X Makefile *.bbs sysop sysop.cfg *.mcl *.src *.help \
X $(PACKSRC)
X
Xbintar:; rm -f *~ callers.bbs utmp.bbs gdxbin.tar.Z gdxbin.tar
X strip gdxbbs
X tar fcv gdxbin.tar REL* *.DOC .emacsmail gdxbbs packmsg *.bbs sysop sysop.cfg *.mcl *.src
X compress gdxbin.tar
X
Xbinlzh:; rm -f *~ callers.bbs utmp.bbs gdxbin.tar.Z gdxbin.tar
X strip gdxbbs
X lharc a gdxbin.tar REL* *.DOC .emacsmail gdxbbs packmsg *.bbs sysop sysop.cfg *.mcl *.src
SHAR_EOF
$TOUCH -am 0116232991 Makefile &&
chmod 0600 Makefile ||
echo "restore of Makefile failed"
set `wc -c Makefile`;Wc_c=$1
if test "$Wc_c" != "3129"; then
echo original size 3129, current size $Wc_c
fi
# ============= answer.bbs ==============
echo "x - extracting answer.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > answer.bbs &&
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Stephen Corbesero
XStephen Corbesero
XPL 115
Xx85001
X
X
X
X
X
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New User
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New Guy
Xnew guy
X
X
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New Person
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Joe New
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Red Baorn
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New
X**********************************
Xx.bbs: test questionaire
XUser: Red Baron
X**********************************
Xx.bbs: test questionaire
XUser: Red Baron
X1 line
X1 line
X2 line
X3 line
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Red X
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New Unit
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New Unit
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Red Baron
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New Unit
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New User
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Username
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: New User
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Username
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Red Baron
Xme
Xtest
Xtest
Xasdf
Xasdf
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Red Baorn
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Jay
X**********************************
Xquestion.bbs: GDX Registration Questionaire
XUser: Red Baron
SHAR_EOF
$TOUCH -am 1227233890 answer.bbs &&
chmod 0600 answer.bbs ||
echo "restore of answer.bbs failed"
set `wc -c answer.bbs`;Wc_c=$1
if test "$Wc_c" != "2331"; then
echo original size 2331, current size $Wc_c
fi
# ============= areas.bbs ==============
echo "x - extracting areas.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > areas.bbs &&
XMisc-Info
X{
Xdesc Miscelaneous Information
Xfile /u1/filearea/misc/files.bbs
Xpriv 0
X}
XC-Unix-Programming
X{
Xdesc Programming aids - mostly C & Unix Stuff
Xfile /u1/filearea/unix/programming/files.bbs
Xpriv 0
X}
XMSDOS-archive
X{
Xdesc MSDOS Archival Utilities
Xfile /u1/filearea/msdos/archive/files.bbs
Xpriv 0
X}
XMSDOS-Bench
X{
Xdesc MSDOS Benchmarking Utilties
Xfile /u1/filearea/msdos/bench/files.bbs
Xpriv 0
X}
XMSDOS-Comm
X{
Xdesc MSDOS Communications Programs
Xfile /u1/filearea/msdos/communications/files.bbs
Xpriv 0
X}
XMSDOS-DESQview
X{
Xdesc DESQview Appl/Programming
Xfile /u1/filearea/msdos/dv/files.bbs
Xpriv 0
X}
XMSDOS-DiskUtil
X{
Xdesc MSDOS Disk Utilities
Xfile /u1/filearea/msdos/diskutil/files.bbs
Xpriv 0
X}
XMSDOS-Elite
X{
Xdesc MSDOS Comercial Software
Xfile /u1/filearea/msdos/elite/files.bbs
Xudir */upload/files.bbs
Xpriv 10000000 ;sysop and and those that I trust
X}
XMSDOS-Elite Games
X{
Xdesc MSDOS Comercial Games
Xfile /u1/filearea/msdos/egames/files.bbs
Xudir */upload/files.bbs
Xpriv 10000000 ;sysop and members only
Xgroup elite
X}
XMSDOS-Editors
X{
Xdesc MSDOS Text Editors
Xfile /u1/filearea/msdos/editors/files.bbs
Xpriv 0
X}
XMSDOS-FileUtil
X{
Xdesc MSDOS File Management Utilities
Xfile /u1/filearea/msdos/fileutil/files.bbs
Xpriv 0
X}
XMSDOS-Graphic
X{
Xdesc MSDOS Video Utilites and Graphics Programs
Xfile /u1/filearea/msdos/graphic/files.bbs
Xpriv 0
X}
X#MSDOS-Hack
X#{
X#desc MSDOS Program Hacking Programs
X#file /u1/filearea/msdos/hack/files.bbs
X#priv 0
X#}
XMSDOS-Hardware
X{
Xdesc MSDOS Hardware Uitilities (and device drivers)
Xfile /u1/filearea/msdos/hardware/files.bbs
Xpriv 0
X}
XMSDOS-misc
X{
Xdesc MSDOS Programs that really don't fit elsewere.
Xfile /u1/filearea/msdos/misc/files.bbs
Xpriv 0
X}
XMSDOS-PCMag
X{
Xdesc MSDOS PC Magazine Programs
Xfile /u1/filearea/msdos/pcmag/files.bbs
Xpriv 0
X}
XMSDOS-Printer
X{
Xdesc MSDOS Printer Utilities
Xfile /u1/filearea/msdos/printer/files.bbs
Xpriv 0
X}
XMSDOS-Prog
X{
Xdesc MSDOS Programming Utilites and Libraries
Xfile /u1/filearea/msdos/programming/files.bbs
Xpriv 0
X}
X#MSDOS-Proto
X#{
X#desc MSDOS File Transfer Protocols
X#file /u1/filearea/msdos/protocols/files.bbs
X#priv 0
X#}
XMSDOS-util
X{
Xdesc MSDOS Utilities
Xfile /u1/filearea/msdos/util/files.bbs
Xpriv 0
X}
XMSDOS-Windows
X{
Xdesc Microsoft Windows Applications (PD and ShareWare)
Xfile /u1/filearea/msdos/windows/files.bbs
Xpriv 0
X}
X#MSDOS-WordProc
X#{
X#desc MSDOS Word Processing Extensions and Utilities
X#file /u1/filearea/msdos/wordprocessing/files.bbs
X#priv 0
X#}
XUnix-X
X{
Xdesc X-Windows Clients
Xfile /u1/filearea/unix/X/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-Archive
X{
Xdesc UNIX Archival Programs
Xfile /u1/filearea/unix/archive/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-Bbs
X{
Xdesc UNIX Bulletin Board Programs
Xfile /u1/filearea/unix/bbs/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-Comm
X{
Xdesc UNIX Communications Programs
Xfile /u1/filearea/unix/communications/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-Drivers
X{
Xdesc UNIX Device Drivers
Xfile /u1/filearea/unix/drivers/files.bbs
Xpriv 10
Xgroup unix
X}
XUnix-Editors
X{
Xdesc UNIX Text Editors
Xfile /u1/filearea/unix/editors/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-Games
X{
Xdesc UNIX Games
Xfile /u1/filearea/unix/games/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-GNU
X{
Xdesc UNIX GNU Project Programs
Xfile /u1/filearea/unix/gnu/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-Mail Utils
X{
Xdesc UNIX Mail Utility Programs
Xfile /u1/filearea/unix/mailutil/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-Utils
X{
Xdesc UNIX Utility Programs
Xfile /u1/filearea/unix/utils/files.bbs
Xpriv 0
Xgroup unix
X}
XXenix
X{
Xdesc SCO Xenix Releated Files, and Binaries
Xfile /u1/filearea/unix/SCOXenix/files.bbs
Xpriv 0
Xgroup unix
X}
XXenix-SLS
X{
Xdesc SCO Xenix SLS Updates
Xfile /u1/filearea/unix/SCO-SLS/files.bbs
Xpriv 0
Xgroup unix
X}
XUnix-AT&T 7300
X{
Xdesc Stuff for AT&T 7300 (aka Unix-PC, 3b1)
Xfile /u1/filearea/unix/att7300/files.bbs
Xpriv 0
Xgroup unix
X}
X#Unix-System
X#{
X#desc UNIX System Administration Tools
X#file /u1/filearea/unix/system/files.bbs
X#priv 0
X#group unix
X#}
XUpload
X{
Xdesc Upload Area
Xfile /u1/filearea/upload/files.bbs
Xpriv 80000000
Xgroup sysops
X}
SHAR_EOF
$TOUCH -am 0102212991 areas.bbs &&
chmod 0644 areas.bbs ||
echo "restore of areas.bbs failed"
set `wc -c areas.bbs`;Wc_c=$1
if test "$Wc_c" != "3968"; then
echo original size 3968, current size $Wc_c
fi
# ============= config.bbs ==============
echo "x - extracting config.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > config.bbs &&
Xsystem
X{
Xdefterm ansi
Xsysop Red Baron
Xmaxtry 3 ;don't set to 0, you'll regret it!
Xprompt GDX-BBS>
Xfsedit /usr/local/bin/uemacs -G4 @/bbs/.emacsmail -r
Xidlewarn 1 ; user is 'prodded' after a minute idle time
Xidleout 3 ; user is logged out after 3 minutes idle time
Xmondev /dev/tty02 ; device name of monitor terminal
X}
Xcomperm
X{
Xbulletin 0
Xcat 256 ;don't let users use this directly, it could get ugly
Xchat 0
Xchfa 0
Xchfal 0
Xchma 0
Xdl 1
Xexpert 0
Xfind 1
Xhelp 0
Xhistory 0
Xls 1
Xmail 0
Xquest 256 ;don't let users use this directly, it could get ugly
Xpasswd 0
Xpwd 1
Xset 256 ;don't let users use this directly, it could get ugly
Xsetpage 0
Xsource 256 ;don't let users use this directly, it could get ugly
Xul 1
Xver 0
Xwho 0
X}
Xfiles
X{
Xusers passwd
Xutmp utmp
Xmenu menu.mcl
Xquest /user/bbs/question.bbs
Xstartup /user/bbs/startup.src
Xnewuser /user/bbs/newuser.src
Xmsgareas msgareas.bbs
Xareas areas.bbs
Xfilelibs filelibs.bbs
Xulpath /u1/filearea/upload
Xhomedir /user/bbs/userdir
X}
SHAR_EOF
$TOUCH -am 1231003890 config.bbs &&
chmod 0600 config.bbs ||
echo "restore of config.bbs failed"
set `wc -c config.bbs`;Wc_c=$1
if test "$Wc_c" != "990"; then
echo original size 990, current size $Wc_c
fi
# ============= filelibs.bbs ==============
echo "x - extracting filelibs.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > filelibs.bbs &&
XUnix
X{
Xdesc Unix Sources
Xfile unix.areas
Xgroup unix
Xpriv 1
X}
XMSDOS
X{
Xdesc MS-DOS Programs
Xfile msdos.areas
Xpriv 1
X}
XMISC
X{
Xdesc Miscelaneous Files, GIFs, etc.
Xfile misc.areas
Xpriv 1
X}
SHAR_EOF
$TOUCH -am 1230233490 filelibs.bbs &&
chmod 0644 filelibs.bbs ||
echo "restore of filelibs.bbs failed"
set `wc -c filelibs.bbs`;Wc_c=$1
if test "$Wc_c" != "183"; then
echo original size 183, current size $Wc_c
fi
# ============= msgareas.bbs ==============
echo "x - extracting msgareas.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > msgareas.bbs &&
XGeneral
X{
Xdesc General Message Base
Xfile pubmsg/General
Xowner Red Baron
Xpriv 0
X}
XFor-Sale
X{
Xdesc Items For Sale
Xfile pubmsg/For_Sale
Xpriv 0
X}
XUnix-Messages
X{
Xdesc Unix/Xenix and Related Discussion
Xfile pubmsg/UnixMsg
Xpriv 0
X}
XMSDOS-Messages
X{
Xdesc IBM PC and MSDOS Related Discussion
Xfile pubmsg/MSDOS
Xpriv 0
X}
XHAM
X{
Xdesc Amatuer Radio Discussion
Xfile pubmsg/HAM
Xpriv 0
X}
XSysops
X{
Xdesc Confirmed Sysops Only
Xfile pubmsg/Sysops
Xowner Red Baron
Xpriv 20000000 ;sysop's of other boards
Xgroup sysops
X}
SHAR_EOF
$TOUCH -am 1231003590 msgareas.bbs &&
chmod 0644 msgareas.bbs ||
echo "restore of msgareas.bbs failed"
set `wc -c msgareas.bbs`;Wc_c=$1
if test "$Wc_c" != "497"; then
echo original size 497, current size $Wc_c
fi
# ============= question.bbs ==============
echo "x - extracting question.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > question.bbs &&
X@ GDX Registration Questionaire
X@
XN Do you want to answer the questionaire now?
X{
XQ
X}
X! What is your @bold(REAL) name?
X& What is your address (if on-campus, UC box will do) (end with blank line)
X! What is your telephone # (voice & data)
X! What is your profession (major if student)
XY Do you have a bulletin board, or are you an assistant sysop?
X{
X! What is the name of the board?
X! What is the data phone number of it?
X! What BBS software (and operating system) do you run?
X! Do you want me you add you board to my online list of area boards ?
X}
SHAR_EOF
$TOUCH -am 0225190590 question.bbs &&
chmod 0600 question.bbs ||
echo "restore of question.bbs failed"
set `wc -c question.bbs`;Wc_c=$1
if test "$Wc_c" != "546"; then
echo original size 546, current size $Wc_c
fi
# ============= userpriv.bbs ==============
echo "x - extracting userpriv.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > userpriv.bbs &&
XRed Baron 10 60 100
XNew User 3 0 0
XClam . 4 60 100
XSlow Moe 4 60 100
XRic Flair 4 0 0
XFirst Aid 3 0 0
XPar Z 1 60 100
XBill Sanderson 2 0 0
XColonel Hogan 4 0 0
XScum Billsanderson 1 0 0
XSpaceman Spiff 4 0 0
XThe Python 4 0 0
XRichard Mauren 2 0 0
XElovandar Siordan 4 0 0
XNevin Keller 2 0 0
XBilly Kidd 4 0 0
XVampire Lestat 4 0 0
XJeffrey Knox 3 0 0
XNolan Ang 2 0 0
XKeith Swanson 4 0 0
XMeor Mohamad 2 0 0
XBinoy James 2 0 0
XAndrew Ziobro 2 0 0
XLex Luthor 2 0 0
XOverlord _ 1 0 0
XFred Flintstone 2 0 0
XWiley Coyote 1 0 0
XJed Pitera 2 0 0
XX X 1 0 0
XDavid Engle 1 0 0
XBen Holiday 2 0 0
XBugs Bunny 1 0 0
XGreg Mcduff 1 0 0
XDavid Bader 1 0 0
SHAR_EOF
$TOUCH -am 0223131890 userpriv.bbs &&
chmod 0600 userpriv.bbs ||
echo "restore of userpriv.bbs failed"
set `wc -c userpriv.bbs`;Wc_c=$1
if test "$Wc_c" != "625"; then
echo original size 625, current size $Wc_c
fi
# ============= users.bbs ==============
echo "x - extracting users.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > users.bbs &&
XRed Barron:bag"9.:300:
XJoe Blow:decz:2:
XTak::0:
XNew User:r:0:
XJeffrey Knox:ed5gfi_b:3:
SHAR_EOF
$TOUCH -am 0119003190 users.bbs &&
chmod 0600 users.bbs ||
echo "restore of users.bbs failed"
set `wc -c users.bbs`;Wc_c=$1
if test "$Wc_c" != "87"; then
echo original size 87, current size $Wc_c
fi
# ============= welcome.bbs ==============
echo "x - extracting welcome.bbs (Text)"
sed 's/^X//' << 'SHAR_EOF' > welcome.bbs &&
X****************************
X@myname, welcome to GDX!
X****************************
SHAR_EOF
$TOUCH -am 0225204190 welcome.bbs &&
chmod 0600 welcome.bbs ||
echo "restore of welcome.bbs failed"
set `wc -c welcome.bbs`;Wc_c=$1
if test "$Wc_c" != "82"; then
echo original size 82, current size $Wc_c
fi
# ============= sysop ==============
echo "x - extracting sysop (Text)"
sed 's/^X//' << 'SHAR_EOF' > sysop &&
X#!/bin/csh
Xubbs -St -csysop.cfg
SHAR_EOF
$TOUCH -am 0318015990 sysop &&
chmod 0700 sysop ||
echo "restore of sysop failed"
set `wc -c sysop`;Wc_c=$1
if test "$Wc_c" != "32"; then
echo original size 32, current size $Wc_c
fi
# ============= sysop.cfg ==============
echo "x - extracting sysop.cfg (Text)"
sed 's/^X//' << 'SHAR_EOF' > sysop.cfg &&
Xsystem
X{
Xsysop Red Baron
Xmaxtry 3 ;don't set to 0, you'll regret it!
Xprompt GDX-UBBS#
Xfsedit /usr/local/bin/uemacs -G4 @/bbs/.emacsmail
X}
Xcomperm
X{
Xbulletin 0
Xcat 256 ;sysop only
Xchat 0
Xchfa 1
Xchma 1
Xdl 1
Xexpert 0
Xfind 1
Xhelp 0
Xhistory 0
Xls 1
Xmail 0
Xmscan 0
Xpasswd 0
Xpwd 1
Xquest 0
Xsetpage 0
Xul 1
Xver 0
Xwho 0
X}
Xfiles
X{
Xusers passwd
Xutmp utmp
Xmenu menu.mcl
Xstartup sysop.src
Xmsgareas /usr/bbs/msgareas.bbs
Xareas /usr/bbs/areas.bbs
X}
SHAR_EOF
$TOUCH -am 0318015790 sysop.cfg &&
chmod 0600 sysop.cfg ||
echo "restore of sysop.cfg failed"
set `wc -c sysop.cfg`;Wc_c=$1
if test "$Wc_c" != "451"; then
echo original size 451, current size $Wc_c
fi
# ============= menu.mcl ==============
echo "x - extracting menu.mcl (Text)"
sed 's/^X//' << 'SHAR_EOF' > menu.mcl &&
Xmain,GDX-BBS Main Menu,0
X{
X^? Help, cat main.help,0
XE^Xpert Mode, expert,0
X^Goodbye, logout,0
X^Toggle Page, setpage,0
X^Setup, >setup, 0
X^Message Base, mail -p,0
X^Private Mail, mail,0
X^Bulletins, >bulletin,0
X^Reading Room, >reading,0
X^Files, >files,1
X^Who's On, who,1
X^* Play Games, >games,1
XSystem ^Load, % /usr/bin/uptime,1
XL^Ast Callers, % /bin/tail -8 callers.bbs | grep " in ",1
XRegister ^Quest, quest,0
X^User List, users, 1
X^Chat, source chat.src
XUSE^NET Access, >usenet, 2
XF^ortune Cookie, % cookie, 0
X}
Xsetup,GDX-BBS Setup,0
X{
X^? Help, cat setup.help,0
X^Main Menu,>main,0
XE^Xpert Mode, expert,0
X^Terminal Type, setterm, 0
XT^oggle Page, setpage,0
X^Password, passwd,0
X^File Protocol, setproto ,1
X}
Xfiles,GDX-BBS Files [@curfilearea],0
X{
X^? Help, cat files.help,0
X^Main Menu, >main,0
XE^Xpert Mode, expert,0
X^Goodbye, logout,0
X^Toggle Page, setpage,0
X^Area Change, chfa,0
X^File List, ls,0
X^Download, dl,10
X^Upload, ul,10
X^Locate file, find,80000000
X^New files, ls -n, 80000000
X^Set Protocall, setproto ,0
X}
Xgames,GDX-Games,1
X{
X^? Help, >ghelp,0
X^Main Menu,>main,0
XE^Xpert Mode, expert,0
X^Goodbye, logout,0
X^Tetris,! /usr/games/tetris,1
X^Hack,! /usr/games/nethack,1
XMaze^Ware,! /usr/games/mazewar,1
X}
Xghelp,GDX-Games Help,1
X{
X^Previous Menu,>games,0
X^Tetris, cat /user/bbs/games.help/tetris, 1
X^Hack, cat /user/bbs/games.help/nethack.help, 1
XHack ^Guidebook, cat /user/bbs/games.help/nethack.guideb, 1
XMaze^War, cat /user/bbs/games.help/mazewar, 1
X}
Xbulletin,GDX-Bulletins,0
X{
X^Main Menu, >main,0
XBoard ^Policy, cat bulletin/board_policy,0
XSystem ^Info, cat bulletin/systeminfo,0
X^New Software, cat bulletin/new_soft,0
X^Other BBS's, cat bulletin/other_boards,0
X^USENET, cat bulletin/newsgroups,0
X}
Xreading,GDX-Reading Room,0
X{
X^Main Menu, >main,0
X^Sorority Girls, %zcat /u1/filearea/misc/sgirls,0
XUnix Questions ^1, %zcat /u1/filearea/misc/answers,0
XUnix Questions ^2, %zcat /u1/filearea/misc/unix.quest,0
XDesqview/^X, %zcat /u1/filearea/misc/qdwin*,0
X}
Xusenet,GDX-USENET Service,11
X{
X^? Help, cat usenet.help,0
X^Main Menu, >main,0
X^Goodbye, logout,0
XE^Xpert mode, ! expert,0
X^Post Article,! Pnews, 0
X^Read News, ! vnews, 0
X}
Xpubmsg,GDX-Messages [@curmsgarea],*
X{
X^? Help, !cat mail.help,0
X^Main Menu, quit,0
X^Goodbye, logout,0
XE^Xpert mode, ! expert,0
X^Area Change, chma, 0
X^Enter Message, send,0
X^Reply, reply,0
X^Previous, prev,0
XRead ^Next, next,0
X^Delete, delete, 4000000
XList ^Headers, headers, 0
XPack Msg^Base, !% /user/bbs/bin/packmsg pubmsg/*, 256
XNew Msg ^Scan, newscan, 0
X}
Xmail,GDX-Private E-Mail,*
X{
X^? Help, !cat mail.help,0
X^Main Menu, quit,0
X^Goodbye, logout,0
XE^Xpert mode, ! expert,0
X^Enter Message, send,0
X^Reply, reply,0
X^Previous, prev,0
X^Next, next,0
X^Delete, delete, 0
XList ^Headers, headers, 0
XNew Msg ^Scan, newscan, 0
X}
Xproto,File Tranfer Protocols,*
X{
X^Ascii, ,0
X^Kermit,"kermit -i -s %s" "kermit -ik >%s" ,0
XK^ermit-1000,"kermit -e 1000 -i -s %s" "kermit -e1000 -iwk >%s" ,0
X^Xmodem, "sx %s" "rx",0
X^Ymodem, "sb %s" "rb",0
X^Zmodem, "sz %s" "rz",0
X}
Xbogus,Bogus Menu,0
X{
X^Sysop, echo sysop, 8000000
X^2 or 1, echo 1 or 2, 3
X^0x10, echo 0x10, 10
X}
SHAR_EOF
$TOUCH -am 0103225691 menu.mcl &&
chmod 0644 menu.mcl ||
echo "restore of menu.mcl failed"
set `wc -c menu.mcl`;Wc_c=$1
if test "$Wc_c" != "3074"; then
echo original size 3074, current size $Wc_c
fi
# ============= sysop.mcl ==============
echo "x - extracting sysop.mcl (Text)"
sed 's/^X//' << 'SHAR_EOF' > sysop.mcl &&
Xmain,GDX-BBS Main Menu,0
X{
X^? Help, help,0
XE^Xpert Mode, expert,0
X^Goodbye, logout,0
X^Toggle Page, setpage,0
X^Setup, >setup, 0
X^Message Base, >pubmsg,0
X^Private Mail, mail,0
X^Bulletins, >bulletin,0
X^Files, >files,1
X^Who's On, who,0
X^Yell Sysop, chat console,0
X^Chat, chat,0
X^* Play Games, >games,2
XSystem ^Load, % /usr/bin/uptime,0
XL^Ast Callers, % /bin/tail -6 callers.bbs | grep " in ",0
X^Register, quest,0
X}
Xsetup,GDX-BBS Setup,0
X{
X^? Help, help,0
X^Main Menu,>main,0
XE^Xpert Mode, expert,0
X^Goodbye, logout,0
X^Toggle Page, setpage,0
X^Password, passwd,0
X^File Protocol, sxfer ,1
X}
Xfiles,GDX-BBS Files [@curfilearea],1
X{
X^? Help, help,0
X^Main Menu, >main,0
XE^Xpert Mode, expert,0
X^Goodbye, logout,0
X^Toggle Page, setpage,0
X^Area Change, chfa,1
X^File List, ls,1
X^Download, dl,1
X^Upload, ul,1
X^Locate file, find,1
X^New files, ls -n
X}
Xpubmsg,GDX-BBS Message Section [@curmsgarea],0
X{
X^? Help, help,0
X^Main Menu, >main,0
XE^Xpert Mode, expert,0
X^Goodbye, logout,0
X^Toggle Page, setpage,0
X^Area Change, >mareachg,1
XList ^Headers, mail -hp
X^Scan, mscan,0
X^Read, mail -p,0
X^Enter Message, mail -ps,0
X}
Xmareachg -s,GDX-BBS -- Select Message Area....,0
X{
X^General, chma General, 0
XFor ^Sale, chma ForSale, 0
X^Abuse, chma Abuse,1
X^Sex, chma Sex, 3
X^1001, chma 1001, 2
X^Elite, chma Elite, 4
X^Problems?, chma Problems, 0
X}
Xgames,GDX-Games,2
X{
X^? Help, help,0
X^Main Menu,>main,0
XE^Xpert Mode, expert,0
X^Goodbye, logout,0
X^Tetris,! /usr/games/tetris,2
X^Hack,! /usr/games/nethack,2
XMaze^Ware,! /usr/games/mazewar,2
X}
Xbulletin,GDX-Bulletins,0
X{
X^Main Menu, >main,0
XBoard ^Policy, cat board_policy,0
XSystem ^Info, cat systeminfo,0
X^New Software, cat new_soft,0
X^Com. Soft, cat comm_soft,5
X^Unix Accounts, cat unix_accounts,1
X}
Xmail,GDX-Messages,*
X{
X^? Help, help,0
X^Quit, quit,0
X^Goodbye, logout,0
X^Send, send,0
X^Reply, reply,0
X^Previous, prev,0
X^Next, next,0
XList ^Headers, headers, 0
X}
SHAR_EOF
$TOUCH -am 0309024490 sysop.mcl &&
chmod 0600 sysop.mcl ||
echo "restore of sysop.mcl failed"
set `wc -c sysop.mcl`;Wc_c=$1
if test "$Wc_c" != "1871"; then
echo original size 1871, current size $Wc_c
fi
# ============= csee.src ==============
echo "x - extracting csee.src (Text)"
sed 's/^X//' << 'SHAR_EOF' > csee.src &&
X#### ######## #### #### #### ####### #### ####
X ## ## # ## ## ## ## ## ## ##
X ## ## ## ## ## ## ## ##
X ## ###### ######### ## ## ##### #########
X ## ## ## ## ## ## ## ## ##
X ## # ## # ## ## ## ## ## ## ##
X######## ######## #### #### #### ####### #### ####
X
XLehigh University, Bethlehem, PA 18015
X
X
X ######## ######## ########## ##########
X## ## ## ## ## # ## #
X## ## ## ##
X## ######## ###### ######
X## ## ## ##
X## ## ## ## ## # ## #
X ######## ######## ########## ##########
X
XComputer Science and Electrical Engineering Dept.
X
SHAR_EOF
$TOUCH -am 0514155590 csee.src &&
chmod 0644 csee.src ||
echo "restore of csee.src failed"
set `wc -c csee.src`;Wc_c=$1
if test "$Wc_c" != "856"; then
echo original size 856, current size $Wc_c
fi
# ============= newuser.src ==============
echo "x - extracting newuser.src (Text)"
sed 's/^X//' << 'SHAR_EOF' > newuser.src &&
Xcat board_policy
Xecho
Xecho Please fill out questionaire to get more access.
Xecho
Xquest
Xecho
Xecho Thank you for filling out the questionaire
X
SHAR_EOF
$TOUCH -am 0129164290 newuser.src &&
chmod 0600 newuser.src ||
echo "restore of newuser.src failed"
set `wc -c newuser.src`;Wc_c=$1
if test "$Wc_c" != "141"; then
echo original size 141, current size $Wc_c
fi
# ============= startup.src ==============
echo "x - extracting startup.src (Text)"
sed 's/^X//' << 'SHAR_EOF' > startup.src &&
Xecho Welcome to GDX
Xecho
Xcat -s welcome.bbs
Xecho
Xwho
Xset USER=$MYNAME
Xset LOGNAME=$MYNAME
SHAR_EOF
$TOUCH -am 1227214590 startup.src &&
chmod 0600 startup.src ||
echo "restore of startup.src failed"
set `wc -c startup.src`;Wc_c=$1
if test "$Wc_c" != "91"; then
echo original size 91, current size $Wc_c
fi
# ============= sysop.src ==============
echo "x - extracting sysop.src (Text)"
sed 's/^X//' << 'SHAR_EOF' > sysop.src &&
Xecho Logged in as SYSOP
Xecho
X# % tail -6 callers.bbs | grep " in "
X# who
Xchma General
Xset USER=$MYNAME
Xset LOGNAME=$MYNAME
SHAR_EOF
$TOUCH -am 0316021390 sysop.src &&
chmod 0600 sysop.src ||
echo "restore of sysop.src failed"
set `wc -c sysop.src`;Wc_c=$1
if test "$Wc_c" != "123"; then
echo original size 123, current size $Wc_c
fi
# ============= files.help ==============
echo "x - extracting files.help (Text)"
sed 's/^X//' << 'SHAR_EOF' > files.help &&
XNote:
X
X--> The upload stuff isn't written yet.
X
X--> You must select a file transfer protocall before downloading
SHAR_EOF
$TOUCH -am 0514162490 files.help &&
chmod 0644 files.help ||
echo "restore of files.help failed"
set `wc -c files.help`;Wc_c=$1
if test "$Wc_c" != "113"; then
echo original size 113, current size $Wc_c
fi
# ============= mail.help ==============
echo "x - extracting mail.help (Text)"
sed 's/^X//' << 'SHAR_EOF' > mail.help &&
XCommands:
X@bold(?) Help: print this file
X@bold(Q)uit: return to previous menu
X@bold(G)oodbye: logout
X@bold(A)rea Change: change message area (not applicable to private mail)
X@bold(S)end Message: send message
X@bold(R)eply: reply to a message
X@bold(P)revious: read previous message
XRead @bold(N)ext: read next message, if not already reading mail, read
X next unread message.
X@bold(D)elete: delete message (only in private mail).
XList @bold(H)eaders: list message headers
X
X@bold([RETURN]) is the name as @bold(N)ext
XA number followed by @bold([RETURN]) will read the message with that number.
X@bold(D)elete can be followed by a number to specify message to delete.
SHAR_EOF
$TOUCH -am 1225230890 mail.help &&
chmod 0644 mail.help ||
echo "restore of mail.help failed"
set `wc -c mail.help`;Wc_c=$1
if test "$Wc_c" != "668"; then
echo original size 668, current size $Wc_c
fi
# ============= main.help ==============
echo "x - extracting main.help (Text)"
sed 's/^X//' << 'SHAR_EOF' > main.help &&
X@version @normal @color(brcyan)
XSorry if this is a brief file, but the software should be mostly
Xself-explainitory.
X
X@bold(@color(brwhite)Command Line Editting)
X@color(yellow)
XCommand line editting can be done via normal Emacs control keys
X(termial curser keys will be added later)
X
X@bold(^A) beginning of line @bold(^B) Backward Character
X@bold(^E) End of line @bold(^F) Forward Character
X@bold(^K) Kill to end of line @bold(^U) Kill entire line.
X
XThese editting keys are consistant throughout the board, with exception
Xof the line editor (which is only used if your terminal type is unsupported).
X
XI actually don't have a line editor written for mail yet, what I'm using is:
Xexec("cat >filename") which is the same as "copy con filename" in
XMSDOS, except for ending w/ ^D instead of ^Z.
X
X@bold(^P), and @bold(^N) will (in the future) be used for @bold(N)ext line and
X@bold(P)revios line. (like CED in DOS).
X
XRB 4-11-90
X
SHAR_EOF
$TOUCH -am 0514162490 main.help &&
chmod 0644 main.help ||
echo "restore of main.help failed"
set `wc -c main.help`;Wc_c=$1
if test "$Wc_c" != "924"; then
echo original size 924, current size $Wc_c
fi
# ============= packmain.c ==============
echo "x - extracting packmain.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > packmain.c &&
X/*
X GDX-BBS V1.0 Beta
X (C) 1990
X Jay A. Snyder
X*/
X
X#define PACKMAIN 1
X#include <stdio.h>
X#include <string.h>
X#ifdef F_SYSV
X#define remove unlink
Xint remove();
X#endif
X#ifndef ANSI
X/* seek stuff */
X#define SEEK_SET 0
X#define SEEK_CUR 1
X#define SEEK_END 2
X#endif
X
Xchar str1[255];
X#define thistty "tty"
X
Xchar *dirname();
X
X#include "packmsg.c"
X
X#ifdef F_SYSV
Xrename(oldname,newname)
X char *oldname,*newname;
X{
X int err;
X if ((err=link(oldname,newname))!=0) return(err);
X return(unlink(oldname));
X}
X#endif
X
Xchar *dirname(pathname,s)
X char *pathname,*s;
X{
X char *p;
X strcpy(s,pathname);
X if ((p=(char *) strrchr(s,'/'))==NULL)
X s[0]=0;
X else *p=0;
X return(s);
X}
X
X
X
X/*
X mail_seek(fp,inc) --> seek "####" header in file
X*/
Xmail_seek(fp,inc)
X FILE *fp;
X int inc;
X{
X char c,x,q;
X long int fpos;
X q=0;
X fpos=(long int) ftell(fp);
X if (inc>0)
X {
X while ((inc>0) && !q && !feof(fp))
X {
X --inc;
X x=0;
X while (!q && !x && !feof(fp))
X {
X c=0;
X while(!feof(fp) && c!='#')
X {
X c=fgetc(fp);
X }
X if (fgetc(fp)=='#' && fgetc(fp)=='#' && fgetc(fp)=='#') x=1;
X }
X }
X if (feof(fp))
X {
X fseek(fp,fpos,SEEK_SET);
X return(EOF);
X }
X }
Xreturn(0);
X}
X
X
X
Xmain(argc,argv)
X int argc;
X char **argv;
X{
X int i;
X if (argc==1)
X {
X fprintf(stderr,"Usage: %s msgfile ...\n",argv[0]);
X exit(1);
X }
X for (i=1;i<argc;++i)
X {
X pack_msgfile(argv[i]);
X }
X}
SHAR_EOF
$TOUCH -am 0507213290 packmain.c &&
chmod 0644 packmain.c ||
echo "restore of packmain.c failed"
set `wc -c packmain.c`;Wc_c=$1
if test "$Wc_c" != "1447"; then
echo original size 1447, current size $Wc_c
fi
rm -f @shar_seq_.tmp
echo "You have unpacked the last part"
exit 0